Ben's PINGU Page


ABOUT PINGU SOUNDS LINKS E-MAIL ME!


You Are Visitor #!/usr/bin/perl require 'cookie.lib'; if(&GetCookies() && $Cookies{'DisableCounter'}==1 && $Cookies{'Name'} eq "Ben" && $Cookies{'VerifyName_fortyzax'} eq "Ben") { print "location: /~anthonyc/ben/cgi-bin/rw/stats/$ENV{'QUERY_STRING'}.counter\n\n"; } else { print "location: /~anthonyc/ben/cgi-bin/stats.cgi?$ENV{'QUERY_STRING'}\n\n"; } exit(0);


A LITTLE BIT ABOUT PINGU


Pingu is a little penguin who lives in an igloo with his mum, dad and sister called Pinga. Pingu's best friend is called Pingo. He also has a friend called Robbie who is a seal. Pingu's dad is the postman. Pingu uses fish as money and often does silly things. He has lots of exciting adventures with his friends.

SOUNDS

All Files Are PC .wav Format
Pingu Theme Tune 104 KB
Sheet music for Pingu Theme Tune 5 KB
The famous "Mawk Mawk!" 36 KB
"PINGU!" 20 KB
Pingu sticking his tongue out at bullies 14 KB
Pingu laughing 16 KB
The sound Pingu makes when he's scared 26 KB
Pingu's best friend Pingo 30 KB
Pingu's friend yodelling 27 KB


LINKS

Pingu's Page Pingu FAQ, Poetry, Pictures, Sounds, etc.
K & Chieko's Pingu Gallery Lots of Pingu Stuff
JerkMedia A Large Selection of Pingu Sounds
YAHOO Search Yahoo For Pingu!


ABOUT PINGU
SOUNDS
E-MAIL ME!
By Ben Wales (PinguPage@iname.com) - Last Updated 30th May 1999 #!/usr/bin/perl require 'cookie.lib'; print "Content-type: text/html\n\n"; $temp=$ENV{'QUERY_STRING'}; @pairs=split(/&/,$temp); foreach $item(@pairs) { ($key,$content)=split (/=/,$item,2); $content=~tr/+/ /; $content=~ s/%(..)/pack("c",hex($1))/ge; $page=$content if($key eq "page"); } $machine=$ENV{'REMOTE_ADDR'}; $machine =~ s/^\s+|\s+$//g; @bytes = split (/\./, $machine); $packaddr = pack ("C4", @bytes); if (!(($machinename, $altnames, $addrtype, $len, @addrlist) = gethostbyaddr ($packaddr, 2))) { $machinename=$ENV{'REMOTE_ADDR'}; } if(&GetCookies('Name')) { $name=$Cookies{'Name'}; } else { $name=""; } open (LOGFILE, ">>rw/logs/$page.page"); print LOGFILE "$name, $machinename, $ENV{'REMOTE_ADDR'}, $ENV{'HTTP_USER_AGENT'}\n"; close (LOGFILE); exit(0); #!/usr/bin/perl require 'cookie.lib'; print "Content-type: text/html\n\n"; if(!&GetCookies('Name')) { exit(0); } else { $name=$Cookies{'Name'}; } if(!&GetCookies('VerifyName_fortyzax')) { exit(0); } else { $verify=$Cookies{'VerifyName_fortyzax'}; } if($name!=$verify) { exit(0); } $temp=$ENV{'QUERY_STRING'}; @pairs=split(/&/,$temp); foreach $item(@pairs) { ($key,$content)=split (/=/,$item,2); $content=~tr/+/ /; $content=~ s/%(..)/pack("c",hex($1))/ge; $page=$content if($key eq "page"); } $machine=$ENV{'REMOTE_ADDR'}; $machine =~ s/^\s+|\s+$//g; @bytes = split (/\./, $machine); $packaddr = pack ("C4", @bytes); if (!(($machinename, $altnames, $addrtype, $len, @addrlist) = gethostbyaddr ($packaddr, 2))) { $machinename=$ENV{'REMOTE_ADDR'}; } open (LOGFILE, ">>rw/logs/$name.user"); print LOGFILE "$page, $machinename\n"; close (LOGFILE); exit(0);