/* ------------------------------------------------------------------------------- SAD-DOWNLOAD DIR v1.0 ©1995 Fli7e/SAD ===================================== Limitations: -=> Maximum of 9 Filedirs/Conf Options: -=> Get amount of Filedirs from "conf/NDIRS" -=> Different Configfiles depending on ACCESSLEVEL Future Plans: -=> Add other archiver like ZIP, LZX ... ->OPTIONAL<- -=> ConfConfig.info, Access.info and Relative conferences usage instead of different configfiles ------------------------------------------------------------------------------- */ PARSE ARG NODE;OPTIONS RESULTS;NODEID="AERexxControl"||NODE;ADDRESS VALUE NODEID;SIGNAL ON ERROR;SIGNAL ON SYNTAX;SIGNAL ON IOERR;GU=GETUSER;GU 105;access=result;QU=Query;TR=TRANSMIT;SS=SENDSTRING;SF=SHOWFILE;CLS= d2c(12);GC=GETCHAR;LF= D2C('10');CR= D2C('13');ZMODEMRECEIVE=138;ZMODEMSEND=137;doordir="doors:sceptic/F!-DownLoadDir";SepLine="- -- --- ------------------------------------------------------------- --- -- -";if exists(doordir"/SAD-DLD."access".cfg") then call load;if ~exists(doordir"/SAD-DLD."access".cfg") then call noload;noload:TR "";TR Sepline;TR Center("I`m sorry to say: There`s no Configfile for YOUR level!",79+15);TR "";TR Center("At the moment your level is "access"! Maybe ask the SYSOP why",79+15);TR Center("he locked the access to this Door for THIS level!",79+9);TR Sepline;TR "";shutdown;exit;end;load:open(cfg,doordir"/SAD-DLD."access".cfg","R");Interpret ReadLN(cfg);I=1;Do until I=Amount+1;Interpret readln(cfg);name.i=name;I=I+1;end;I=1;Do until I=Amount+1;Interpret readln(cfg);location.i=location;I=I+1;end;call close(cfg);UP=8;Down=2;XMIN=1;XMAX=Amount;start:SS CLS;TR "·";TR "_____________:____ ·___________________________";TR "\___ ______/ : /____ ____/__ _____/______ _";TR "\_\__ _____/ ¡ / /__/ /___ ___/_/";TR "\_\__ | __ ! / / / __/_/";TR "\_l______! _\/_ :________/_______/___________/_/";TR ": \/\/ .";TR ". F!";TR Sepline;TR "S/\D Download Dir v1.0 ©1995 Fli7e of S/\D";TR Sepline;restart:TR "";getuser 525;Linenum=11;I=XMIN;Do until I=XMAX+1;TR "["I+Linenum+1";16H-=%#( "center(name.i,35)" )#%=-[0 p";I=I+1;end;I=Xmin;TR "";TR Sepline;TR "8=MARKER UP 2=MARKER DOWN ENTER=Select SPACE=QUIT ";TR Sepline;ELinenum=Linenum+XMAX+4;TR "["I+Linenum+1";22H>"center(name.i,35)"<[0 p";do until Ans=CR;loop:Getchar;Ans=strip(upper(Result));If ans=up&I>XMIN then;do;TR "["I+Linenum+1";22H[0 p "center(name.i,35)" ";I=I-1;call Showx;end;If ans=up&I=XMIN then I=XMIN;If ans= down&I"center(name.i,35)"<[0 p";TR "";CALL loop;SHWBULL:open(ndir,location.i"/ndirs","R");maxdir=readln(ndir);If maxdir>9 then maxdir=9;call close(ndir);TR "["elinenum"H"Center("Which Dir do you like to download: [1-"maxdir",A] (SPACE to abort)[0 p",79+73);choose:J=1;GC;ANS=UPPER(STRIP(RESULT));DO until J=maxdir+1;IF ANS=J THEN CALL doone;J=J+1;END;IF ANS="" THEN CALL restart;IF ANS="A" THEN CALL doall;else call choose;END;doall:TR "["elinenum"H"Center("You`re about to download "maxdir" dirfile(s)! Stay tuned ... Packing LHA![0 p",79+34);filename="DLD-"compress(translate(time(),"",":"));address command("c:lha a ram:"filename" "location.i"/dir#?");open(myadd,"ram:SAD-DLD-v1.0","W");writeln(myadd,center("Created using",79)||"0a"x||center("-> SAD-DLD v1.0 by FLI7e/SAD 1995 <-",79));call close(myadd);address command("c:lha m ram:"filename" ram:SAD-DLD-v1.0");address command("c:lha d ram:"filename" #?.info");call dlp;doone:TR "["elinenum"H"Center("You`re about to download Dir"j" ! Wanna pack it? [Yes,No,Abort][0 p",79+74);choose1:GC;ANS=UPPER(STRIP(RESULT));IF ANS="Y" THEN CALL packone;IF ANS="A" THEN CALL restart;IF ANS="N" THEN CALL nopackone;else call choose1;END;packone:if exists(location.i"/dir"j) then call itsthere;if ~exists(location.i"/dir"j) then call itsnotthere;end;itsthere:TR "["elinenum"H"Center("Found wanted Dirfile & packing LHA! Stay tuned![0 p",79+14);filename="DLD-"compress(translate(time(),"",":"));address command("c:lha a ram:"filename" "location.i"/dir"j);open(myadd,"ram:SAD-DLD-v1.0","W");writeln(myadd,center("Created using",79)||"0a"x||center("-> SAD-DLD v1.0 by FLI7e/SAD 1995 <-",79));call close(myadd);address command("c:lha m ram:"filename" ram:SAD-DLD-v1.0");call dlp;itsNOTthere:TR "["elinenum"H"Center("Can`t find wanted Dirfile!",79+9);call exit;dlp:PUTUSTR "ram:"filename".lha";PUTUSER 137;address command("c:delete >nil: ram:"filename".lha");call start;end;nopackone:TR "["elinenum"H"Center("Here we go!",79+9);dlnp:filename="DLD-"compress(translate(time(),"",":"))".txt";address command("c:copy "location.i"/dir"j" ram:"filename);PUTUSTR "ram:"filename".lha";PUTUSER 137;address command("c:delete >nil: ram:"filename".lha");call start;end;ERROR:TR;TR "Error in Line #"Sigl" : exiting ...";TR ERRORTEXT(Sigl);call quit;END;SYNTAX:TR;TR "Error in Line #"Sigl" : exiting ...";TR ERRORTEXT(Sigl);call quit;END;IOERR:TR;TR "IO Error in Line #"Sigl" : exiting ...";TR ERRORTEXT(Sigl);call quit;END;exit:TR "["Elinenum+1"H[ p";Shutdown;exit;end;ERROR:TR;TR "Error in Line #"Sigl" : exiting ...";TR ERRORTEXT(Sigl);CALL EXIT;END;Syntax:TR;TR "Syntax Error in Line #"Sigl" : exiting ...";TR ERRORTEXT(Sigl);CALL EXIT;END;IOERR:TR;TR "I/O Error in Line #"Sigl" : exiting ...";TR ERRORTEXT(Sigl);CALL EXIT;END