mirror of
https://git.FreeBSD.org/ports.git
synced 2024-12-27 05:10:36 +00:00
3e05a4d231
Nic is a set of small web-based network applications PR: 33359 Submitted by: Thierry Thomas <thierry@thomas.as>
37 lines
920 B
PHP
37 lines
920 B
PHP
--- icq.php.orig Mon Oct 15 23:12:21 2001
|
|
+++ icq.php Mon Dec 31 00:37:35 2001
|
|
@@ -17,10 +17,10 @@
|
|
|
|
$uin = Horde::getFormData('uin');
|
|
$results="";
|
|
+$email_next=false;
|
|
if (!empty($uin)) {
|
|
- $fd = fopen("http://wwp.icq.com/$uin", 'r');
|
|
+ $fd = fopen("http://web.icq.com/wwp?Uin=" . $uin, 'r');
|
|
while ($buffer = fgetss($fd, 4096)) {
|
|
-
|
|
if (ereg('Handle/Nickname:', $buffer)) {
|
|
// echo ereg_replace('Handle/Nickname:', 'NickName: ', $buffer);
|
|
// echo "<br>";
|
|
@@ -34,6 +34,20 @@
|
|
$results .= ereg_replace('E-Mail', 'Email: ', $buffer);
|
|
$results .="<br>";
|
|
}
|
|
+
|
|
+ if (ereg('Hello my name is', $buffer)) {
|
|
+ $results .= ereg_replace('Hello my name is', 'Name:', $buffer);
|
|
+ $results .="<br>";
|
|
+ }
|
|
+
|
|
+ if ($email_next) {
|
|
+ $results .= 'Email: ' . $buffer;
|
|
+ $email_next = false;
|
|
+ }
|
|
+ if (ereg('Send me an Email message', $buffer)) {
|
|
+ $email_next = true;
|
|
+ }
|
|
+
|
|
}
|
|
fclose($fd);
|
|
|