Changeset 333 for branches/stable/cgi-bin

Timestamp:

04/13/06 17:37:40 (19 years ago)

Author:

Kris Deugau

Message:

/branches/stable

snCalc.cgi seems to have been mildly broken at some point. Fixed.

File:

• branches/stable/cgi-bin/snCalc.cgi (modified) (1 diff)

branches/stable/cgi-bin/snCalc.cgi

@@ -16 +16 @@
 print $start;
 
-if($webvar{input} =~ m/(\/\d\d)/)
+if($webvar{input} =~ m/(\d\d)/)
 {
-        $input = $1;
+        $input = 1*$1;
 }
 else
 {
-        $input = '/29';
+        $input = 29;
 }
 
-if(substr($input, 1, 2) > 32 || substr($input, 1, 2) < 24)
+if ($input > 32 || $input < 24)
 {
-        printAndExit("'$input' is an invalid netmask.");
+        printAndExit("Don't know what to do with '$input' as a masklength.");
 }
 else
-{               $input = substr($input, 1, 2);
+{               
                 my $ltinput = $input -1;
                 my $gtinput = $input +1;
-                
                 print qq(       <div class="center">
                 <table align="center" cellspacing="3" cellpadding="3"><tr>