Discussion :

[ludobspp]

Bonjour

Voila j'ai un code qui servais a voir les coach/fondateurs et membres des salons, mais depuis quelque jours il ne fonctionne plus car apparement orange a changé les urls.

Je n'y connais pas grand chose en mirc, donc si qqun pouvais regarder voir mettre à jour ce qui cloche ce serais tres gentil.

Merci d'avance

Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
;=====================================================================
Alias coach { if (!$1) { echo -a $timestamp Utilisation: /Coach <#Salon>  } | else { sockclose coach. [ $+ [ $1 ] ] | sockopen coach. [ $+ [ $1 ] ] tchat.orange.fr 80 } }
dialog chaninfo {
  title $readini(Chaninfo\ $+ %chaninfo $+ .ini,info,nom)
  size 250 80 104 155
  icon chaninfo\chaninfo.ico,0
  option dbu
  list 1, 0 0 105 156, size
  button "x", 2, 194 123 37 12, ok
}
Alias -l mdx { return Chaninfo\mdx.dll }
Alias -l views { return Chaninfo\views.mdx }
Alias -l ic:d { did -i chaninfo 1 1 seticon normal $+(Chaninfo\,$1,.ico) }
Alias showchannel { if ($dialog(chaninfo)) { dialog -x chaninfo } | dialog -m chaninfo chaninfo }
on *:dialog:chaninfo:init:*:{
  dll $mdx SetMircVersion $version | dll $mdx MarkDialog $dname
  dll $mdx SetControlMDX 1 treeview haslines hasbuttons linesatroot showsel > $views
  did -i $dname 1 1 iconsize normal small    
  $ic:d(coach) | $ic:d(fondateur) | $ic:d(membre) | $ic:d(off) | $ic:d(on) | $ic:d(suspend) 
  var %f = $+(Chaninfo\,%chaninfo,.ini) 
  did -i $dname 1 1 cb root 
  did -a $dname 1 +be 1 1 Coach ( $+ $ini(%f,coach,0) $+ ) | did -i $dname 1 1 cb last
  var %i = 1 | while (%i <= $ini(%f,coach,0)) { var %s = $readini(%f,coach,$ini(%f,coach,%i)) , %l = $iif(d isin %s,4,5) | did -a $dname 1 +e %l %l $replace($ini(%f,coach,%i),°°,[,¨¨,]) | inc %i  }
  did -i $dname 1 1 cb up
  did -a $dname 1 +be 2 2 Fondateurs ( $+ $calc($ini(%f,fondatrice,0) + $ini(%f,fondateur,0)) $+ ) | did -i $dname 1 1 cb last
  var %i = 1 | while (%i <= $ini(%f,fondateur,0)) { var %s = $readini(%f,fondateur,$ini(%f,fondateur,%i)) , %l = $iif(d isin %s,4,5) | did -a $dname 1 +e %l %l $replace($ini(%f,fondateur,%i),°°,[,¨¨,])  | inc %i  }
  var %i = 1 | while (%i <= $ini(%f,fondatrice,0)) { var %s = $readini(%f,fondateur,$ini(%f,fondatrice,%i)) , %l = $iif(d isin %s,4,5) | did -a $dname 1 +e %l %l $replace($ini(%f,fondatrice,%i),°°,[,¨¨,])  | inc %i  }
  did -i $dname 1 1 cb up
  did -a $dname 1 +be 3 3 Membres ( $+ $ini(%f,membre,0) $+ ) | did -i $dname 1 1 cb last
  var %i = 1 | while (%i <= $ini(%f,membre,0)) { var %s = $readini(%f,membre,$ini(%f,membre,%i)) , %l = $iif(d isin %s,4,5) | did -a $dname 1 +e %l %l $replace($ini(%f,membre,%i),°°,[,¨¨,])  | inc %i  }
  .remove %f | unset %a | unset %b | unset %check. [ $+ [ %chaninfo ] ] | unset %chaninfo
}

on *:sockopen:coach.*:{
  var %coach = $remove($gettok($sockname,2-,46),$chr(35)) , %x = $+(onglet=home&searchMode=alpha&searchType=salon&submit=submit&fichier=search_result&accesskey="enter"&alphaValueSalon=,%coach,&display=yes)
  sockwrite -n $sockname POST /page.php HTTP/1.1
  sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded; charset=UTF-8
  sockwrite -n $sockname Host: tchat.orange.fr
  sockwrite -n $sockname Content-Length: $len(%x)
  sockwrite -n $sockname User-Agent: m0zilla-w0rld
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
  sockwrite -n $sockname %x
}
on *:sockread:coach.*:{
  sockread %a
  var %coach = $remove($gettok($sockname,2-,46),$chr(35))

  if (s"><strong>Pas de r isin %a) { echo -a 4***12 Le salon %coach n'a pas été trouvé... | sockclose $sockname | unset %a | halt }
  if ($+(alt=",%coach," title=",%coach,") isin %a) { set %tmp. [ $+ [ %coach ] ] 1 }
  if (%tmp. [ $+ [ %coach ] ]) && (index.php?onglet=salons&salon= isin %a) { set %coachfound 1 | sockopen coachinfo. [ $+ [ $remove($gettok(%a,5,61),&retour) ] ] tchat.orange.fr 80 | unset %tmp. [ $+ [ %coach ] ] | sockclose $sockname }
}
on *:sockclose:coach.*:if (!%coachfound) { echo -a 4***12 Le salon $gettok($sockname,2-,46) n'a pas été trouvé... | halt }
on *:sockopen:coachinfo.*:{
  unset %coachfound
  sockwrite -n $sockname get http://tchat.orange.fr/index.php?onglet=salons&salon= [ $+ [ $gettok($sockname,2-,46) ] ] $+ &retour=home
  sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded; charset=UTF-8
  sockwrite -n $sockname Host: tchat.orange.fr
  var %chan = $gettok($sockname,2-,46) , %f = $+(Chaninfo\,%chan,.ini)
  if ($isfile(%f)) { .remove %f } |  sockwrite -n $sockname User-Agent: m0zilla-w0rld | unset %check. [ $+ [ %chan ] ] 
}
on *:sockread:coachinfo.*:{
  sockread %b
  var %coach = $remove($gettok($sockname,2-,46),$chr(35))  , %f = $+(Chaninfo\,%coach,.ini)
  if (<h2>Infos salon : <span> isin %b) { writeini %f Info NOM $remove(%b,<h2>Infos salon : <span>,/span></h2>,<) }
  if (<a href="#noAncre" onclick="javascript:openPseudo isin %b) && (%check. [ $+ [ %coach ] ]) { set %tmp.nick. [ $+ [ %coach ] ] $gettok(%b,2,39)  }
  if (<span class="gris"> isin %b) { var %z = $remove(%b,<span class="gris">,</span>,$chr(9)) | set %tmp.nick. [ $+ [ %coach ] ] %z }
  if (%nxt. [ $+ [ %coach ] ] == 1) && (<td isin %b) { set %tmp.last. [ $+ [ %coach ] ] $iif(>connec isin %b,Connecté,Déconnecté)  | set %nxt. [ $+ [ %coach ] ] 2 | goto nxt }
  if (%nxt. [ $+ [ %coach ] ] == 2) && (<td isin %b) { 
    writeini %f $remove($gettok(%b,2,62),</td) $replace(%tmp.nick. [ $+ [ %coach ] ],$chr(91),°°,$chr(93),¨¨) %tmp.last. [ $+ [ %coach ] ]
    unset %tmp.nick. [ $+ [ %coach ] ]  | unset %tmp.last. [ $+ [ %coach ] ] |`unset %nxt. [ $+ [ %coach ] ] 
  }
  if (<td class=" pseudo"> isin %b) || (<td class="ligne2 pseudo"> isin %b) { set %nxt. [ $+ [ %coach ] ] 1 | set %check. [ $+ [ %coach ] ] 1 }
  :nxt
}
on *:sockclose:coachinfo.*:var %chan = $gettok($sockname,2-,46) , %f = $+(Chaninfo\,%chan,.ini) | set %chaninfo %chan | showchannel
on *:Load:{ echo -a $timestamp Addon Coach 0,7Orange chargé! | coach | echo -a 13mÕžï6ll13ä6¬13wÔrl6Ð13Ž 14® }

[mavina]

Salut,

Ce code tu l'as eu où ? Comment tu sais que Orange a changé ses URL ? Ils l'ont marqué quelque part ? Auquel cas, tu dois pouvoir le corriger toi même non ?

Ce code est partiellement imbuvable sans savoir ce qu'il fait vraiment

Fred

[ludobspp]

Bonjour.

Alors ce code sert normalement quand on tape /coach #chan il ouvre une petite fenetre nous indiquant le pseudo du coach des fondateurs et des membres du salon recherché.

J'ai essayé d'envoyer 3 mails au createur du code mais aucune reponses.

C'est un Ircop du tchat orange qui m'a dis que les URL avais changé depuis la mise à jour de leur tchat.

Et si je demande ici c'est que j'ai essayé de changer les URLs mais je n'y arrive pas.

Cordialement

[mavina]

Honnetement ce code est assez dur à analyser

Je vois que dans l'event sockopen il y a un URL, tu as demandé le nouvel url à l'ircop orange pour corriger l'URL ? Ca a donné quoi ?

F

[ludobspp]

Oui j'ai demandé le nouvel URL mais apparement ca n'as rien changé...