production library set and profile map
[Evergreen.git] / Evergreen / src / extras / import / lib_spliter.pl
index bace057..d9984e8 100755 (executable)
@@ -23,7 +23,7 @@ while (<STDIN>) {
        push @{ $libs{$sys_pol}{libs} }, {name => $lib, shortname => $policy, type => 3 };
 }
 
-my $dbh = DBI->connect("dbi:Pg:host=localhost;dbname=$ARGV[0]",'postgres');
+my $dbh = DBI->connect("dbi:Pg:host=10.1.0.13;port=5432;dbname=$ARGV[0]",'postgres');
 
 $dbh->begin_work;
 
@@ -60,5 +60,9 @@ for my $sname (keys %libs) {
 open FH, ">$ARGV[1]" or die "Can't open $ARGV[1] to write the map file! $!";
 print FH Data::Dumper->Dump([$lib_map],['lib_map']);
 
+warn Dumper( $dbh->selectall_hashref("SELECT * FROM actor.org_unit;" => 'id') );
+
+sleep 10;
+
 $dbh->commit;