#!/usr/bin/perl # Coded by Chump # Computerized Police Sketch Artist Script # For use by: Jim Casey @ PoliceGuide.Com # Version 1.0 BETA read(STDIN,$info,$ENV{'CONTENT_LENGTH'}); @sketch = split(/&/,$info); foreach $x (0..$#sketch) { $sketch[$x] =~ tr/+/ /; ($key,$val) = split(/=/,$sketch[$x],2); $key =~ s/%(..)/pack("c",hex($1))/ge; $val =~ s/%(..)/pack("c",hex($1))/ge; # No HTML/SSI/CR allowed $val =~ s/<([^>]|\n)*>//ge; $sketch{$key} .= $val; } print "Content-type: text/html\n\n"; # first page... if (uc($sketch{'yet'}) ne 'NOW') { pageone(); exit 0; } # last page w/mailer... if (uc($sketch{'final'}) eq 'NOW') { pagethree(); exit 0; } # wait page... pagetwo(); exit 0; sub pageone() { print <<'end_html'; PoliceGuide Computerized Police Sketch Artist Welcome to the
PoliceGuide Computerized Police Sketch Artist.


This FREE service will draw a sketch based on the
description details you provide.

Please fill out the following form
describing as many details as possible:
Sex: Male Female
Age:
Ethnic Background:
Facial Shape: High forehead High cheekbones
Fat Skinny
Wide Narrow
Complexion:
Hair Style:
Hair Color:
Hair:
Facial Hair: MustacheGoatie
BeardSideburns
Eyebrows:
Eye Color:
Eyes:
Teeth:
Nose:
Scars (location/length):



Copyright © Policeguide, 1996-2000, all rights reserved. end_html } sub pagetwo() { print <<'end_html'; PoliceGuide Computerized Police Sketch Artist
The PoliceGuide Computerized Sketch Artist is now rendering your picture...



* Please Wait *














Copyright © Policeguide, 1996-2000, all rights reserved. end_html } sub pagethree() { print <<'end_html'; PoliceGuide Computerized Police Sketch Artist The Computerized Sketch Artist has rendered the picture below based on your features:




||
||
||
||
S||
C||D
R||O
O||W
L||N
L||
||
||
||
\/

Rendered Drawing
Intended for entertainment purposes only.



Click here to Refer-A-Friend.



















Copyright © Policeguide, 1996-2000, all rights reserved.

Click Here! end_html }