Blev en liten "kodsnutt" för att skicka ICQ-meddelanden via webben.
<html>
<head>
<title>ICQ-meddelande</title>
</head>
<body bgcolor="#FFFFFF" link="#000000" alink="#000000" vlink="#000000">
<?
if ($REQUEST_METHOD == "POST") {
$fel="";
if (!$from) {
$fel .="Du måste ange ditt namn.<br>";
}
if (!$fromemail) {
$fel .="Du måste ange din e-postadress.<br>";
}
if (!$uin) {
$fel .="Du måste ange mottagarens ICQ-nummer.<br>";
}
if (!$subject) {
$fel .="Du måste ange ett ämne/ärende.<br>";
}
if (!$body) {
$fel .="Du måste skriva ett meddelande.<br>";
}
if (!$fel) {
$skicka=1;
}
}
if ($skicka) {
$url="";
$url .= "http://wwp.mirabilis.com/scripts/WWPMsg.dll?";
$url .= "subject=";
$url .= "$subject";
$url .= "&to=";
$url .= "$uin";
$url .= "&fromemail=";
$url .= "$fromemail";
$url .= "&body=";
$url .= "$body";
$url .= "&from=";
$url .= "$from";
$file = fopen ("$url", "r");
if ($file) {
?>
<font face="Verdana, Arial" size=4><b>ICQ-meddelande skickat</b><br><br>
<font face="Verdana, Arial, Geneva" size="1">Ditt ICQ-meddelande till <B><? echo $uin; ?></B> har skickats.
<?
}
else {
?>
<font face="Verdana, Arial" size=4><b>ICQ-meddelandet skickades inte</b><br><br>
<font face="Verdana, Arial, Geneva" size="1">Tyvärr, det går inte skicka ICQ-meddelanden för tillfället.
<?
}
}
else {
?>
<font face="Verdana, Arial" size=4><b>Skicka ICQ-meddelande</b></font><br>
<font face="Verdana, Arial, Geneva" size="1">
<?
if ($fel) {
echo "<br>$fel";
}
?>
</font>
<br>
<form action="<? echo("$PHP_SELF"); ?>" method="POST">
<table width=300 border=0 cellpadding=0 cellspacing=0>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width=150><font face="Verdana, Arial, Geneva" size="1">Ditt namn</font></td><td align=right><input type="TEXT" name="from" size="20" value=""></td>
</tr>
<tr width=150>
<td><font face="Verdana, Arial, Geneva" size="1">Din e-postadress</font></td><td align=right><input type="TEXT" name="fromemail" size="20" value=""></td>
</tr>
<tr>
<td width=150><font face="Verdana, Arial, Geneva" size="1">Mottagarens ICQ-nummer</font></td><td align=right><input type="TEXT" name="uin" size="20" value=""></td>
</tr>
<tr>
<td width=150><font face="Verdana, Arial, Geneva" size="1">Ämne/Ärende</font></td><td align=right><input type="TEXT" name="subject" size="20" value=""></td>
</tr>
<tr>
<td colspan=2><font face="Verdana, Arial, Geneva" size="1">
<br>Meddelande:
<br><textarea name="body" rows="3" cols="30" wrap="Virtual"></textarea>
</td></tr></table>
<br><input type="SUBMIT" name="Send" value="Skicka">
</form>
<?
}
?>
</body></html>