/* $VER: INFOINS.rexx 1.0 By Alfredo Soro (*) (24.04.96) */
/* Compressed with CompressRexx v2.1, (C) 1993-96 Robert Hofmann */
OPTIONS RESULTS;if ~show('l','rexxsupport.library');then do;call addlib('rexxsupport.library',0,-30);end;SIGNAL ON BREAK_C;SIGNAL ON BREAK_D;SIGNAL ON BREAK_E;SIGNAL ON BREAK_F;signal on syntax;Say '';Say 'InfoINS.rexx V. 1.0 (24.04.96) Por Alfredo Soro';say ' Instalador automático de software para InfoVIA';say '';address command;parse arg pathINTERNET CPU;elcp = right(cpu,3);CPU = elcp;if pathINTERNET ='' | pathINTERNET = '?' then CALL USAGE;if exists(pathINTERNET'AmiTCP-4.0');then do;Say '';Say 'Quizas necesites hacer una copia de seguridad!!';Say ' Los ficheros DEBEN ser sobreescritos (All)';Say ' Si el LHA lo pregunta elige la opción: A';Say '';Say ' Si ya tienes todo instalado y funcionando,';Say 'No debiste ejecutar este programa.';Say '';options prompt ' - ¿Abortar ahora? (S/n): ';parse pull rep;if rep ~= 'N' & rep ~= 'n' then EXIT;end;if ~exists('amitcpdemo_40.lha');then do;say 'Necesito el fichero AMITCPDEMO_40.LHA en el mismo cajon'
Say 'que este script InfoINS.rexx ';EXIT;end;'lha x AMITCPDEMO_40.LHA 'pathINTERNET;if ~exists(pathINTERNET);then do;Say '';say ' * ALGO HA SALIDO MAL!';Say '';say ' Asegurate de que <'pathINTERNET'> no tiene espacios';say 'y la partición tiene al menos 2 MB. libres.';say '';Call USAGE;EXIT;end;if ~exists('PPP1_45.LHA');then do;say 'Necesito el fichero PPP1_45.LHA en el mismo directorio';Say 'que este script InfoINS.rexx ';EXIT;end;'lha x PPP1_45.LHA 'pathINTERNET;if exists('devs:ppp.device');then do;Say '';Say ' ! DEVS:PPP.device YA EXISTENTE.';Say ' ! Renombrado como DEVS:PPP.Device.BAK';'copy devs:ppp.device devs:ppp.device.BAK';call DELAY(100);end;if CPU ~= '000' & CPU ~= '020';then do;say 'El argumento CPU debe ser 000 o 020';say CPU;Call USAGE;EXIT;end;'copy 'pathINTERNET'PPP/devs/ppp.device.'CPU'.eval devs:ppp.device';'copy 'pathINTERNET'PPP/bin/#? 'pathINTERNET'AmiTCP-4.0/bin/';if exists('envarc:sana2/ppp.password');then do;Say ' * EnvArc:Sana2/ppp.password YA EXISTENTE.'
Say ' * Renombrado como SYS:Prefs/ppp.password.BAK';'copy envarc:sana2/ppp.password sys:prefs/ppp.password.BAK';call delay(100);end;if exists('envarc:sana2/ppp0.config');then do;Say ' ! EnvArc:Sana2/ppp0.config YA EXISTENTE';Say ' ! Renombrado como Sys:Prefs/ppp0.config.BAK';'copy envarc:sana2/ppp0.config sys:prefs/ppp0.config.BAK';call delay(100);end;'delete >NIL: envarc:sana2/ppp.password';'delete >NIL: envarc:sana2/ppp0.config';'delete >NIL: envarc:sana2';if exists('envarc:sana2');then do;Say ' Tienes el directorio ENVARC:sana2 con algo y va a ser borrado';Say '';options prompt ' - ¿Deseas Abortar ahora? (S/n): ';parse pull rep;if rep ~= 'N' & rep ~= 'n' then EXIT;end;'delete >NIL: envarc:sana2 all';'makedir >NIL: envarc:sana2';'echo >envarc:sana2/ppp.password "infovia infovia"';'echo >envarc:sana2/ppp0.config "serial.device 0 38400 0.0.0.0 7WIRE DIALSCRIPT=amitcp:bin/pppdialscript PAP=envarc:sana2/ppp.password,infovia"'
Call writeln('IV','AmiTCP:bin/route add $ppp0IPLocal localhost');Call writeln('IV','AmiTCP:bin/route add default $ppp0IPRemote');Call writeln('IV','Assign >NIL: TCP: EXISTS');Call writeln('IV','IF WARN');Call writeln('IV',' Mount TCP: FROM AmiTCP:devs/inet-mountlist');Call writeln('IV','EndIF');Call writeln('IV','Run <NIL: >NIL: AmiTCP:bin/inetd');CALL CLOSE('IV');'Protect 'pathINTERNET'AmiTCP-4.0/bin/infovia +s';if exists('s:IV');then do;Say ' - s:IV YA EXISTENTE';Say ' - Renombrado como s:IV.BAK';'copy s:IV s:IV.BAK';end;'echo >s:IV "CD 'pathINTERNET'AmiTCP-4.0/bin/"';'echo >>s:IV "'pathINTERNET'AmiTCP-4.0/bin/infovia"';'protect s:IV +s';'echo >s:colgar "amitcp:bin/offline ppp0"';'protect s:colgar +s';Say '';Say 'Ufff.. Parece que ya esta.';Say '';Say 'Para entrar en INFOVIA abre un CLI o SHELL y teclea:';Say '';Say 's:IV';Say '';Say 'o IV a secas.. y a ver que pasa :-)';Say '';Say 'Una vez estes conectado puedes probar programas como';Say 'el AWeb y cargar localmente una pagina; como el indice'
Say 'de indices de INFOVIA: infovia.html (incluido)';Say '';Say 'PARA COLGAR pon en el CLI:';Say '';Say 'colgar';Say '';if exists('s:ppp.key');then do;say 'Veo que tienes una PPP.KEY - Si no es la de Stefan Gybas vale.';Say 'Te advierto que muchos fallos en las conexiones, pueden';Say 'ser debidos a keys no legales de programas para internet.';end;Say '';Say ' Si no logras conectar a la primera prueba mas tarde por';Say 'si infovia esta desconfigurada. A veces puede no ser culpa';Say 'de tu configuración :-p';EXIT;EXIT;USAGE:;Say 'Utilización:';Say '> Rx INFOINS <pathINTERNET> <CPU>';say '';say ' <pathINTERNET> es el directorio donde quieres que se cree';say 'el cajón "AmiTCP-4.0". IMPORTANTE: Este argumento debe';Say 'terminar con ":" si el destino es la raiz de una partición';Say 'o con "/" si el destino es un directorio.';Say '';Say ' <CPU> solo puede ser o bien "020" (si tienes un CPU 020';say 'o superior) o bien "000" (para cualquier Amiga)';Say '';Say 'Ejemplo:';Say ''
