SHOW:
|
|
- or go back to the newest paste.
1 | alias socktest { | |
2 | sockclose Deluge | |
3 | ;set %Test# $iif($chan,$chan,$nick) | |
4 | set %TestURL /profile/u/manish17 | |
5 | - | sockopen Deluge www.delugerpg.com 80 |
5 | + | sockopen -e Deluge www.delugerpg.com 443 |
6 | } | |
7 | ||
8 | on *:SOCKOPEN:Deluge: { | |
9 | sockwrite -n Deluge GET %TestURL HTTP/1.1 | |
10 | sockwrite -n Deluge Host: www.delugerpg.com | |
11 | sockwrite Deluge $crlf | |
12 | } | |
13 | ||
14 | on *:SOCKREAD:Deluge: { | |
15 | sockread %Test | |
16 | while ($sockbr) { | |
17 | /* | |
18 | if (<p> isin %Test) { | |
19 | - | |
19 | + | echo %Test |
20 | - | echo %Test |
20 | + | unset %Test* |
21 | - | unset %Test* |
21 | + | sockclose Deluge |
22 | - | sockclose Deluge |
22 | + | return |
23 | - | return |
23 | + | } |
24 | */ | |
25 | write test.txt - %Test | |
26 | } | |
27 | sockread %Deluge | |
28 | ||
29 | } |