Update of /cvsroot/netpass/NetPass/lib/NetPass
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17502/lib/NetPass
Modified Files:
Config.pm Network.pm
Log Message:
resetport fixes, install script fix
Index: Config.pm
===================================================================
RCS file: /cvsroot/netpass/NetPass/lib/NetPass/Config.pm,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -d -r1.53 -r1.54
--- Config.pm 22 Aug 2005 19:26:07 -0000 1.53
+++ Config.pm 22 Dec 2005 18:31:03 -0000 1.54
@@ -90,7 +90,7 @@
_log ("DEBUG", "config changed. reloading. cur=".
$self->{'cfg_from_db'}->{'rev'}.
- " new=".$newCfg->{'rev'});
+ " new=".$newCfg->{'rev'}."\n");
$self->{'cfg'} = new Config::General(-String => $newCfg->{'config'},
-AutoTrue => 1,
Index: Network.pm
===================================================================
RCS file: /cvsroot/netpass/NetPass/lib/NetPass/Network.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Network.pm 6 Sep 2005 20:29:18 -0000 1.7
+++ Network.pm 22 Dec 2005 18:31:03 -0000 1.8
@@ -182,8 +182,9 @@
my $res = new Net::DNS::Resolver;
my $query = $res->search($hn);
+
return $hn if ($hn =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/);
-
+
my $addr;
if ($query) {
|
