added dummy values

git-svn-id: https://svn.helsinki.at/rhimport/trunk@8 7c65635b-ec39-4f67-a626-873dbafdd612

1 files changed, 3 insertions, 1 deletions

diff --git a/rhimport.pl b/rhimport.pl
index dab8d63..08063e0 100755
--- a/rhimport.pl
+++ b/rhimport.pl
@@ -66,6 +66,9 @@ $user or die "Username not found in environment";
 # my $sth = $dbh->prepare($sql);
 # $sth->execute();
 my @allowed_dbs;
+push @allowed_dbs, { 'GROUP' => "groupa", 'PATH' => "/programm/dropboxA/" };
+push @allowed_dbs, { 'GROUP' => "groupb", 'PATH' => "/programm/dropboxB/" };
+push @allowed_dbs, { 'GROUP' => "groupc", 'PATH' => "/programm/dropboxC/" };
 # while(my ($group, $path) = $sth->fetchrow_array()) {
 #   $path =~ s/\/\*$//;
 #   my $perm = {};
@@ -75,7 +78,6 @@ my @allowed_dbs;
 # }
 # $sth->finish();
 
-
 if($LISTALLOWED) {
   for my $href ( @allowed_dbs ) {
     print "$href->{'PATH'}\n";