#!/usr/bin/perl print "Content-type: text/html\n\n"; # please review my photo of ducks print "
\n";
sub gf {
@foo=@_;
$size=scalar(@foo);
$pick=int(rand(scalar(@foo)));
# print "pick: $size/$pick\n";
return($foo[$pick]);
}
@please=("Please","Will you","Can you");
@review=("review","critique","identify");
@pronoun=("my","this photo of a","this");
@photo=("first try at street photos","duck","owl","bird","wedding","sunset","squirrel","flower","macro","great blue heron","dog","cat");
@animal=("squirrel","duck","bird");
@post=("Lets see","Post");
@postsof=("photos of","pictures of","your best","your favorite");
@tellme=("tell me","show me");
@gear=("aperture","fstop","of the 300D or XT","D70 or XT","5D or 1Ds Mk2","5D or 200D","20D or XT","post processing software","gallery software","telephoto","super wide angle","lens","walkaround lens","all purpose lens","batteries");
@isbest=("is the best","you use","you recommend");
@gotmy=("Just got my new","I just got a","First pics with my new","Yay! I just got my");
@camera=("300D","Rebel XT","350D","Digital Rebel","D70","10D","20D","5D");
@why=("Why are my","How come");
@subjects=("photos","pictures","images","snapshots");
@problem=("noisy","dark","washed out","crappy","boring","not as good as a pro","front focus","soft");
@always=("always","consistently","so");
@locs=("NYC","Grand Canyon","London","my backyard");
@awesome=("super sharp","awesome","the best camera ever","fantastic","better than my P&S");
@what=("What","Where","Who","Is there nything","Help me find something");
@terms=("MLU","FEC","ISO","f-stop","aperture","WB");
@puncq=("!","!!!",".","????","?");
@punc=("!","!!!",".");
$ppick=int(rand(scalar(@punc)));
$ppickq=int(rand(scalar(@puncq)));
$uselayout=0;
if ($uselayout) {
print "\n\n
|
\n"; print "This site is meant merely to parody, no harm intended.\n"; print "
Brought to you by Digital Rebel Tips & Tricks
\n"; print "
\n\n";