diff options
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"; |