diff options
author | Christian Pointner <equinox@helsinki.at> | 2010-02-20 19:33:21 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2010-02-20 19:33:21 (GMT) |
commit | 2b9308dc3accb620b84a9504101c00c33e046237 (patch) | |
tree | fad70206cc82262d9e7acf3dae272bbf5780ae2d /rhimport.pl | |
parent | b16e4a7e1dee8e879adfc7b34be434cbd7e4201e (diff) |
added dummy values
Diffstat (limited to 'rhimport.pl')
-rwxr-xr-x | rhimport.pl | 4 |
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"; |