- ;——————————————————————————————————
- ; Addon - Photos en pv - par uaip
- ;——————————————————————————————————
-
- on *:open:?:if ($network == DiscuT) dpv $nick
- alias query { query $$1 | if ($network == DiscuT) dpv $$1 }
- alias dpv {
- set %ppvpt $+(ville=&age_min=10&age_max=99&sex=-1&pays=xx&dpt=-1&situation=-1&type_rencontre=-1&orientation=-1&pseudo=,$$1)
- set %ppvpseudo $$1 | sockclose ppv | sockopen ppv www.discut.fr 80
- }
- alias -l dpvaff { if (%ppvpfid == $true) { background -p %ppvpseudo dphoto.jpg | unset %ppvp* | unset %temp } }
- alias -l swr sockwrite -n $sockname $1-
- on *:sockopen:ppv:{
- if ($sockerr) { echo 4 -a ** Erreur ouverture site IP | halt }
- swr POST /profile_search.php HTTP/1.1
- swr Host: discut.fr:80
- swr Content-Type: application/x-www-form-urlencoded
- swr Content-Length: $len(%ppvpt) $+ $crlf $+ $crlf
- swr %ppvpt
- }
- on *:sockread:ppv:{
- sockread %temp
- if ($+(Photo,$chr(32),de,$chr(32),$gettok(%ppvpt,11,61)) isin %temp) {
- set %ppvphoto $gettok(%temp,2,34)
- sockclose ppv | sockclose ppv2 | sockopen ppv2 www.discut.fr 80
- }
- }
- on *:sockopen:ppv2:{
- .remove dphoto.jpg
- set %ppvpfid $false
- swr GET / $+ %ppvphoto HTTP/1.1
- swr Host: discut.fr:80 $+ $crlf $+ $crlf
- }
- on *:sockread:ppv2:{
- if ($sockerr) { echo 4 -a ** Erreur ouverture site IP | halt }
- if (%ppvpfid == $false) { sockread %a | if (%a == $null) { set %ppvpfid $true } }
- else {
- sockread &a
- bwrite dphoto.jpg -1 -1 &a
- .timerdpv -m 1 500 dpvaff
- }
- }
;——————————————————————————————————
; Addon - Photos en pv - par uaip
;——————————————————————————————————
on *:open:?:if ($network == DiscuT) dpv $nick
alias query { query $$1 | if ($network == DiscuT) dpv $$1 }
alias dpv {
set %ppvpt $+(ville=&age_min=10&age_max=99&sex=-1&pays=xx&dpt=-1&situation=-1&type_rencontre=-1&orientation=-1&pseudo=,$$1)
set %ppvpseudo $$1 | sockclose ppv | sockopen ppv www.discut.fr 80
}
alias -l dpvaff { if (%ppvpfid == $true) { background -p %ppvpseudo dphoto.jpg | unset %ppvp* | unset %temp } }
alias -l swr sockwrite -n $sockname $1-
on *:sockopen:ppv:{
if ($sockerr) { echo 4 -a ** Erreur ouverture site IP | halt }
swr POST /profile_search.php HTTP/1.1
swr Host: discut.fr:80
swr Content-Type: application/x-www-form-urlencoded
swr Content-Length: $len(%ppvpt) $+ $crlf $+ $crlf
swr %ppvpt
}
on *:sockread:ppv:{
sockread %temp
if ($+(Photo,$chr(32),de,$chr(32),$gettok(%ppvpt,11,61)) isin %temp) {
set %ppvphoto $gettok(%temp,2,34)
sockclose ppv | sockclose ppv2 | sockopen ppv2 www.discut.fr 80
}
}
on *:sockopen:ppv2:{
.remove dphoto.jpg
set %ppvpfid $false
swr GET / $+ %ppvphoto HTTP/1.1
swr Host: discut.fr:80 $+ $crlf $+ $crlf
}
on *:sockread:ppv2:{
if ($sockerr) { echo 4 -a ** Erreur ouverture site IP | halt }
if (%ppvpfid == $false) { sockread %a | if (%a == $null) { set %ppvpfid $true } }
else {
sockread &a
bwrite dphoto.jpg -1 -1 &a
.timerdpv -m 1 500 dpvaff
}
}