#!/usr/bin/perl
require "/home/grumil/public_html/guest/HTMfiles/cgi-library.pl";
$HOST = $ENV{'REMOTE_HOST'};
$guestbook_log ='guestbooks.dat';
$guestbook_helppage='http://tph16.tuwien.ac.at/~grumil/guest/HTMfiles/help.htm';
$progurl = 'http://tph16.tuwien.ac.at/~grumil/guest/HTMfiles/guestbook.cgi';
$tempfile = 'guestbook.tmp1';
$temp2 = 'guestbook.tmp2';
$mailprog = '/usr/lib/sendmail';
##############################################################################
# Get the variables passed down via the web
&ReadParse;
$rw_book = $in{'rw'}; # rw must be either 'read' or 'write'.
$varfile = $in{'varfile'};
# This definies the filename, where all
# parameters I explained above gave to be
# written in.
$name = $in{'name'}; # Eingabe: Name des USers
$email = $in{'email'}; # Eingabe: Email des Users
$text = $in{'text'}; # Eingabe: Text des Users
$homepage = $in{'homepage'}; # Eingabe: Homepage des Users
$input_zeit = $in{'input_zeit'}; # Eingabe: Zeit der Eingabe.
# The following constants can be written in the $varfile, but it works here too
$HTML_TOP = $in{'HTML_TOP'};
$HTML_BOT = $in{'HTML_BOT'};
# These both fields are making most of the following design-variables
# obsolvent. The old variables are only left for compatibility
# In HTML_TOP you can insert the filename where the html-code of
# the text before the main part of the guestbook comes,
# and in HTML_BOT you can set the file for the HTML-code after the
# main book part.
$hintergrund = $in{'hintergrund'};
# background of the book (-tag) for the old version...
$bodytag = $in{'bodytag'};
# bodytags for html, replaces background! ()
$titel = $in{'titel'} || 'Guestbook';
# Title of the book
$kopf = $in{'top'} || ' ';
# Here, you can give in HTML-code, the head of your document. Esp. If
# you like to have icons there. The title is after it!
$bottom = $in{'bottom'};
# Same as above, but it will be at the bottom
$book_file = $in{'book'};
# Text-File of the book
$forbit_html = $in{'forbit_html'} || 0;
# If this is set to 1, no html-tags are allowed
$counter = $in{'counter'} || 0;
# 0 = Counter off, 1 = Dumb Counter on, 2 = HideCounter and normal on.
# The numbers of accesses of the normal counter will
# be written in the file $varfile, if it was set to 1
# If the hidecounter is on, the hosts/accesses will be written in
# another file too.
$ignore = $in{'ignore'} || 'off';
$allow_home = $in{'allow_home'} || 1;
# 1 = Feld fuer Homepage da, 0 = ohne Feld.
$language = $in{'language'} || 'german';
# default=german, english possible in the future
$need_mail = $in{'need_mail'} || 0;
# 0 or 1. If 1, then the user has to enter an email. If 0, it don't
# matter, if he lets it out. But notice, that if this value is 0,
# no mail will be send to the user of writing a message.
$answer_mail = $in{'answer_mail'} || 0;
# 1 or 0, If 1 is set the author of a new entry will get a 'thank'-mail
$new_file = $in{'new_file'};
# If this field is given, a html-file named new_file will be created,
# in which all entrys will be written.
$seperator = $in{'seperator'} || '';
#
or . Is for the deviding of the entrys in the book
$add_beginning = $in{'add_beginning'} || 1;
# 1 or 0. If 1 is set the entry will inserted at the top of the document.
$italic = $in{'italic'} || 1;
# If 1 the text of the entries will be displyed italic.
$pre_text = $in{'pre_text'};
$entry_ask = $in{'entry_ask'};
$past_text = $in{'past_text'};
# This is the message, which is displayed above the guestbook-data.
# entry_ask is the text, with the link to the input of new entries, why pre_text
# and past_text are surrounding this field.
# Notice: If $entry_ask is set to 'none', it won't be displayed.
if ($need_mail == 0) {$answer_mail=0;}
if ($italic ==1) {$starti = ''; $stopi = '';}
else {$starti = ''; $stopi='';}
$varfile=&Check_Name($varfile);
#########################Main program is starting here#########################
print(&PrintHeader);
if (!($varfile)) { &Fehlermeldung("You gave no $varfile!
The guestbook cannot run without it");}
&LadeParameter;
&AutoRemove;
if (($rw_book eq 'read') && ($counter)) {
if ($counter == 2) {
# Call for the hidecounter, if he was set on.
$kurz=$book_file.','.$ignore;
&Hidecount($kurz);
} else {
# Add 1 to the dumb counter:
$access++;
&SaveParameter;
}
}
if ($HTML_TOP) {
open (f5,"<$HTML_TOP") || &Fehlermeldung("Cannot open HTML_TOP: $HTML_TOP ");
while() {
chop($_);
print "$_\n";
}
close f5;
} else {
if (!($bodytag)) {$bodytag='background="'.$hintergrund.'"';}
$kurz=$titel.','.$bodytag.','.$kopf;
&HtmlTop($kurz);
}
if ($rw_book eq 'write') { $dismiss=0;&new_entry; }
elsif ($rw_book eq 'dismiss') { $dismiss=1;&new_entry; }
elsif ($rw_book eq 'save') { &check_entry;}
elsif ($rw_book eq 'save_now') { &save_entry; }
else { # Read all entrys
if ($entry_ask eq 'none') {print "$pre_text $past_text\n";}
else {print "$pre_text $entry_ask $past_text\n";}
if ($language eq 'german') {
if ($counter) {print "
Diese Seite wurde bisher 1783$access mal aufgerufen.\n";}
} elsif ($language eq 'english') {
if ($counter) {print "
This page was accessed $access times.\n";}
}
print "
\n";
&read_data;
}
if ($HTML_BOT) {
open (f5,"<$HTML_BOT") || &Fehlermeldung("Cannot open HTML_BOT: $HTML_BOT");
while() {
chop($_);
print "$_\n";
}
close f5;
} else {
print "$bottom
\n";
print "
";
print "Script written by\n";
print "somebody else
";
print "
\n";
}
exit;
############################Sub are starting here##############################
sub LadeParameter { # Loads the parameters
if (!(-r $varfile)) {
$kurz='Cannot read varfile: '.$varfile.' !';
&Fehlermeldung($kurz);
}
open (VAR, "<$varfile") || &Fehlermeldung("Cannot read $varfile");
&NLock($varfile);
@zeilen=;
chop(@zeilen);
for ($i=0; $i <= $#zeilen; $i++) {
if (index($zeilen[$i],'#') == 1) {print("beep!");}
else {
if ($zeilen[$i] eq 'END') {}
else {
($vname,$vworth)=split('==',$zeilen[$i]);
if ($vname eq 'hintergrund') {$hintergrund=$vworth;}
if ($vname eq 'bodytag') {$bodytag=$vworth;}
if ($vname eq 'titel') {$titel=$vworth;}
if ($vname eq 'top') {$kopf=$vworth;}
if ($vname eq 'pre_text') {$pre_text=$vworth;}
if ($vname eq 'entry_ask') {$entry_ask=$vworth;}
if ($vname eq 'past_text') {$past_text=$vworth;}
if ($vname eq 'bottom') {$bottom=$vworth;}
if ($vname eq 'book') {$book_file=$vworth;}
if ($vname eq 'forbit_html') {$forbit_html=$vworth;}
if ($vname eq 'counter') {$counter=$vworth;}
if ($vname eq 'ignore') {$ignore=$vworth;}
if ($vname eq 'allow_home') {$allow_home=$vworth;}
if ($vname eq 'language') {$language=$vworth;}
if ($vname eq 'seperator') {$seperator=$vworth;}
if ($vname eq 'italic') {$italic=$vworth;}
if ($vname eq 'answer_mail') {$answer_mail=$vworth;}
if ($vname eq 'need_mail') {$need_mail=$vworth;}
if ($vname eq 'ACCESS') {$access=$vworth;}
if ($vname eq 'add_beginning') {$add_beginning=$vworth;}
if ($vname eq 'tempfile1') {$tempfile=$vworth;}
if ($vname eq 'tempfile2') {$temp2=$vworth;}
if ($vname eq 'HTML_BOT') {$HTML_BOT=$vworth;}
if ($vname eq 'HTML_TOP') {$HTML_TOP=$vworth;}
if ($vname eq 'AUTO_REMOVE') {$AUTO_REMOVE=$vworth;}
}
}
}
&NUnlock($varfile);
close (VAR);
$book_file=&Check_Name($book_file);
$HTML_TOP=&Check_Name($HTML_TOP);
if ($HTML_TOP eq 'illegal_filename') {$HTML_TOP='';}
$HTML_BOT=&Check_Name($HTML_BOT);
if ($HTML_BOT eq 'illegal_filename') {$HTML_BOT='';}
if ($need_mail == 0) {$answer_mail=0;}
if ($italic ==1) {$starti = ''; $stopi = '';}
else {$starti = ''; $stopi='';}
if ((!($pre_text)) && (!($entry_ask)) && (!($past_text))) {
if ($language eq 'german') {
$pre_text='Hier kannst Du die Einträge im Gästebuch lesen und sogar';
$entry_ask='eigene Einträge';
$past_text='machen. Viel Spass.';
} else {
$pre_text='Here you can read all entries of the guestbook or';
$entry_ask='make own entries.';
$past_text='Have fun';
}
}
if (($pre_text) && ($past_text) && (!($entry_ask))) {$entry_ask=$pre_text;$pre_text='';}
# Call system to look up file info like "ls" does:
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime) = stat($varfile);
# Call system to associate login and name with uid:
($login,$passwd,$uid,$gid,$quota,$comment,$realname,$dir,$shell) = getpwuid($uid);
}
#####################################################################################
sub new_entry { # Here a new entry can be written
# New entry in the guestbook
local($shorttext,$short_laenge);
if ($language eq 'english') {
print "Now you can add your own entry for the guestbook.\n";
if ($forbit_html == 1) {print "Please notice, that HTML-tags arn't allowed.\n";}
else {print "HTML-Tags will be permitted\n";}
print "\n";
print "- \n";
print "
\n";
}
else {
print "Jetzt kannst Du einen neuen Eintrag in das Gästebuch machen.\n";
if ($forbit_html == 1) {print "Bitte beachte, dass HTML-Tags nicht angenommen werden.\n";}
else {print "HTML-Tags werden innerhalb des Textfeldes unterstützt.\n";}
print "\n";
print "- \n";
print "
\n";
}
}
#####################################################################################
sub Fehlermeldung { # Gibt Fehlermeldungen aus
local($fehlertext)=@_;
if ($HEADER) {&HtmlTop(',,');}
print "\n";
print "
The following failure was detected:
\n";
print "
$fehlertext
\n";
print "";
print "
There is a help avaible for this. Check out: \n";
print "Informations about the guestbook\n";
print "
";
print "Skript written by somebody else";
exit(0);
}
#####################################################################################
sub check_entry {
my($server,$subpage);
if (length($homepage) < 11) {$homepage="";}
if (($allow_home) && ($homepage =~ /http/)) {
$server=substr($homepage,7,length($homepage));
$subpage=substr($server,index($server,'/'),length($server));
$server=substr($server,0,index($server,'/'));
$status = &httpstatus($server,$subpage);
if ($status >= 400) {$homepage='';}
}
if ((! $name) || ((! $email) && ($need_mail==1)) || (! $text)) {
if ($language eq 'german') {
print "
Du hast nicht alle nötigen Felder ausgefüllt!\n";
if (! $name) { print "Wenn du schon anonym bleiben willst, erfinde wenigstens einen Namen!\n";}
if ((! $email) && ($need_mail==1)) { print "Bitte email angeben! \n";}
if (! $text) { print "Zumindest ein Buchstabe Text wä\n";}
print "
\n";
print "
oder ";
print "\n";
} else {
print "
You gave not all important entrys!\n";
if (! $name) { print "Oh! You gave no name??\n";}
if ((! $email) && ($need_mail ==1)) { print "Strange! No EMail?! \n";}
if (! $text) { print "Hohoho! A message without text??\n";}
print "
\n";
print "
or ";
print "\n";
}
}
else {
# First of all, I save the text, to avoid problems with HTML-tags if I would
# use this values as hidden-objects in the following input-form.
open(f1,">$temp2") || print "Error Cannot open $tempmess";
print f1 "$text\n";
close f1;
# Now the preview:
&preview;
}
}
#####################################################################################
sub preview { # Here the users will get a preview of their new entry
local($shorttext,$short_laenge);
if ($language eq 'german') { print "
Voransicht:
\n";}
else {print "Preview:
\n";}
print "$seperator";
$i=0;
open(f1, "<$temp2") || print "Error Cannot open $tempmess";
&NLock($temp2);
while() {
chop($_);
$shorttext[$i]=$_;
$shorttext[$i]=$shorttext[$i].'
';
$i++;
}
&NUnlock($temp2);
close f1;
$short_laenge=$i;
if (($allow_home==1) && ($homepage)) {
print "$name";
} else {print "$name";}
if ($email) {print " ($email), $zeit";}
else {print ", $zeit";}
print "";
for ($i=0;$i<$short_laenge;$i++) {
print "
$starti $shorttext[$i] $stopi\n";
}
&EndHtmlTags(1);
print "$seperator\n";
print "
\n";
if ($language eq 'german') {
print " or ";
print "\n";
} else {
print " or ";
print "\n";
}
print "";
}
#####################################################################################
sub save_entry { # I will now save the entry
local($shorttext,$short_laenge);
# First check for HTML-Tags
$name =~ s/<([^>]|\n)*>//g;
$email =~ s/<([^>]|\n)*>//g;
$homepage =~ s/<([^>]|\n)*>//g;
$i=0;
open(f1, "<$temp2") || print "Error Cannot open $temp2";
&NLock($temp2);
while() {
chop($_);
$shorttext[$i]=$_;
$shorttext[$i] =~ s/]|\n)*>//g;
$shorttext[$i] =~ s/]|\n)*>//g; # No Meta
$shorttext[$i] =~ s/