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)
commit2b9308dc3accb620b84a9504101c00c33e046237 (patch)
treefad70206cc82262d9e7acf3dae272bbf5780ae2d /rhimport.pl
parentb16e4a7e1dee8e879adfc7b34be434cbd7e4201e (diff)
added dummy values
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";