nicht angemeldet
Script Bewertung E-Mail input => PHP
Hy @ll
Ich bräuchte eine Bewertung bzw. evtl. änderungs hinweise für mein folgendes Script.
Zu allererst möchte ich mich bei TomIRL entschuldigen. In dem Post
http://forum.de.selfhtml.org/archiv/2005/8/t114234/#m728716
wollte ich nicht den Anschein auf kommen lassen das du ein Arsch/loch bist.
Weil du dieses anscheinend doch so aufgefasst hast möchte ich nochmal erwähnen das dieses weder so gedacht noch so gemeint war.
THX im Vorraus
Desaster
Script:
#####################################################################
<?
print "<body bgcolor="#FFFFFF">";
include("ini/config.ini.php");
$mbox = @imap_open("{127.0.0.1:143}", "user", "pass");
if(isset($_GET['msg'])and $_GET['msg']!=NULL){$msg=$_GET['msg'];}else{$msg="1";}
if($msg!=1){$msgz=$msg-1;}else{$msgz=$msg;}
function del($del){global $mbox; imap_delete($mbox,$del,FT_UID);imap_expunge($mbox);}
$check=imap_mailboxmsginfo($mbox);
if($check) {
$folder= $check->Mailbox; $size=number_format($check->Size,2);$size2=1024*1024;
$folder2=strpos($folder,"127.0.0.1");
if($folder2==true){$folder22="localhost ";}else{$folder22="Extern ";}
$folder1=strpos($folder, '}');
$size=$size/100;
$folder=substr($folder,$folder1+1);
print "<table border="1"><tr>";
print "<td>Date:</td><td>" . $check->Date . " </td></tr><tr>\n" ;
print "<td>Driver:</td><td>" . $check->Driver . " </td></tr><tr>\n" ;
print "<td>Ordner:</td><td>";print"$folder22==>$folder </td></tr><tr>\n" ;
print "<td>Messages:</td><td>" . $check->Nmsgs . " </td></tr><tr>\n" ;
print "<td>Recent:</td><td>" . $check->Recent . " </td></tr><tr>\n" ;
print "<td>Size:</td><td>" . $size . " MB / 50MB</td></tr><tr>\n";
print"</table><br>";
if($msg>=$check->Nmsgs){$msgn=$check->Nmsgs;}else{$msgn=$msg+1;}
if($check->Nmsgs>0){$x=imap_header($mbox, $msg);
print "<title>$msg / $check->Nmsgs</title><table><tr>";
print "<td>Datum:</td><td>" . $x->Date . "</td></tr><tr>\n";
print "<td>Empfänger:</td><td>";
if(!$x->toaddress){print "Anonymus".$x->toaddress."";}else{print_r($x->toaddress);}
print"</td></tr><tr>\n";
print "<td>Absender:</td><td>";
if(isset($x->senderaddress)){print_r($x->senderaddress);}
if(empty($x->senderaddress)){print "Anonymus";} print"</td></tr><tr>\n";
print "<td>Betref:</td><td>" . $x->Subject . "</td></tr></table>\n";}
$y=imap_body($mbox, $msg);
$y=ereg_replace("href=(["|']?)(http[s]?://[a-z0-9~@&:=?+/.,_-]+)(/+)(#[a-z0-9~@&:=?+/.,_-]+)(["|']?)", "href=\1\4\5", $y);
$sub=strpos($x->Subject,"utf-8");
if($sub==true){
$utf8=imap_utf8($y);
print "<br>$utf8<br><br>";}
if($sub===false){
$test=quoted_printable_decode($y);
//$test=ereg_replace("<87A7","xy",$test);
//$test=ereg_replace("<D31E","xy",$test);
//$test=ereg_replace("<DC2C","xy",$test);
//$test=ereg_replace("<5120","xy",$test);
//$test=ereg_replace("<07BA","xy",$test);
$testx=$test;
$testx21=strpos($testx, 'xml');//Outlook
if($testx21==true) {$testx2=$testx21-6;}
if($testx21===false) {$testx22=strpos($testx,'!DOCTYPE');}//Outlook Express
if(isset($testx22) and $testx22==true) {$testx2=$testx22-1;}
if(isset($testx22) and $testx22===false) {$testx23=strpos ($testx, '<HTML>');} //Incredi Mail
if(isset($testx23) and $testx23==true) {$testx2=$testx23;}
if(isset($testx23) and $testx23===false) {$testx2="0";} //Weder noch
$testx4=substr($testx,$testx2);
$testx31=strpos($testx4,'</HTML>'); //Incedi Mail
if($testx31==true) {$testx3=$testx31+6;}
if($testx31===false) {$testx32=strrpos($testx4,'NextPart');} //Outlook Express
if(isset($testx32) and $testx32==true) {$testx3=$testx32-10;}
if(isset($testx32) and $testx32===false){$testx33=strpos($testx4,'</html>');} //Outlook
if(isset($testx33) and $testx33==true) {$testx3=$testx33+7;}
if(isset($testx33) and $testx33===false){$testx3="0";} //wedernoch
if($testx3>0) {$testx=substr($testx,$testx2,$testx3);}
if($testx3==0) {$testx=substr($testx,$testx2);}
$testx=str_replace("<o:p></o:p>","<br>",$testx);
$testx=str_replace("<o:p>","<br>",$testx);
$testx=str_replace("</o:p>","<br>",$testx);
$testx=ereg_replace("href=(["|']?)(http[s]?://[a-z0-9~@&:=?+/.,_-]+)(/+)(#[a-z0-9~@&:=?+/.,_-]+)(["|']?)", "href=\1\4\5", $testx);
print "<table border="1" width="100%">$testx</table>";}
$status = imap_status ($mbox, "{127.0.0.1}INBOX", SA_ALL);
if($status) {
print ("Messages: " . $status->messages ) . "<br>\n";
print ("Recent: " . $status->recent ) . "<br>\n";
print ("Unseen: " . $status->unseen ) . "<br>\n";
print ("UIDnext: " . $status->uidnext ) . "<br>\n";
print ("UIDvalidity: " . $status->uidvalidity) . "<br>\n";}
} else {
print "imap_check() failed: " . imap_last_error() . "<br>\n";
}
global $status;
$z=imap_uid($mbox,$msg);
?>
<a href="del($z)"> <? print "<input type="submit" value="Löschen">"?></a><?print"
<a href="test.php?msg=1"> <input type="submit" value="|<=="></a>
<a href="test.php?msg=$msgz"> <input type="submit" value=" -- "></a>
<a href="test.php?msg=$msg"> <input type="submit" value="REFRESH"></a>
<a href="test.php?msg=$msgn"> <input type="submit" value=" ++ "></a>
<a href="test.php?msg=$check->Nmsgs"><input type="submit" value="==>|"></a>";
imap_close($mbox);
print "</body>";?>
-
hallo,
Ich bräuchte eine Bewertung bzw. evtl. änderungs hinweise für mein folgendes Script.
willst du jetzt, dass irgendjemand deinen quellcode bewertet oder hast du nen konkretes problem? für ersteres wird sich hier vermutlich keiner begeistern lassen.
grüße Chris
-
Ich habe die Hoffnung das sich hier jemand damit schon mal beschäftigt hat und hoffe das demjenigen evtl. Schwachstellen oder Fehler auffallen.
Oder bei meinem Glück steckt irgendwo in PHP eine fertige Funktion die ich noch nicht kenne was bedeutet die Arbeit war wie so oft für den Hund ;-)
THX @ Desaster
-
-
Hallo,
also vom Inhalt kann ich nichts sagen, aber die äussere Form ist unter aller Sau, mach dich mal über guten Programmierstil schlau.
gruss
--
no strict;
no warnings;
79.78 cups of Coffee (Brewed) + Me = Death
Kalorien sind winzig kleine nachtaktive Tiere, die unbeobachtet menschliche Kleidung enger nähen.-
Bei mir im Editor ist es weitaus Übersichtlicher das lässt sich hier aber nicht wirklich richtig darstellen.
THX @ Desaster
-
-
Hy @ll
Ich bräuchte eine Bewertung bzw. evtl. änderungs hinweise für mein folgendes Script.
Zu allererst möchte ich mich bei TomIRL entschuldigen. In dem Post
http://forum.de.selfhtml.org/archiv/2005/8/t114234/#m728716Blablabla Du schriebst...
Schöne Grüße an TomIRL nimm deinen Nase aus den Wolken und komm mal Wieder auf die Erde du Arrogantes .........,
wollte ich nicht den Anschein auf kommen lassen das du ein Arsch/loch bist.
Weil du dieses anscheinend doch so aufgefasst hast möchte ich nochmal erwähnen das dieses weder so gedacht noch so gemeint war.Erzähle mal keine Geschichten, es ist eindeutig was Du zumindest in diesem Moment gedacht und gemeint hast.
Entschuldigung akzeptiere ich, die Ausrede nicht!
TomIRL