Author: gassla
Date: Mon Jun 4 17:01:55 2007
New Revision: 504
URL: http://svn.gna.org/viewcvs/phplinker?rev=504&view=rev
Log:
#147
Modified:
trunk/www/admin/api/catalog-pub_db.pl (contents, props changed)
Modified: trunk/www/admin/api/catalog-pub_db.pl
URL:
http://svn.gna.org/viewcvs/phplinker/trunk/www/admin/api/catalog-pub_db.pl?rev=504&r1=503&r2=504&view=diff
==============================================================================
--- trunk/www/admin/api/catalog-pub_db.pl (original)
+++ trunk/www/admin/api/catalog-pub_db.pl Mon Jun 4 17:01:55 2007
@@ -1,4 +1,5 @@
#!/usr/bin/perl
+# $Id$
use strict;
use DB_File;
@@ -6,15 +7,11 @@
#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> ) {
+while( <> ) {
my ($nomsite, $url) = split("\t",$_);
chomp($url);
# print $nomsite . ":".$url."\n";
Propchange: trunk/www/admin/api/catalog-pub_db.pl
------------------------------------------------------------------------------
svn:keywords = Id
_______________________________________________
PHPLinker-commits mailing list
[email protected]
https://mail.gna.org/listinfo/phplinker-commits
