Termin-Anfrage

#!/usr/bin/perl -w my $base = "/wwwdata/html/ereignismanagement"; ############################################################################### ############################################################################### ## ## Skript zur Weiterleitung einer Termin-Anfrage (Allergo) per eMail ## ############################################################################### ## #### ## Variablen-Definitionen #### @_ = localtime(); my $date = sprintf( "%02.2d.%02.2d.%04.4d", $_[3], $_[4]+1, $_[5]+1900); my $year= sprintf( "%02.2d", $_[5]-100); my $LogFiles = "$base/admin/LogFiles"; # Verzeichnis der Protokoll-Dateien my $zaehlerfile = "$base/admin/Stammdaten/zaehlerfile_terminanfrage_allergo.log"; # Zähler der Terminanfragen my $zaehler = ''; my %mail; my $mailZiel = 'whoever@whatever.de'; # Ziel-Mailaddresse my @error; # Sammlung von Skriptfehler-Meldungen my $log = 1; # Skript-Protokollierung ein-(1) bzw. aus(0)-schalten # ######## Mail Parameter setzen ######### # my $sender = 'Webserver '; my $server = 'IP-Adresse'; $mail{From} = $sender; $mail{Smtp} = $server; #### ## CGI Modul verknüpfen #### use CGI; my $cgi = new CGI; #### ## Skript-Protokollierung initiieren #### $| = 1; if( $log ) { open LOG, ">$LogFiles/terminanfrage_allergo.log"; print LOG "Datum: $date\nProtokolldatei des Skriptes terminanfrage_allergo.pl\n\n"; } #### ## Definition von Routinen #### sub scriptAbbruch { print "content-type: text/html "; while( $#error >= 0 ) { if( $log ) { print LOG "Die Routine scriptAbbruch wurde aufgrufen (LOOP 1):\n"; } $_ = shift @error; print "

$_\n"; } while( $#_ >= 0 ) { if( $log ) { print LOG "Die Routine scriptAbbruch wurde aufgrufen (LOOP 2):\n"; } $_ = shift @_; print "

$_\n"; } print '

Bitte benachrichtigen Sie uns kurz (Mail: aaa@ccc.de) über den soeben aufgetretenen Fehler, damit wir ihn beseitigen können. Vielen Dank!

'; print " "; exit 0; } ##################################### ## Skript Teil I -> Informationen von Webseite übernehmen ##################################### my $Allergologe = $cgi->param("allergologe"); my $Diagnose = $cgi->param("Diagnose"); my $Name = $cgi->param("Name"); my $Vorname = $cgi->param("Vorname"); my $GebDat = $cgi->param("GebDat"); my $wdvst = $cgi->param("wdvst"); my $Tel1 = $cgi->param("Tel1"); my $Tel2 = $cgi->param("Tel2"); my $TelZeit = $cgi->param("TelZeit"); ##################################### ## Skript Teil II -> Zähler anpassen ##################################### open IN, "<$zaehlerfile" or scriptAbbruch("Konnte Zählerdatei nicht finden. (Hinweis: $!)"); while( ) { $zaehler = $_; $zaehler++; } close IN; open OUT, ">$zaehlerfile" or scriptAbbruch("Konnte Zählerdatei nicht öffnen. (Hinweis: $!)"); print OUT $zaehler; close OUT; ##################################### ## Skript Teil IV -> Mail-Versand ##################################### use lib "/wwwdata/html/ereignismanagement/lib"; use Mail::Sendmail; $mail{To} = $mailZiel; $mail{Subject} = 'Termin-Anfrage'; $mail{Message} .= "UEBER DIE WEBSEITEN EINGEGANGENE TERMIN-ANFRAGE MIT BITTE UM RÜCKRUF!\n*********************************************************************\n\n"; $mail{Message} .= "PATIENTEN-DATEN Name: $Name\n"; $mail{Message} .= " Vorname: $Vorname\n"; $mail{Message} .= " geboren: $GebDat\n\n"; $mail{Message} .= "WIEDERVORSTELLER? $wdvst\n\n"; $mail{Message} .= "ANGABE AUF DER ÜBERWEISUNG:\n$Diagnose\n\n"; $mail{Message} .= "ERREICHBARKEIT des Patienten: Tel.: $Tel1 oder Tel.: $Tel2\n\nEINSCHRÄNKUNG DER ERREICHBARKEIT?\n$TelZeit\n\n"; sendmail %mail; ##################################### ## Skript Teil III -> Feedback an Browser ##################################### print < Termin-Anfrage

Termin-Anfrage

Ihre Termin-Anfrage wurde erfolgreich abgeschickt!

Wie werden versuchen, Sie in den nächsten Tagen unter den von Ihnen angegebenen Telefonnumern anzurufen, um einen geeigneten Vorstellungstermin mit Ihnen zu vereinbaren. Bitte haben Sie Verständnis dafür, dass es einige Tage dauern kann, bis der Rückruf erfolgt.
DANKE.

Mit freundlichen Grüßen,
Ihre Bla bla bla

HINWEIS
Rückrufe erfolgen ausschließlich während unserer Öffnungszeiten
Wir rufen weder abends noch an Wochenenden zurück.

EOF #################################### ## end of script #################################### if( $log ) { close LOG; } exit 0;