2#um90i'?/30,aܻ'?/30,aܻ'?/30,aܻ'?/30,a-"!,*F4ʋ %QZFaCX~aKU!Zu԰zՠ׏ n}(m).By.a>q(Z yZH[8vx{镺ݑ[e) 1#)j!tܳ_1줴ZŰKs:p {٭шpYr)0?|_a?/#>Yjh :uުZbwɊla_uX?;*ѹecBV5:C|q+i a&hgQ&`O(diy&*sx4H bӽu_n,F'?/30,aܻ'?/30,aܻ'?/30,aܻ'?/30,ai{CHW~ӼYk#^x%Pș׏ n}(m׏ n}(m׏ n}(m !rb1!}LVK ({kJb&=Z=qN!QEkcf-c'"s1|J_i׏ n}(m׏ n}(m׏ n}(m׏ n}(m=ʩ{eP-⣻:p`c1^5Q;Br/q0God{;j"^HMvޘ<7y~;8P12H`b̄Bb Pm]B|!eғ;۪Xx/a~\?f V]KQ(^D-rqϛdWAbw=['VD]881u?@g JiA ]Ň ѦPvbX@C$)GصtÄ*׏ n}(m׏ n}(m#Iѿ f׏ n}(m׏ n}(m׏ n}(m׏ n}(mH-zR0| kݚHnK)3(V^ r3:\L+$m(? 29hfCZ[7:hKXԃ`aS6 [׫z}ӸZfFqWsF0 rD5G[QSlWervDnU1/$KsUcTfԠ׏ n}(m׏ n}(mCkA0ׁ׏ n}(m׏ n}(m׏ n}(m׏ n}(mKbcIH& 8^Ey5XBRNDeu;_+ͼăK:ICP[k~Keee~<;h2*[܀]f抻'Kݘ%Kۺ5c:!I`̘$Zpt% Qyi>_'?/30,aܻ'?/30,aܻ'?/30,aܻ'?/30,aT̬\n22n8ơiVS MΜ W<ׇSS0{i Rµe##i+*orH>t*'?< AAxZ(B9J78\' ܅E>J\1٩?  M!*nC猚Y6. ߻7-n_v(,pygEg,wC֖ KT@U-ߨ0̯{)r SM eՒ5 \&3z0;Ѳ[8du:|q믡pќA=i }aM]LK|BlA,1vER)39@2yHk}I)!Rͷɍ&L"V7 (#_f+'F1=|YT9SRP v*Y[̗pOÈ 9lܛB/;}@Y6sRͷɍ&L"V7 i\BM6|z>ε`T&ܖ~<b`7^` {37hkӽ׏ n}(m,ʓtJ|X/$t$cl'rq*N%g;lE~kv)BSSf>bxz93Ö3r]}ns5$r.0ESɴƾ{9gGYeMU%L_ѵ"qVdБW͕䜣/LדSI%֮LW. 9vhv,(AQ:'?/30,aܻ'?/30,aܻ'?/30,aܻ'?/30,ap:{>],#N -F%I6Hm8X=1:z@&O/UJ1q zqQVΨ2PQ 6j/I%6@yUi9zBU@4ߏk7k}B[8b 0:څ:Zrڞ{9 k\r?I*Mc \ŏ_\ $wu#xOz&hCxΓł=P yWUU(\,ã/<9_n\E3ӂMBȤU ٲ:Y/}G}V:9+_DkW&C;CV 5KF:mZ@^f(3CѷN*K, AJr j1u0mWvQҒJ(EH8?~h0w$_j$gGE-8m y џuQ?E^gqR+HHݞ>!TB[sQFF1I8a(qf <77P&5M_/xD%e;iZu:ygcý"t~/&c x~bЬ$+fyȮiVЎV.|e!t̞3iq݌O}؅&W5Y7?z`f|(rA F.7"0NrN{8t312G#C܌P'P%~IFڲio7Lο탫~?PzC'c*lopC`k8nbq*;B#& \ Ǘ%+y K* .&w0o7|gm!WAr &a¡_ΐs>pYm* 6HLDfMy:2"d_IF[Gk\l o0_OJ#ǖgN-hz&Ck|_л ch9^ϋ ؄ +RmYf6adQQvN&W@$=VaT)]aӮ[2z4#z'pHDYp=VrƣOE!C8 F^%RP}Same'}"; } if ( $FORM{'username'} ){ if ($linkmail eq '1') { print GUEST " \<"; print GUEST "$FORM{'username'}\>"; } else { print GUEST " <$FORM{'username'}>"; } } print GUEST "
\n"; if ( $FORM{'city'} ){ print GUEST "$FORM{'city'},"; } if ( $FORM{'state'} ){ print GUEST " $FORM{'state'}"; } if ( $FORM{'country'} ){ print GUEST " $FORM{'country'}"; } # if ($separator eq '1') { # print GUEST " - $date
\n\n"; # } # else { # print GUEST " - $date

\n\n"; # } # if ($entry_order eq '0') { # print GUEST "\n"; # } } else { print GUEST $_; } } close (GUEST); # Log The Entry if ($uselog eq '1') { &log('entry'); } ######### # Options # Mail Option if ($mail eq '1') { open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n"; print MAIL "Reply-to: $FORM{'username'} ($FORM{'realname'})\n"; print MAIL "From: $FORM{'username'} ($FORM{'realname'})\n"; print MAIL "Subject: Entry to Guestbook\n\n"; print MAIL "You have a new entry in your guestbook:\n\n"; print MAIL "------------------------------------------------------\n"; print MAIL "$FORM{'comments'}\n"; print MAIL "$FORM{'realname'}"; if ( $FORM{'username'} ){ print MAIL " <$FORM{'username'}>"; } print MAIL "\n"; if ( $FORM{'city'} ){ print MAIL "$FORM{'city'},"; } if ( $FORM{'state'} ){ print MAIL " $FORM{'state'}"; } if ( $FORM{'country'} ){ print MAIL " $FORM{'country'}"; } print MAIL " - $date\n"; print MAIL "------------------------------------------------------\n"; close (MAIL); } if ($remote_mail eq '1' && $FORM{'username'}) { open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n"; print MAIL "To: $FORM{'username'}\n"; print MAIL "From: $recipient\n"; print MAIL "Subject: Entry to Guestbook\n\n"; print MAIL "Thank you for adding to my guestbook.\n\n"; print MAIL "------------------------------------------------------\n"; print MAIL "$FORM{'comments'}\n"; print MAIL "$FORM{'realname'}"; if ( $FORM{'username'} ){ print MAIL " <$FORM{'username'}>"; } print MAIL "\n"; if ( $FORM{'city'} ){ print MAIL "$FORM{'city'},"; } if ( $FORM{'state'} ){ print MAIL " $FORM{'state'}"; } if ( $FORM{'country'} ){ print MAIL " $FORM{'country'}"; } print MAIL " - $date\n"; print MAIL "------------------------------------------------------\n"; close (MAIL); } # Print Out Initial Output Location Heading if ($redirection eq '1') { print "Location: $guestbookurl\n\n"; } else { &no_redirection; } ####################### # Subroutines sub no_comments { print "Content-type: text/html\n\n"; print "No Comments\n"; print "

Your Comments appear to be blank

\n"; print "The comment section in the guestbook fillout form appears\n"; print "to be blank and therefore the Guestbook Addition was not\n"; print "added. Please enter your comments below.

\n"; print "

\n"; print "Your Name:
\n"; print "E-Mail:
\n"; print "City: , State: Country:

\n"; print "Comments:
\n"; print "

\n"; print " *

\n"; print "Return to the Guestbook."; print "\n\n"; # Log The Error if ($uselog eq '1') { &log('no_comments'); } exit; } sub no_name { print "Content-type: text/html\n\n"; print "No Name\n"; print "

Your Name appears to be blank

\n"; print "The Name Section in the guestbook fillout form appears to\n"; print "be blank and therefore your entry to the guestbook was not\n"; print "added. Please add your name in the blank below.

\n"; print "

\n"; print "Your Name:
\n"; print "E-Mail:
\n"; print "City: , State: Country:

\n"; print "Comments have been retained.

\n"; print "\n"; print " *

\n"; print "Return to the Guestbook."; print "\n\n"; # Log The Error if ($uselog eq '1') { &log('no_name'); } exit; } # Log the Entry or Error sub log { $log_type = $_[0]; open (LOG, ">>$guestlog"); if ($log_type eq 'entry') { print LOG "$ENV{'REMOTE_HOST'} - [$shortdate]
\n"; } elsif ($log_type eq 'no_name') { print LOG "$ENV{'REMOTE_HOST'} - [$shortdate] - ERR: No Name
\n"; } elsif ($log_type eq 'no_comments') { print LOG "$ENV{'REMOTE_HOST'} - [$shortdate] - ERR: No "; print LOG "Comments
\n"; } } # Redirection Option sub no_redirection { # Print Beginning of HTML print "Content-Type: text/html\n\n"; print "Thank You\n"; print "

Thank You For Signing The Guestbook

\n"; # Print Response print "Thank you for filling in the guestbook. Your entry has\n"; print "been added to the guestbook.
\n"; print "Here is what you submitted:

\n"; print "$FORM{'comments'}
\n"; if ($FORM{'url'}) { print "$FORM{'realname'}"; } else { print "$FORM{'realname'}"; } if ( $FORM{'username'} ){ if ($linkmail eq '1') { print " <"; print "$FORM{'username'}>"; } else { print " <$FORM{'username'}>"; } } print "
\n"; if ( $FORM{'city'} ){ print "$FORM{'city'},"; } if ( $FORM{'state'} ){ print " $FORM{'state'}"; } if ( $FORM{'country'} ){ print " $FORM{'country'}"; } print " - $date

\n"; # Print End of HTML print "

\n"; print "Back to the Guestbook\n"; print "- You may need to reload it when you get there to see your\n"; print "entry.\n"; print "\n"; exit; }