Changeset 61 for trunk/cgi-bin

Timestamp:

11/11/04 15:49:04 (20 years ago)

Author:

Kris Deugau

Message:

/trunk

Numerous minor bugfixes in logic

• pool IP types corrected
• search pages with more than 50 results now work correctly (pushed forward from /branches/stable r53)

File:

• trunk/cgi-bin/main.cgi (modified) (3 diffs)

trunk/cgi-bin/main.cgi

@@ -360 +360 @@
     # Fix up types from pools (which are single-char)
     # Fixing the database would be...  painful.  :(
-    if ($data[2] =~ /^[cdsm]$/) {
+    if ($data[2] =~ /^[sdcmw]$/) {
       $data[2] .= 'i';
     }
@@ -391 +391 @@
         print "<b>$i&nbsp;</b>\n";
       } else {
-        print qq(<a href="/ip/cgi-bin/main.cgi?page=$i&input=$webvar{input}&action=search">$i</a>&nbsp;\n);
+        print qq(<a href="/ip/cgi-bin/main.cgi?page=$i&input=$webvar{input}&action=search&searchfor=$webvar{searchfor}">$i</a>&nbsp;\n);
       }
     }
@@ -818 +818 @@
 #  + Different flavours of netblock
 
-  if ($webvar{alloctype} =~ /^[cdsm]i$/) {
+  if ($webvar{alloctype} =~ /^[scdmw]i$/) {
     my ($base,undef) = split //, $webvar{alloctype};    # split into individual chars
     my $sql;