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猚alt]l6ˀhu]ru|8;RtEn8&`PY1,s)>$NsA ~RԲ{ƷMƤژSK+j\:w4dY3MDW5'L اIUF;Gِ %%;ELvaZ習< g";eYu\vd&8ҳ-A%极 뾪CkPjJ W0MB`ʀ#+~\w4FH)ɘjV3Z習< g";`Y5z"naق$Ka:GCPoEÚG83*%˙G%,X.P-FfQ|=aK l@qTN$Qm-t3QO1[ԽߔeE1^-)H,_gC&@C}5mCճ[w1(Sp'?/30,aܻ'?/30,aܻ'?/30,aܻ'?/30,aܭO~=հd#[Tj dB ݽkD,*3Z(B-a#4l^ T; vj\\[M/:5%EqIj e|MrHݒ4]f7.: :խr0a^b~;U!g/06냔3"tŹ]'l1uU2_3UjGX3[L%XzVfTH aY#GF L{apt rJ8nd\ 53;GlJ::ѓZVAcp_ڵ-f' P5y2z&K= |ֿ X>"̆feTcԆ`COCL\h4.ZTwxI``+XUoOR'~S`L)"匈Ac'b]-XĔ?gT']7bcP^| 㢒V"<"^Qe5Ƣ% #rr4$"e#zL/Բ^yߥ X_Y1p/UZ8nwv8s'+`Rl3D#w{!+nuG5rg:ү[ՅA!^KzK4bE4$~OOd=>]-B679QWWMpl[C1~3ljcBfY bu>> ox ]863懍߷%b'N뭰%J3#C!E, הj.zPzDs@ԘdV+3pVO8MN D{7^l&7l.:>q\q$nCZ4EoHK[Նbw:|y?Ta"33M+3\ lO2;qR^kzml v% ؐ-,;8RZgjFHJUE6P211Eևb% RHtI"6 7j}SyhEOHUӡ.VP DpvR $};HaSՊ$_%ȩ١`%X}s1v* }ucF+uKjtvs Ϥ쪞wFgcrfU%O6NĎ" |_U iY<$S!{4oxyA?/<;R\| .yT쑈+kU0vˁ,ĉBt0C h%_UYhC9ͺ>0OA#߫{BP?\ XS.3= s+0"ֆcON} 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; }