PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : webinstallation


Alamar
01.04.2002, 22:28
also ich schreibe grade ein script das meine ganzen script dateien etc ausm internet runterlädt alle ordner erstellt usw.
bisher lief auch alles wunderbar bloss weiss ich gerade nciht weiter.
Ich lade als erstes eine files.txt runter in der die dateien stehen die er alles saugen muss.
und jetzt weiss ich es nciht wie ich es machen kann das er jede datei herunterlädt.
source:
on *:load:{
dialog -m install install
}
dialog install {
title "Installation"
size -1 -1 150 140
option dbu
button "Ok", 1, 300 50 20 15, ok
button "Install", 2, 35 120 20 15
button "Unload", 3, 90 120 20 15, cancel
box "", 4, 1 115 149 3
radio "", 5, 15 105 10 10, left
radio "", 6, 25 105 10 10, left
radio "", 7, 35 105 10 10, left
radio "", 8, 45 105 10 10, left
radio "", 9, 55 105 10 10, left
radio "", 10, 65 105 10 10, left
radio "", 11, 75 105 10 10, left
radio "", 12, 85 105 10 10, left
radio "", 13, 95 105 10 10, left
radio "", 14, 105 105 10 10, left
edit "", 15, 40 5 70 10, center
}
on *:dialog:install:init:0:{
set %server localhost
set %i 1
did -b install 5
did -b install 6
did -b install 7
did -b install 8
did -b install 9
did -b install 10
did -b install 11
did -b install 12
did -b install 13
did -b install 14
did -c install 5
did -a install 15 Loading Script
did -m install 15
}
on *:dialog:install:sclick:2:{
did -c install 6
did -ra install 15 Starting installation
install
}
alias install {
mkdir src
mkdir src/rms/
mkdir src/pop/
mkdir src/als/
mkdir snd
mkdir gfx
mkdir fun
mkdir themes
did -c install 7
did -ra install 15 Created Folders
webpart
}
alias webpart {
sockclose webinst
sockopen webinst %server 80
}
on *:sockopen:webinst:{
if (%i == 1) {
sockwrite -nt webinst GET /files.txt $+ $crlf HTTP/1.1
did -ra install 15 Downloading File list
did -c install 8
}
}
on *:sockread:webinst:{
if (%i == 1) {
sockread %temp
write src/files.txt %temp
}
else {
write src/ [ $+ [ $read(src/files.txt,%i) ] ]
}
}


Mac Fly
03.04.2002, 18:58
Sorry, in Socket-Verbindungen bin ich ein n00b. Sollte ich auch endlich lernen. mann, ich muss noch sooooo viel lernen!!!! (PHP,mySQL,uswwwww... ) :mauer:

Codeq
03.04.2002, 19:01
sockwrite GET
sockread &binvar
bwrite

ich hoffe die stichworte helfen dir.. wenn nicht mach ich mich an nen kompletten source.. :]