Author: gassla
Date: Mon Jun 4 16:55:24 2007
New Revision: 503
URL: http://svn.gna.org/viewcvs/phplinker?rev=503&view=rev
Log:
#147
Added:
trunk/www/admin/api/catalog-pub_db.pl
Added: trunk/www/admin/api/catalog-pub_db.pl
URL:
http://svn.gna.org/viewcvs/phplinker/trunk/www/admin/api/catalog-pub_db.pl?rev=503&view=auto
==============================================================================
--- trunk/www/admin/api/catalog-pub_db.pl (added)
+++ trunk/www/admin/api/catalog-pub_db.pl Mon Jun 4 16:55:24 2007
@@ -1,0 +1,24 @@
+#!/usr/bin/perl
+
+use strict;
+use DB_File;
+
+#my $file = "/ctk/var/db-all/pub.db";
+my $file = "pub.db";
+
+my $input = "fetch_login_tag.txt";
+#my $input = "http://phplinker.dev.isvtec.com/admin/api/fetch_login_tag.php";;
+
+my %hash;
+my $dbfile = tie %hash, 'DB_File', $file, O_CREAT, 0666, $DB_HASH
+ or die "Can't open $file : $!";
+
+open( FILE, "< $input" ) or die "Can't open $input : $!";
+while( <FILE> ) {
+ my ($nomsite, $url) = split("\t",$_);
+ chomp($url);
+ # print $nomsite . ":".$url."\n";
+ my $status = $dbfile->put($nomsite, $url);
+ die "error in putting an entrie $nomsite $url" if ($status) ;
+}
+close FILE;
_______________________________________________
PHPLinker-commits mailing list
[email protected]
https://mail.gna.org/listinfo/phplinker-commits
