summaryrefslogtreecommitdiff
path: root/rhimport.pl
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2010-02-20 19:33:21 (GMT)
committerChristian Pointner <equinox@helsinki.at>2010-02-20 19:33:21 (GMT)
commit1c10c381f6950934e29e3b43bc6362fd5c35bf67 (patch)
treefad70206cc82262d9e7acf3dae272bbf5780ae2d /rhimport.pl
parent9a10f30cdb0484bfbff270d214dc05b862072dc7 (diff)
added dummy values
git-svn-id: https://svn.helsinki.at/rhimport/trunk@8 7c65635b-ec39-4f67-a626-873dbafdd612
Diffstat (limited to 'rhimport.pl')
-rwxr-xr-xrhimport.pl4
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";