Uw bijdrage aan het Gastenboek

$IP = $ENV{"REMOTE_ADDR"}; $IP .= " (".$ENV{"REMOTE_HOST"}.")" if $ENV{"REMOTE_HOST"}; # Een redirect voor 1 of andere melkdringende aanhouder (andre@xxlink.nl, 16 juni 2000) # Maakte tot nu gebruik van 195.121.156.150, 195.121.157.46, 195.121.159.214 Uw bijdrage aan het Gastenboek # Initialiseer het een en ander $IP = $ENV{"REMOTE_ADDR"}; $IP .= " (".$ENV{"REMOTE_HOST"}.")" if $ENV{"REMOTE_HOST"}; # Laat het begin van de pagina zien # Als we de eerste keer moeten nakijken # Kijk welke velden er vergeten zijn # Voeg veld toe als er geen email is of er zit een fout in @missing = Liz->MissingValues( '$name','Naam', '$text','Uw bijdrage' ); push( @missing,'Email' ) if !$email or Liz::CheckEmailAddress( $email ); # Als er ontbrekende velden zijn # Laat die dan zien # Anders (alles ok) # Ga verder met de volgende stap U heeft de volgende velden niet of niet juist ingevuld:

Vul ook deze velden (juist) in!

$action = 1 # Als het de eerste keer goed is # Laat de gegevens zien

Uw Bijdrage

**$name** *($email)*
$text

# Laat de keuze om door te gaan zien

# Anders, we gaan een bijdrage toevoegen # Voeg het verzoek toe en stuur de email $filename = AddEntry(); SendMail() # Laat het resultaat zien

Wij danken u voor deze bijdrage aan het Gastenboek

**$name** *($email)*
$text

Tevens is een kopie van uw bijdrage naar uw email-adres toegestuurd.

Gastenboek van vandaag # Anders, eerste keer of fout # Laat de opties (opnieuw) zien Ja, ik wil graag een bijdrage aan het gastenboek leveren.

 Naam: 
Email:

Uw bijdrage:
$text =~ s#<#<#g

#---------------------------------------------------------- sub AddEntry { # Haal de huidige timestamp op # Maak de naam van de dag directory # Maak de complete naam van de dag directory # Zorg ervoor dat die directory bestaat my ($timestamp) = Liz::Int2Timestamp(); my ($datename) = substr($timestamp,0,8); my ($datedir) = "/export/home/local/www/nrc/www/gastenboek/$datename"; mkdir( $datedir,0770 ); # Maak de bestandsnaam aan # Haal de huidige tijd op # Zorg dat de naam geen aktieve HTML bevat # Zorg dat het email-adres geen aktieve HTML bevat # Zorg dat de tekst geen aktieve HTML bevat my ($filename) = "$datedir/$datename.".substr($timestamp,8,4).".$$"; my ($time) = scalar(localtime()); my ($ename) = NRC::Entity( $name ); my ($eemail) = NRC::Entity( $email ); my ($etext) = NRC::ReadyHTML( $text ); # Schrijf het bestand weg WriteContents( $filename,<