#!/usr/bin/perl $picture_exists=11; $picture_needed=4; require('cgi-lib.pl'); &ReadParse(); $sendername=$in{'sendername'}; $sendermail=$in{'sendermail'}; $recipname=$in{'recipname'}; $recipmail=$in{'recipmail'}; print "Content-type: text/html\n\n"; print qq{ Sopron - Képeslapok Képeslapok - Postcards



A Te neved - Your name
A Te email-cimed - Your email-address
A címzett neve - Recipient's name
A címzett email-címe - Recipient's email-address
Üzenet - Your message
Kattints a képre, amit el akarsz küldeni - Click on a picture to send
}; opendir(D,"../cardpic/"); @dir=readdir(D); closedir D; @dir=grep(/\.jpg$/,@dir); for ($i=0;$i<$picture_needed;$i++) { srand; $x=int(rand($#dir)); push @card_name,$dir[$x]; @dir=grep(!/$dir[$x]/i,@dir); } foreach (@card_name) { print qq{ }; } print q{

Sopron Home Programmed by Held Design by turtle
};