ANNUAIRE TÉLÉPHONIQUE AOL : CONSULTATION MULTIDÉPARTEMENTALE

;;  AOL ANNUAIRE Recherche multidépartement
;; Syntaxe : /annu <prénom> <nom>

alias ann {
  set %fname $1
  set %name $2
  set %file c:\windows\bureau\AnnuAOL- $+ %fname $+ - $+ %name $+ .lwp
  window -e @aol | titlebar @aol $1 $2 $3
  sockopen annu $+ $rand(0,100000) www.annu.aol.fr 80
}

;========================

on *:sockclose:annu*:{
  if (%dep <= 98) {
    inc %dep 1
    ann %fname %name
  }
}


;========================

alias annu {
  ;; set %num 10
  set %dep 1
  ann $1 $2
}

;========================


on *:sockopen:annu*:{
  if ($sockerr > 0) return
  sockwrite -n $sockname GET /cgi-bin/www.cgi?info=particulier&submit=Rechercher&nom= $+ %name $+ &prenom= $+ %fname $+ &adresse=&ville=&dep= $+ %dep $+ &rech=Recherche
}
;========================

on *:sockread:annu*:{
  if ($sockerr > 0) return
  :annu
  sockread %aol
  if ($sockbr == 0) return
  if (%aol != $null) {

    ;; set %key &num= $+ %num

    if ((id= isin %aol) && (imprimer !isin %aol) && ([Page !isin %aol)) {
      ; set %reduc $remove(%aol,<a,href=",">,</a>)
      ; set %reduc $replace(%reduc,amp;, )
      ; set %reduc $replace(%reduc,&country=fr, )
      ; set %reduc $replace(%reduc,&partenaire=&url_partenaire=, )

      ; if ($right(%reduc,1) != r) set %reduc $remove(%reduc,$right(%reduc,1))
      ; if ($right(%reduc,1) != r) set %reduc $remove(%reduc,$right(%reduc,1))

      ;  set %cv $remove($left($remove(%reduc,/,cgi-bin,www.cgi,?),7),&cv=,&,n,u,m)
      ;  set %id $remove($left($remove(%reduc,/,cgi-bin,www.cgi?cv=,%cv,%num,&num=,&id=),19),&,n,b,%cv,%num)
      ; set %nb $remove($right(%reduc,22),=,b,&i,n,foparticulier)

    }

    ;===================================================
    if (bgcolor="#C2D7EB"><b><span class="txtbld"> isin %aol) {
      set %quidonc $remove(%aol,<td,bgcolor="#C2D7EB">,<b>,<span,class="txtbld">,</span>,</b>,</td>)
      aline -ph 1 @aol Identité: %quidonc
      write %file %quidonc
    }
    ;===================================================
    if (bgcolor="#C2D7EB"><span class="txt"></font> isin %aol) {
      set %tel $remove(%aol,<td,valign="top",align="right",bgcolor="#C2D7EB">,<span,class="txt">,</font>,</span>,<b>,</b>,</td>)
      aline -ph 1 @aol Tel: %tel
      write %file %tel    
    }
    ;===================================================
    if (</b><font class="txt"> isin %aol) {
      set %adresse $remove(%aol,<td,width="50%",class="txt">,<b>,</b>,<font,class="txt",>)
      aline -ph 1 @aol Adresse: %adresse
      write %file %adresse
    }
    ;===================================================
    if ((%dep isin $gettok(%aol,2,32)) && (- isin %aol) && (bgcolor !isin %aol) && (src !isin %aol) && (href !isin %aol)) {
      set %zipcode $gettok(%aol,2,32) $remove($gettok(%aol,3,32),</font>,</td>) $remove($gettok(%aol,4,32),</font>,</td>) $remove($gettok(%aol,5,32),</font>,</td>) $remove($gettok(%aol,6,32),</font>,</td>)
      aline -ph 1 @aol $remove(%zipcode,<br>)

      aline -ph 1 @aol ------------------
      write %file $remove(%zipcode,<br>)
      write %file -----------------
    }
    ;===================================================
  }
  goto annu
}

;===============================================