;On ouvre un alias
alias site {
;On ferme la socket au cas où elle serai déjà ouverte
sockclose site
;On ouvre la socket qui porte le nom "site" sur l'adresse "codyx.org" sur le port 80 (port des sites web)
sockopen site codyx.org 80
}
;On réagis a l'evenement "sockopen", c'est a dire, quand la socket s'ouvre
on *:sockopen:site:{
;Si il y a une erreur, on le signale et on arrète la remote (halt)
if ($sockerr) { echo -a IMPOSSIBLE DE CONNECTER LA SOCKET. | halt }
;On signale la connection de la socket
echo -a Socket connecté.
;C'est ici qu'on récupère la source du site, grace au "GET"
;Ca c'est le protocole du web, ca vient pas du mirc
sockwrite -nt $sockname GET http://codyx.org
;Le $crlf est un saut de ligne
sockwrite -nt $sockname $crlf
sockwrite -nt $sockname $crlf
}
;On "lit" les données récupérées
on *:sockread:site:{
;On stock dans une variable ce qui est récupéré
sockread %a
;On l'écrit dans le fichier codyx.txt
write codyx.txt %a
;On efface la variable
unset %a
}
;On préviens que le chargement est terminé, et donc que la socket est fermée
on *:sockclose:site:{
echo -a Socket fermé.
;On ouvre codyx.txt pour voir ce qu'on a récupéré
run codyx.txt
}