From 2b9308dc3accb620b84a9504101c00c33e046237 Mon Sep 17 00:00:00 2001 From: Christian Pointner Date: Sat, 20 Feb 2010 19:33:21 +0000 Subject: added dummy values 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"; -- cgit v0.10.2