plaudern.de

Forumsharing?
Forum suchen
Forum erstellen
Impressum/Kontakt
AGB
Hilfe

125 User im System
Rekord: 181
(20.02.2018, 04:01 Uhr)

 
 
 Perl-Forum
  Suche:

 Problem mit HTML 19.08.2000 (20:31) Christian
Ich habe ein Perlscript was dauernd nur folgenden Quelltext ausgibt:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1252"></HEAD>
<BODY></BODY></HTML>


Der Quelltext vom Script:
#!/usr/bin/perl

# untitled1.pl

print "Content-type: text/html\n\n";
# Binde POP3-Modul ein (AUSKOMMENTIERT)
# use Net::POP3
my ($htmlcode2,$htmlcode1);
$htmlcode2 = "";
$htmlcode1 = "";

# Config:
$POP3ACESS{'user'} = 'username';
$POP3ACESS{'pass'} = 'passwort';
$POP3ACESS{'mail'} = 'email@domain';
$POP3ACESS{'server'} = 'mailserver';
$POP3ACESS{'smtp'} = 'mailserver';

# Get POP3-Connection
$pop3connect = Net::POP3->new($POP3ACESS{'server'}) or error(1,'<p>Fataler Fehler: Konnte nicht neues POP3-Objekt erzeugen.</p>');
$pop3connect->apop($POP3ACESS{'user'},$POP3ACESS{'pass'}) or error(1,'<p>Konnte mich nicht einloggen: $!</p>');
$pop3connect->list or error(1,'<p>Konnte Nachrichtenliste nicht holen: $!</p>');
foreach $msgid (keys %$nachrichten) {
$nachricht = $pop3connect->get($msgid);
$htmlcode1 .= "    <tr>\n";
$htmlcode1 .= "        <td>\n";
$htmlcode1 .= '            <p><input type="checkbox" name="gewaehltemail" VALUE="';
$htmlcode1 .= $msgid;
$htmlcode1 .= '"></p>';
$htmlcode1 .= "\n        </form>\n";
$htmlcode1 .= "        </td>\n";
$htmlcode1 .= "        <td><a href=\"read.pl?$msgid\">EMAIL</a></td>\n";
$htmlcode1 .= "    </tr>\n";
if (!$nachricht) {
&error(1,"Konnte Nachricht: $!");
}
}
if ($htmlcode2) {
print "<div align=\"center\"><center>\n";
print '<table border="3" cellpadding="2" cellspacing="0" bgcolor="#FFFF80">';
print "\n    <tr>\n";
print "        <td><p>Folgende Fehler sind aufgetreten:</p>\n";
print "<ul>\n";
print $htmlcode2;
print "        </ul>\n";
print "        </td>\n";
print "    </tr>\n";
print "</table>\n";
print "</center></div>\n";
}
print "<div align=center><center><table border=1 cellpadding=2 cellspacing=0>\n";
print $htmlcode1;
print "</table></center></div>\n";
exit;

sub error {
($level,$meldung) = @_;
$htmlcode2 .= "<li>";
$htmlcode2 .= $meldung;
$htmlcode2 .= "</li>\n";
}


Wie kann Ich das korregieren?


Christian

Dies ist ein Beitrag aus dem Forum "Perl-Forum". Die Überschrift des Forums ist "Perl-Forum".
Komplette Diskussion aufklappen | Inhaltsverzeichnis Forum Perl-Forum | Forenübersicht | plaudern.de-Homepage

Kostenloses Forumhosting von plaudern.de. Dieses Forum im eigenen Design entführen. Impressum



Papier sparen durch druckoptimierte Webseiten. Wie es geht erfahren Sie unter www.baummord.de.