some funny perl code:

Cpt CyberTNT

unless ($ip =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/) {

# That regex *should* match all decimal IPs :]

print "That sure didn't look like an IP to me, buddy...\n<BR><BR>\n";

&ourFORM();

} 



unless((0 <= int($1)) && (int($1) <= 255) && (0 <= int($2)) && (int($2) <= 255)
 && (0 <= int($3)) && (int($3) <= 255) && (0 <= int($4)) && (int($4) <= 255)) {

# The IP is out of range...

print "I never saw an IP element over 255 or under 0 before... \n<BR><BR>\n";

&ourFORM();

} 

#################################
5 = PIUUTHXSRIO:TINETYNCNROST = 5
#################################

• 2002 source code now also released - Ret. Founder Pengo 2005-10-11 13:16:44
  • groovy [nt] - 2nd Lt TanMonkey 2005-10-12 18:32:39
  • >some funny perl code: - Cpt CyberTNT 2005-10-11 18:52:41 <
    • yeah - Maj Goldfish 2005-10-11 20:16:46
    • RE: $ grep -r "#$% ./ -nt- - LtKer RadEvil 2005-10-11 18:58:25
  • RE: 2002 source code now also released - Maj Goldfish 2005-10-11 16:09:09