Installeur / installation automatique

0/5 (4 avis)

Snippet vu 4 873 fois - Téléchargée 34 fois

Contenu du snippet

Voici l'exemple d'un installeur automatique minimisant les efforts de M. Lambda n'ayant évidament aucunes des connaissances requises pour installer un script, à plus forte raison quand il est constitué de plusieurs fichiers.

Cette technique d'installation consiste à télecharger un unique fichier script par un trigger (ici !MonKit). Et lorsque le téléchargement se termine on donne la commande pour charger le fichier. Puis ce fichier se charge d'installer correctement nos fichiers (en les récupérant sur un serveur, avec possibilitée de faire plusieurs serveurs pour diminuer les chances que le serveur soit indisponible). Lorsque l'installation se termine, le fichier d'installation s'autodétruit de lui-même.

Note : Dans cet exemple j'utilise un site web mais vous pouvez utiliser la même technique en laissant un socket en lecture chez la personne qui répond au trigger !MonKit.

Ce script utilise les timers, la manipulation de fichiers "par handle", les sockets, les groupes et les fenêtres image. Autant dire que les version de mirc ancienne sont totalement incompatibles (Je l'ai réalisé sous la 6.12).

Voici le fichier serveur (ici http://melnofil.no-ip.com/MonKit/MonKit-Setup.txt) :
### Début du fichier ###
-a MonKit-aliases.mrc
;-=-= test d'installation automatique =-=-

MonKitSuperAlias {
echo -a $1-
}
---
-rs1 MonKit-script.mrc
;-=-= test d'installation automatique =-=-

on *:start:{
MonKitSuperAlias Installation de MonKit terminée !
}
---
EOF
### Fin du fichier ###

Ce fichier va provoquer la création des fichiers scripts "MonKit-aliases.mrc" et "MonKit-script.mrc" qui seront tous deux placés dans un répértoire "MonKit" a la racine de mIRC. Notez que "-a" et "-rs1" sont les paramètres de la fonction "/load". Les lignes "---" sont des séparateurs, qui indiquent les fins de fichiers. Le "EOF" de la fin est obligatoire et doit être suivit d'un retour à la ligne, c'est pour contrôler que le fichier du serveur est correcte et téléchargé en entier (Si vous mettez quelque chose apès ce EOF, le script client ne le lira pas).

La personne qui héberge le script de téléchargement, doit possèder une copie du script d'installation (le code source tout en bas) placée dans $mircdir $+ \MonKit\MonKit-Setup.mrc
NE SURTOUT PAS LE CHARGER DANS MIRC !! Ca effacerait le fichier ^^
Et en plus elle doit avoir doit avoir ces 2 scripts remote :
### Début du fichier ###
on *:text:!MonKit*:?,#MonCanal:/dcc send -c $nick " $+ $mircdir $+ MonKit\MonKit-Setup.mrc"
on *:filesent:MonKit-Setup.mrc:{
.notice $nick Tapez maintenant la commande //.load -rs1 " $ $+ + $ $+ getdir(*.mrc) $ $+ + MonKit-Setup.mrc"
.notice $nick Une fenêtre d'avertissement va s'ouvrir avec la question "Run initialization command ?", répondez oui.
.notice $nick Si par erreur vous avez répondu non, démarrez manuellement le script avec la commande /MonKit-Start
}
### Fin du fichier ###
(N'oubliez pas de changer #MonCanal par le nom de votre canal)

Source / Exemple :


alias -l MonKitSetup-SiteWeb {
 if ($1 == 0) return 1
 elseif ($1 == 1) {
   if ($prop == file) return /MonKit/MonKit-Setup.txt
   else return melnofil.no-ip.com
 }
 else return $null
}
alias -l MonKitSetup-DrawText {; <R> <G> <B> <x> <y> <text>
 drawtext -nr @MonKit-Setup $rgb($1,$2,$3) Fixedsys 9 $4-
}
alias -l MonKitSetup-OpenWindow {
 window -dkpBo @MonKit-Setup -1 -1 400 150
 titlebar @MonKit-Setup - Installation de MonKit...
 setlayer 192 @MonKit-Setup
 clear @MonKit-Setup
 var %w $calc($window(@MonKit-Setup).dw - 10), %h $calc($window(@MonKit-Setup).dh - 10)
 drawrect -nrfd @MonKit-Setup $rgb(235,245,255) 4 4 4 %w %h 25 25
 MonKitSetup-DrawText 0 0 0 20 20 Installation de MonKit en cours...
}
alias -l MonKitSetup-ConnectServer {
 MonKitSetup-OpenWindow
 if ($1 <= $MonKitSetup-SiteWeb(0)) {
   MonKitSetup-DrawText 0 0 255 30 40 * Tentative de contact avec un serveur
   drawdot @MonKit-Setup
   .sockopen MonKitSetup $MonKitSetup-SiteWeb($1) 80
   .timerMonKitSetup-ConnectServer 1 30 MonKitSetup-ConnectServer $calc($1 + 1)
 }
 else {
   MonKitSetup-DrawText 255 0 0 30 40 - Aucun serveur n'est disponible !
   MonKitSetup-DrawText 0 0 255 30 30 * Nouvelle tentative dans 1 minute...
   drawdot @MonKit-Setup
   .timerMonKitSetup-ConnectServer 1 30 MonKitSetup-ConnectServer 1
} }
alias -l MonKitSetup-Timeout {
 .sockclose MonKitSetup
 MonKitSetup-ConnectServer $calc($1 + 1)
}
alias-l MonKitSetup-Erreur {
 MonKitSetup-OpenWindow
 MonKitSetup-DrawText 255 0 0 30 40 * $1-
 MonKitSetup-DrawText 0 0 0 30 60 Fin anormale de l'installation :
 MonKitSetup-DrawText 0 0 0 50 75 MonKit risque de ne pas fonctionner
 MonKitSetup-DrawText 0 0 0 50 90 correctement.
 drawdot @MonKit-Setup
 unset %MonKitSetup*
 .sockclose MonKitSetup
 .fclose MonKitSetup
 .unload -rs " $+ $script $+ "
 halt
}
alias -l MonKitSetup-Fin {
 MonKitSetup-OpenWindow
 MonKitSetup-DrawText 0 0 255 30 40 Installation terminée !
 MonKitSetup-DrawText 0 0 0 30 60 Vous pouvez utiliser MonKit =)
 drawdot @MonKit-Setup
 unset %MonKitSetup*
 .sockclose MonKitSetup
 .unload -rs " $+ $script $+ "
 halt
}
alias -l MonKitSetup-SockRead {
 if (%MonKitSetup == $null) { if ($1- == $null) set %MonKitSetup 1 }
 elseif (%MonKitSetup == 1) {
   if ($1- == EOF) { MonKitSetup-Fin }
   if (/ isin $1-) || (\ isin $1-) || ($chr(124) isin $1-) || ($ isin $1-) || (% isin $1-) $&
     || ($0 != 2) || ($left($1,1) != -) MonKitSetup-Erreur Le serveur est corrompu !
   var %dir $mircdir $+ MonKit\
   if (!$exists(%dir)) .mkdir " $+ %dir $+ "
   .fopen -no MonKitSetup " $+ %dir $+ $2 $+ "
   if ($fopen(MonKitSetup).err != 0) { MonKitSetup-Erreur Un fichier n'a pas pu être crée ! }
   set %MonKitSetup $1
 }
 elseif ($1- == ---) {
   var %file " $+ $fopen(MonKitSetup).fname $+ "
   .fclose MonKitSetup
   .load %MonKitSetup %file
   set %MonKitSetup 1
 }
 else .fwrite MonKitSetup $1- $+ $crlf
}
#MonKitSetup on
alias MonKitSetup-Start {
 .disable #MonKitSetup
 MonKitSetup-ConnectServer 1
}
#MonKitSetup end
on *:start:/MonKitSetup-Start
on *:unload:/.remove " $+ $script $+ "
on *:sockopen:MonKitSetup:{
 unset %MonKitSetup
 var %n $calc($gettok($timer(MonKitSetup-ConnectServer).com,2,32) - 1)
 .timerMonKitSetup-ConnectServer off
 .sockwrite -n MonKitSetup GET $MonKitSetup-SiteWeb(%n).file HTTP/1.1
 .sockwrite -n MonKitSetup Host: $MonKitSetup-SiteWeb(%n)
 .sockwrite -n MonKitSetup $null
 .timerMonKitSetup-Timeout 1 30 MonKitSetup-Timeout %n
 MonKitSetup-OpenWindow
 MonKitSetup-DrawText 0 0 0 30 40 Connection établie avec le serveur
 MonKitSetup-DrawText 0 0 255 30 30 Téléchargement en cours...
 drawdot @MonKit-Setup
}
on *:sockread:MonKitSetup:{
 if ($sockerr != 0) { e Erreur ! | return }
 var %cmd $timer(MonKitSetup-Timeout).com
 .timerMonKitSetup-Timeout off
 sockread %MonKitSetup-temp
 while ($sockbr != 0) { MonKitSetup-SockRead %MonKitSetup-temp | sockread %MonKitSetup-temp }
 .timerMonKitSetup-Timeout 1 30 %cmd
}

Conclusion :


J'ai mis le lancement de l'installation dans un groupe "#DCCnetSetup" afin d'être certain qu'il n'est lancé qu'une fois. Faites attention si vous testez ce fichier, il a des tentances suicidaires à s'effacer sans prévenir et de manière définitive sans passer par la corbeille.

Pour ajouter un serveur, modifiez l'alias "MonKitSetup-SiteWeb" qui retourne le nombre de serveur, l'addresse du serveur ou le nom du fichier sur le serveur.

A voir également

Ajouter un commentaire Commentaires
Messages postés
208
Date d'inscription
dimanche 18 avril 2004
Statut
Membre
Dernière intervention
6 septembre 2005

Ah okéééé !
Merci de la description ..
Messages postés
71
Date d'inscription
dimanche 23 juin 2002
Statut
Membre
Dernière intervention
1 février 2008

lol

Ok on est sur un chan sur irc, y'a le mec qui hébèrge le script (moi) et une personne qui veux le dl.

Le gars tape !MonKit ==> Ca lui envois un fichier d'installation (le code source ci-dessus)

Le send se termine ==> Le mec recoit des notices expliquant très simplement comment loader le script (1 commande à copier) et lancer les routines d'installation (1 clic).

Là une fenetre image s'ouvre qui décrit ou en est le transfert, en faite le script est en train de dler tous les fichiers remote et alias depuis le serveur http (la gestion des serveurs miroirs est incluse).

Dès que le dl se termine, le script d'installation s'auto-détruit.

Voilà

C'est vrai que maintenant que j'y repense j'aurais du mettre un système pour récuperer dans la foulée les dll, jpg, etc. Seulement le probleme c que ca peut pas se faire dans la foulée justement (pas sur le même socket) : il faut les traiter à part.
Messages postés
137
Date d'inscription
mardi 4 novembre 2003
Statut
Membre
Dernière intervention
22 août 2005

idem :/
Messages postés
208
Date d'inscription
dimanche 18 avril 2004
Statut
Membre
Dernière intervention
6 septembre 2005

J'ai rien compris a la description ..

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.