VietFun - Ca?nh -De.p VietNam PostCard Desk!

#!/usr/local/bin/perl &parse_form; &quangle; sub quangle { $random_file = "/opt2/home3/binhminh/public_html/random.txt"; $delimiter = "\n"; open(FILE,"$random_file") || &error('open->random_file',$random_file); @FILE = ; close(FILE); $phrases = join('',@FILE); @phrases = split(/$delimiter/,$phrases); srand(time ^ $$); $phrase = rand(@phrases); $tom = $phrases[$phrase]; print "Content-type: text/html\n\n"; print " VietFun - Ca?nh -De.p VietNam PostCard Desk! $\"Ca?nh$

$tom

To send the postcards, please complete 10 steps below!

Step 1) Select a picture that you want to send!

"; print "

Step 2: Please Choose Music You Like
"; print " "; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "

Anh là tia nå'ng trong em "; print "	Chiê`u mô.t mình qua phô' "; print "	Cho anh xin sô' nhà "; print "	Co*n mua ha. "; print "
Cô bé dô~i ho*`n "; print "	Dòng sông ky? niê.m "; print "	Ðu*`ng xa em ðêm nay "; print "	Gå.p nhau làm ngo* "; print "
Lòng me. "; print "	Mu*a ngâu "; print "	Muo`i nåm tình cu? "; print "	Nguo`i tình muà ðông "; print "
Nguo`i tình tråm nåm "; print "	Nguo`i tình yêu dâ'u "; print "	Quy`nh Huong "; print "	Sáu muoi nåm cuô.c ðo*`i "; print "
Tuô?i thâ`n tiên "; print "	Tình cho không "; print "	Tình em trao anh "; print "	Và con tim ðã vui tro*? la.i "; print "
999 DDoa' Hoa Ho^`ng "; print "	Eternal Flame "; print "	Quit Playing Games With My Heart "; print "	That's Why You Go Away "; print "
2 Become One "; print "	All My Life "; print "	Barbie Girl "; print "	Romance "; print "
Everything I do, I do it for you "; print "	Feelings "; print "	Greatest Love Of All "; print "	Hotel California "; print "
How Deep is Your Love "; print "	I always Love you "; print "	I Do it do it for you "; print "	I swear "; print "
Kiss From a Rose "; print "	Let it be "; print "	Love Story "; print "	Only You "; print "
Don't Speak "; print "	Happy Birth Day "; print "	Pretty Woman "; print "	Wish You Were Here "; print "
Romeo and Juliet "; print "	My Heart Will Go On "; print "	When a Man Loves a Woman "; print "	Without You "; print "

"; print "

Step 3) Select the font color that you want!"; print "
"; print " "; print " teal "; print " "; print " purple "; print " "; print " maroon "; print " "; print " lime "; print " "; print " gold
"; print " "; print " dodgerblue "; print " "; print " cyan "; print " "; print " green "; print " "; print " deepskyblue "; print " "; print " aqua
"; print " "; print " olive "; print " "; print " gray "; print " "; print " black "; print " "; print " brown "; print " "; print " violet
"; print " "; print " khaki"; print " "; print " turquoise "; print " "; print " blueviolet "; print " "; print " yellowgreen "; print " "; print " tan
"; print " "; print " silver "; print " "; print " red "; print " "; print " blue "; print " "; print " navy "; print " "; print " white
"; print " "; print " fuchsia "; print " "; print " yellow "; print " "; print " midnightblue "; print " "; print " forestgreen "; print " "; print " orange

"; print " Step 4) Select your background color!"; print " "; print "
"; print " teal "; print " "; print " purple "; print " "; print " maroon "; print " "; print " lime "; print " "; print " gold
"; print " "; print " dodgerblue "; print " "; print " cyan "; print " "; print " green "; print " "; print " deepskyblue "; print " "; print " aqua
"; print " "; print " olive "; print " "; print " gray "; print " "; print " black "; print " "; print " brown "; print " "; print " violet
"; print " "; print " khaki "; print " "; print " turquoise "; print " "; print " blueviolet "; print " "; print " yellowgreen "; print " "; print " tan
"; print " "; print " silver "; print " "; print " red "; print " "; print " blue "; print " "; print " navy "; print " "; print " white
"; print " "; print " fuchsia "; print " "; print " yellow "; print " "; print " midnightblue "; print " "; print " forestgreen "; print " "; print " orange
"; print "

Step 5) Select the Background:"; print " "; print " "; print " "; print " "; print " "; print " "; print " "; print " "; print " "; print " "; print " "; print " "; print " "; print " "; print " "; print " "; print " "; print "
"; print " "; print " "; print " "; print " "; print " "; print " "; print "
"; print " "; print " "; print " "; print " "; print " "; print "
"; print " "; print " "; print " "; print " "; print " "; print "
"; print "

Step 6) Enter emails and names "; print " "; print " "; print " "; print " "; print " "; print " "; print " "; print " "; print " "; print "

Your Name:
Your E-Mail Address:
Recipient's Name:
Recipient's E-Mail Address:

"; print "

Step 7) Input the beginning quotes! "; print ""; print "

Dear, Nga"; print "
Hello, Phuong"; print "
What's up, Linda"; print "

"; print "

"; print "Step 8) Enter Your message for beginning Postcard!"; print ""; print " "; print "
"; print " "; print "

"; print "Step 9) Enter the message for end postcard"; print ""; print "

"; print "
Love, Baby"; print "
Best Wishes, RedRose"; print "
Me!"; print "

"; print "
"; print "

"; exit; } sub parse_form { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if (length($buffer) < 5) { $buffer = $ENV{QUERY_STRING}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $input{$name} = $value; } }

"; print " "; print " teal	"; print " "; print " purple	"; print " "; print " maroon	"; print " "; print " lime	"; print " "; print " gold
"; print " "; print " dodgerblue	"; print " "; print " cyan	"; print " "; print " green	"; print " "; print " deepskyblue	"; print " "; print " aqua
"; print " "; print " olive	"; print " "; print " gray	"; print " "; print " black	"; print " "; print " brown	"; print " "; print " violet
"; print " "; print " khaki"; print "	"; print " turquoise	"; print " "; print " blueviolet	"; print " "; print " yellowgreen	"; print " "; print " tan
"; print " "; print " silver	"; print " "; print " red	"; print " "; print " blue	"; print " "; print " navy	"; print " "; print " white
"; print " "; print " fuchsia	"; print " "; print " yellow	"; print " "; print " midnightblue	"; print " "; print " forestgreen	"; print " "; print " orange

"; print " teal	"; print " "; print " purple	"; print " "; print " maroon	"; print " "; print " lime	"; print " "; print " gold
"; print " "; print " dodgerblue	"; print " "; print " cyan	"; print " "; print " green	"; print " "; print " deepskyblue	"; print " "; print " aqua
"; print " "; print " olive	"; print " "; print " gray	"; print " "; print " black	"; print " "; print " brown	"; print " "; print " violet
"; print " "; print " khaki	"; print " "; print " turquoise	"; print " "; print " blueviolet	"; print " "; print " yellowgreen	"; print " "; print " tan
"; print " "; print " silver	"; print " "; print " red	"; print " "; print " blue	"; print " "; print " navy	"; print " "; print " white
"; print " "; print " fuchsia	"; print " "; print " yellow	"; print " "; print " midnightblue	"; print " "; print " forestgreen	"; print " "; print " orange