nicht angemeldet
Hi.
mit einem Perl-Skript erzeuge ich diese Datei.
Wenn ich nun auf Datei speichern gehe, sollte eine HTML-Datei in
einem bestimmten Verzeichnis angelegt werden. Das bekomme ich leider nicht hin.
Hat vielleicht jemand ein Idee wie das gehen könnte?
Nicht wundern über die Metaangaben, die brauch ich dringend.
##!/usr/local/bin/perl
# Erzeugung der Html-Dateien
#
#------------------------------------------------------------------------------
use CGI qw(:all); # CGI forms etc
$firmenname=param('firmenname');
$nummer=param('nummer');
$strasse=param('strasse');
$plz=param('plz');
$ort=param('ort');
$telefon=param('telefon');
$mobil=param('mobil');
$fax=param('fax');
$email=param('email');
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<TITLE>$firmenname</TITLE>\n";
print "<meta name='firmenname' value='$firmenname'>\n";
print "<meta name='strasse' value='$strasse'>\n";
print "<meta name='nummer' value='$nummer'>\n";
print "<meta name='plz' value='$plz'>\n";
print "<meta name='ort' value='$ort'>\n";
print "<meta name='telefon' value='$telefon'>\n";
print "<meta name='mobil' value='$mobil'>\n";
print "<meta name='fax' value='$fax'>\n";
print "<meta name='email' value='$email'>\n";
print "</head>\n";
print "<body>\n";
print "<form action='http://www.webserverurl/cgi-bin/speichern.pl'
method='POST' name='Formular'>\n";
print "<input type='hidden' name='ort' value='$ort'>\n";
print "<input type='hidden' name='telefon' value='$telefon'>\n";
print "<input type='hidden' name='strasse' value='$strasse'>\n";
print "<input type='hidden' name='mobil' value='$mobil'>\n";
// war ein Test mit den hidden fields, ging leider nicht.
print "<b>$firmenname</b><br>\n";
print "$strasse $nummer<br>\n";
print "$plz $ort<br>\n";
if ($mobil and $telefon and $fax)
{
print "Tel.; $telefon; Mobil: $mobil; Fax: $fax<br>\n";
}
elsif ($telefon and $fax)
{
print "Tel.: $telefon; Fax: $fax<br>\n";
}
elsif ($telefon and $mobil)
{
print "Tel.; $telefon; Mobil: $mobil<br>\n";
}
elsif ($fax and $mobil)
{
print "Mobil: $mobil; Fax: $fax<br>\n";
}
elsif ($telefon)
{
print "Telefon: $telefon<br>\n";
}
else
{
print "";
}
print "<a href='mailto:$email'>$email</a><br>\n";
print "<a href='http://$internet'>$internet</a><br><br>\n\n";
print "<hr width='500' align='left'<br><br>\n\n";
print "<INPUT TYPE=BUTTON VALUE='Eingaben ändern' onClick='history.back()'>";
print "<input type='submit' value='Datei speichern'>\n";
print "</form>\n";
print "</body>\n";
print "</html>";
Danke schonmal für Eure Hilfe.
Gruß
Peter