nicht angemeldet
Ach, das hört sich ja traumhaft an! :)
Kann mir da jemand genaueres drüber sagen, wo ich weitere Infos bekomme bzw. eine Art Anleitung...?Intranet ist übrigens vorhanden.
Markus
Hallo Markus,
hier ein kleines Beispiel. Fast dieselbe Poblemstellung war mein Einstieg in PERL und CGI: "Das Erstellen von einheitlichen Dokumenten übers Intranet". Denkbar ist auch (hab ich auch...) eine Auswahlliste für die Adressanten -> klick drauf -> und das Formular enthält bereits die Anrede mit Name usw. Deiner Fantasy sind keine Grenzen gesetzt.
Viele Grüße, Rolf
<!---- Ab hier das Form --->
<HTML>
<HEAD>
<TITLE>EingabeForm</TITLE>
</HEAD>
<BODY BGCOLOR="white">
<h3>Bitte das Form ausfüllen und dann auf 'Fertigstellen' klicken</h3>
<form method=post action=/cgi-bin/ausform.pl>
<pre>
<b>Thema:</b>
<input name=Thema size=50>
<b>Nachricht:</b>
<textarea name=Nachricht rows=7 cols=45>
</textarea>
<b>Name des Verfassers:</b>
<input name=Mitarbeiter size=50>
<input type=submit value=Fertigstellen><input type=reset>
</form>
</pre>
</BODY>
</HTML>
<!--- Form Ende --->
Ab hier das Script ---->
Script "ausform.pl" wertet das Form "form.htm"aus
SCR erstellt eine HTML-Seite
Meine Lieblingslibrary einbinden
require "cgi-lib.pl";
Die Eingabefelder auslesen
ReadParse();
if(!$in{Mitarbeiter}){
CgiDie('Fehlerhafte Eingabe!', 'bitte Namen eingeben');
}
Zeilenumbrüche aus Textarea übernehmen
$in{Nachricht} =~ s/\n/<br>/g;
#Datum und Zeit ermitteln
$Jetztwert = time();
$Jetztzeit = localtime($Jetztwert);
&Deutschnamen;@Zeit = split(/ +/,$Jetztzeit);
@Uhrzeit = split(/:/,$Zeit[3]);
Das Dokument zum Browser schicken
print &PrintHeader;
print "<HTML><HEAD>
<TITLE>$in{Thema}</TITLE>
</HEAD>
<BODY BGCOLOR=white>
<b>Thema:</b> <BIG>$in{Thema}</BIG>
<p>Erstellt am $Zeit[0], $Zeit[2]. $Zeit[1] $Zeit[4] um $Zeit[3]
<p>Bearbeiter: $in{Mitarbeiter}
<p>Nachricht:
<p>$in{Nachricht}
<p>Mit freundlichen Grüßen
</BODY>
</HTML>";
sub Deutschnamen{ # Thnx to Stefan Muenz / SELFHTML!!!
$Jetztzeit =~ s/Mon/Montag/;
$Jetztzeit =~ s/Tue/Dienstag/;
$Jetztzeit =~ s/Wed/Mittwoch/;
$Jetztzeit =~ s/Thu/Donnerstag/;
$Jetztzeit =~ s/Fri/Freitag/;
$Jetztzeit =~ s/Sat/Samstag/;
$Jetztzeit =~ s/Sun/Sonntag/;
$Jetztzeit =~ s/Jan/Januar/;
$Jetztzeit =~ s/Feb/Februar/;
$Jetztzeit =~ s/Mar/Maerz/;
$Jetztzeit =~ s/Apr/April/;
$Jetztzeit =~ s/May/Mai/;
$Jetztzeit =~ s/Jun/Juni/;
$Jetztzeit =~ s/Jul/Juli/;
$Jetztzeit =~ s/Aug/August/;
$Jetztzeit =~ s/Sep/September/;
$Jetztzeit =~ s/Oct/Oktober/;
$Jetztzeit =~ s/Nov/November/;
$Jetztzeit =~ s/Dec/Dezember/;
}