[prev in list] [next in list] [prev in thread] [next in thread] 

List:       ipcop-svn
Subject:    [Ipcop-svn] SF.net SVN: ipcop:[5882] ipcop/trunk
From:       dotzball () users ! sourceforge ! net
Date:       2011-09-29 13:29:14
Message-ID: E1R9Gfq-0004xd-RN () sfp-svn-4 ! v30 ! ch3 ! sourceforge ! com
[Download RAW message or body]

Revision: 5882
          http://ipcop.svn.sourceforge.net/ipcop/?rev=5882&view=rev
Author:   dotzball
Date:     2011-09-29 13:29:14 +0000 (Thu, 29 Sep 2011)
Log Message:
-----------
Fix Perl warning in index.cgi.

Modified Paths:
--------------
    ipcop/trunk/html/cgi-bin/index.cgi
    ipcop/trunk/updates/2.0.1/ROOTFILES.i486-2.0.1

Modified: ipcop/trunk/html/cgi-bin/index.cgi
===================================================================
--- ipcop/trunk/html/cgi-bin/index.cgi	2011-09-27 11:21:19 UTC (rev 5881)
+++ ipcop/trunk/html/cgi-bin/index.cgi	2011-09-29 13:29:14 UTC (rev 5882)
@@ -98,7 +98,9 @@
         # display our public internet IP
         my $fetch_ip = &General::GetDyndnsRedIP;
         my $host_name = (gethostbyaddr(pack("C4", split(/\./, $fetch_ip)), 2))[0];
-        $host_name = $fetch_ip if ($host_name eq '');
+        if( (!defined(($host_name))) || ($host_name eq '') ) {
+            $host_name = $fetch_ip;
+        }
         print
 "<br />$Lang::tr{'ip address'} ($Lang::tr{'internet'}): $fetch_ip <br /> \
$Lang::tr{'ipcops hostname'} ($Lang::tr{'internet'}): $host_name";  

Modified: ipcop/trunk/updates/2.0.1/ROOTFILES.i486-2.0.1
===================================================================
--- ipcop/trunk/updates/2.0.1/ROOTFILES.i486-2.0.1	2011-09-27 11:21:19 UTC (rev 5881)
+++ ipcop/trunk/updates/2.0.1/ROOTFILES.i486-2.0.1	2011-09-29 13:29:14 UTC (rev 5882)
@@ -1,4 +1,5 @@
 ## please place IPCop files first, then packages sorted by alphabetical order
+/home/httpd/cgi-bin/index.cgi
 /usr/lib/ipcop/lang.pl
 /usr/share/locale/es_ES/LC_MESSAGES/ipcop.mo
 ##

This was sent by the SourceForge.net collaborative development platform, the world's \
largest Open Source development site.


------------------------------------------------------------------------------
All the data continuously generated in your IT infrastructure contains a
definitive record of customers, application performance, security
threats, fraudulent activity and more. Splunk takes this data and makes
sense of it. Business sense. IT sense. Common sense.
http://p.sf.net/sfu/splunk-d2dcopy1
_______________________________________________
Ipcop-svn mailing list
Ipcop-svn@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ipcop-svn


[prev in list] [next in list] [prev in thread] [next in thread]