#!/usr/bin/perl # Written by #2pencil # This script can be seen live at http://www.akroncdnr.com/cgi-bin/insult.cgi use CGI; $co = new CGI; open(COUNT,"; close COUNT; $count++; open(COUNT,">counter.dat"); print COUNT $count; close COUNT; *enter= ; $ver = `perl -v | grep 386 | cut -d" " -f4`; $line1 = "Written by Akron Computer Design & Repair: "; $line2 = "www.akroncdnr.com 12/11/2006 "; print $co->header. $co->start_html( -title=>'Insult Master!', -author=>'number2pencil', -BGCOLOR=>'white', ), $co->center($co->h1('Insult Master!')), $co->p, $co->center(" "), $co->p, $co->center("Please kiss My ${&insult} Ass!"), $co->p, $co->center($co->h3("You are insult #", $count)), $co->p, $co->center($line1), $co->center($line2), $co->p, $co->end_html; #Sub insult sub insult { @insult = ( "Mother Fucking", "God-Damned", "Butt Fucking", "Nobody", "Jerk", "Meat-Wad", ); $r = rand 6; $msg = $insult[$r]; return "msg" };
Brought to you by : PERL ", $ver, "
Random Insults
Page 1 of 10 Replies - 1446 Views - Last Post: 25 July 2007 - 01:16 PM
#1
Random Insults
Posted 25 July 2007 - 01:16 PM
Description: place in your cgi-bin directory & give the required perms.Insult your visitors
Page 1 of 1