Site Index - Feedback - Impressum |
| |||||||||
|
|
( Archiv ) | ( Neues Thema ) |
( Zeige die Threadübersicht ) | ( Zur Startübersicht ) |
16.03.2001 |
Neue Kernel auf testcase - Neue Installationsroutine (von: Taki, 20:16:54) | ^ |
Hallo miteinader,
es gibt mal wieder neue Kernel: ftp://testcase.boulder.ibm.com/ps/fromibm/os2/ w403016.zip (Warp) uni03016.zip (WSeB uni) smp03016.zip (WSeB mulitprozessor) Ich habe inzwischen ein paar Ungereimtheiten aus meine Installationroutine bereinigt. Viel Spaß Taki /* Testcase Kernel Installer */ /* written by Taki, 2001 */ /* This software is PUBLIC DOMAIN */ version="0.2" '@ECHO OFF' CALL RxFuncAdd "SYSLoadFuncs","RexxUtil","SYSLoadFuncs" CALL SYSLoadFuncs /* Find some informations out */ pwd=DIRECTORY() /* directory where we are */ my_drive=FILESPEC(D,pwd) /* drive where we are */ boot_drv=SysBootDrive() /* find the bootdrive out */ PARSE ARG kernelfile /* parse the arguments */ IF kernelfile="" THEN DO SAY 'Error: Kernelfile missing. Please try ''inst-krnl.cmd xxxx.zip'' ' SAY 'or drop ''xxxx.zip'' on ''inst-krnl.cmd'' (xxxx.zip ist the zipped' SAY 'kernel file from testcase).' EXIT 1 /* Exit with error */ END file_name=FILESPEC(N,kernelfile) space=" " kernel=TRANSLATE(file_name,space,".") PARSE VAR kernel kernelversion ext extension=TRANSLATE(ext) /* check the extension */ IF extension <>"ZIP" THEN DO SAY 'Error: Kernelfile missing. The argument was not a zip file.' EXIT 1 /* Exit with error */ END SAY 'Trying to install the testcase kernel 'kernelversion'.' /* now find out if this kernel was installed before! */ CALL sysfiletree boot_drv'testcase.txt',testcase_exists IF testcase_exists.0=0 THEN DO rc=STREAM(boot_drv'testcase.txt','C','OPEN') CALL LINEOUT boot_drv'testcase.txt',kernelversion rc=STREAM(boot_drv'testcase.txt','C','CLOSE') 'ATTRIB -h 'boot_drv'testcase.txt' SAY 'Shall I realy install? Press any key to continue or ctrl-c to stop!' PAUSE CALL do_the_work EXIT /* all done and out */ END ELSE DO rc=STREAM(boot_drv'testcase.txt','C','OPEN') old_kernelversion=LINEIN(boot_drv'testcase.txt') rc=STREAM(boot_drv'testcase.txt','C','CLOSE') IF old_kernelversion==kernelversion THEN DO SAY 'This version of the kernel seams to be already installed!' SAY 'Shall I realy install? Press any key to continue or ctrl-c to stop!' SAY '(Be carefull, your kernel backup will be corrupted!!)' PAUSE CALL do_the_work EXIT END ELSE DO SAY 'I found a backup made for kernel version 'old_kernelversion'.' SAY 'Shall I realy install? Press any key to continue or ctrl-c to stop!' PAUSE rc=STREAM(boot_drv'testcase.txt','C','OPEN') CALL LINEOUT boot_drv'testcase.txt',kernelversion rc=STREAM(boot_drv'testcase.txt','C','CLOSE') CALL do_the_work EXIT /* all done and out */ END END EXIT /* Exit the main routine */ do_the_work: '@ECHO OFF' 'COPY' kernelfile boot_drv ' >nul' boot_drv 'CD 'boot_drv'' 'ATTRIB -r -s -h os2krnl' 'ATTRIB -r -s -h os2ldr' 'COPY os2krnl os2krnl.'kernelversion ' >nul' 'COPY os2ldr os2ldr.'kernelversion ' >nul' 'COPY os2krnl.sym os2krnl.sym.'kernelversion ' >nul' 'MKDIR d:os2systemtrace'kernelversion ' >nul' 'COPY d:os2systemtrace*.tdf d:os2systemtrace'kernelversion ' >nul' 'unzip -o 'kernelfile ' >nul' 'ATTRIB +r +s +h os2krnl' 'ATTRIB +r +s +h os2ldr' 'ATTRIB +r +s +h os2krnl.'kernelversion 'ATTRIB +r +s +h os2ldr.'kernelversion 'del 'kernelfile my_drive 'cd' pwd SAY 'Done!' SAY 'You ''ll find the saved original files in:' SAY boot_drv'os2krnl.'kernelversion' (hidden)' SAY boot_drv'os2ldr.'kernelversion' (hidden)' SAY boot_drv'os2krnl.sym.'kernelversion' and' SAY boot_drv':os2systemtrace'kernelversion RETURN EXIT [ Leser: 110 ] |
17.03.2001 |
Re: Neue Kernel auf testcase - Neue Installationsroutine (von: Marc Senn, 18:03:29) | |
Also ich Starten den FC/2 gehe in die Zip Datei und Copyere es aufs Root von OS/2
obs schreibgeschützt ist ist mir auch egal weil man überschreibt es einfach und ob der Kernel jetzt r s h hat oder nicht ist gleich Booten tut er so oder so. Bye Marc/2 |
Re: Neue Kernel auf testcase - Neue Installationsroutine (von: Taki, 18:38:49) | |
Hallo Marc,
so geht es auch, aber meine Routine macht Backups, falls es zum GAU kommt! Gruß Taki |
19.03.2001 |
Re: Neue Kernel auf testcase - Neue Installationsroutine (von: Marc Senn, 10:47:14) | |
Ich kopyere immer den letzten satz von dem Root auf eine andere Partition.
|
Re: Neue Kernel auf testcase - Neue Installationsroutine (von: Taki, 19:01:54) | |
Eben! Ich bin zufaul dazu und lasse es meine Routine machen ;-= |
( Zeige die Threadübersicht ) | [ Version zum Drucken ] | ( Zur Startübersicht ) |
|
Mit * markierte Felder müssen ausgefüllt werden ! |
|