0 Replies - 1446 Views - Last Post: 25 July 2007 - 01:16 PM

#1 no2pencil   User is offline

  • Professor Snuggly Pants
  • member icon

Reputation: 6824
  • View blog
  • Posts: 31,471
  • Joined: 10-May 07

Random Insults

Posted 25 July 2007 - 01:16 PM

Description: place in your cgi-bin directory & give the required perms.Insult your visitors
#!/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("
Brought to you by : PERL ", $ver, "
"), $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" };


Is This A Good Question/Topic? 0
  • +

Page 1 of 1