OS2.org Site Index - Feedback - Impressum
Sprachauswahl / Choose your Language News Software Hardware Projekte Forum Tipps Links Verschiedenes
Editorial Diskussion HelpDesk Umfrage
[Forum]
in nach (Erweiterte Suche)
[Forum]
( Archiv ) ( Neues Thema )

( Zeige die Threadübersicht ) ( Zur Startübersicht )
27.11.2013
Wer kennt sich mit REXX aus? (von: Günter, 12:24:43) ^
Zur Vorgeschichte, ich habe ein REXX Script dass es mir unter OS/2 Vers.
1.2 oder auch 2.0 erlaubte, einen Passwort geschützten Folder zu erstellen. Wenn selbiger gelockt war, dann war diagonal über dem Foldersymbol ein dicker roter Strich. Nach Eingabe des PW wurde der Ordner geöffnet. War ganz praktisch. Das Script erstellte eine Folder Class im Ordner Schablonen. Leider läuft es nicht unter OS/2 4.52, das heißt, er tut so als wenn er die Folder-Class in dem Ordner Schablonen erstellt hätte.
Wer kann mir weiterhelfen? Leider habe ich null Kenntnis von REXX
[ Leser: 271 ]

Re: Wer kennt sich mit REXX aus? (von: Frank Wochatz, 14:11:24)
Poste doch mal das Script.

Re: Wer kennt sich mit REXX aus? (von: Günter, 15:58:13)
"@echo off"
Adress CMD
Call SETLOCAL
Call RxFuncAdd 'SysloadFuncs', 'REXXUTIL', 'SysloadFuncs'
Call SysloadFuncs
rc = main()
Call ENDLOCAL
return rc
main:
system_drive = FileSpec('Drive', Value('OS2_Shell',, 'OS2ENVIROMENT'))
prod_name = "PWF"

fspec_dll = DLLSearch(prod_name)
if fspec_dll >< '' Then Do
Say "PWfolder was already installed: you must delete all"
Say "LockUp Folders you installed.You can save their"
Say "contents in regular folders."
Say "Do you want tu pursue? (YES or NO)"
Pull answer
if answer >< 'YES' Then Return 0
rc = SysDeregisterObjectClass('PWFolder');
if rc >< 1 Then Do
Say "Cannot de-register PWF object class";
End;
End; Else Do
fspec_dll = system_drive'\OS2\APPS\DLL\'prod_name'.DLL'
End
fspec_hlp = SysSearchPathOnly(HELP, prod_name'.HLP')
if fspec_hlp == ' ' Then fspec_hlp = system_drive'\OS2\HELP\'prod_name'.HLP'

"COPY PWF.DLL" spe_dll
if rc >< 0 Then Do
Say 'Cannot copy PWF.DLL to fspec_dll', rc='rc
Call TempHelp1
Return 4
END
"Copy PWF.HLP" fspec-hlp
if rc >< 0 Then Do
Call TempHelp2
Return 4
End
if SysRegisterObjectClass('PWFolder', fspec_dll) >< 1Then Do
Say 'Cannot register the PWFolder Object class'
Return 4
End; Else Do;
Say 'PWFolder class successfully created'
Say 'Go drag some instances from the "Templates" folder,,,'
End;
Return 0
/*---------------------------SubRoutines and Functions ---------------------*/
DLLSearch: Procedure Expose system_drive
Arg filename
/*Search for LIBPATH in CONFIG.SYS */
rc = SysFileSearch('LIBPATH', system_drive'\CONFIG.SYS', 'answer.')
if rc >< 0 | answer.0 >< 1 Then Do
say 'Cannot read the Libpath statement of CONFIG.SYS
filespec = ' '
End; Else Do
/* Get the file, if any */
Parse Value answer.1 with 'LIBPATH=' answer.1
"set DUMMY="answer.1
filespec = SysSearchPathOnly(Dummy, filename'.DLL')
End
return filespec
SysSearchPathOnly:
Arg path, filename
"rename "filename" zutzut.zut 2>NUL" /*Aaaarggghhh */
filespec = SysSearchPath(path, filename)
"rename zutzut.zut "filename" 2>NUL" /*Aaaarggghhh */
return filespec
TempHelp1:
Say " >Sometimes de-registering an object class does not remove"
Say " > the subdirectory in Templates. If the files has been"
Say " > found 'being use by another process', check if there is"
Say " > a directory Like:"
Say " > system_drive "\OS2 Desktop\???\Templates\LockUpFolder"
Say "> You can either re-IPL, or remove this directory."

TempHelp2:
Say " > If the file has been found'being use by another process',"
Say " > you havetu shutdown your system and restart this command"

Ich hoffe es ist soweit in Ordnung?
Die DLL und Help File kopiert er richtig.


Say 'cannot copy PWF.HLP to 'fspec_hlp', rc='rc








Re: Wer kennt sich mit REXX aus? (von: Andreas Schnellbacher, 17:42:48)
> "COPY PWF.DLL" spe_dll

Das kann so nicht funktionieren: "spe_dll" ist nicht gesetzt.
Wahrscheinlich soll es "fspec_dll" heißen.

> Die DLL und Help File kopiert er richtig.

Eher nicht.

Re: Wer kennt sich mit REXX aus? (von: Günter, 18:24:18)
ist richtig, soll fspec.dll heißen. Ist mein Fehler - im Pgm. aber richtig.

29.11.2013
Re: Wer kennt sich mit REXX aus? (von: Günter, 10:18:59)
da das Script richtig abläuft, scheint die Unverträglichkeit wahrscheinlich in der DLL zu liegen. Gibt es ein Tool mit dem ich eine DLL editieren kann?

Re: Wer kennt sich mit REXX aus? (von: Lothar S., 17:07:12)
Setze doch mal weit oben ins Script die Anweisung 'trace ?r' (ohne die ') ein, dann kannst Du die Ausführung Schritt für Schritt verfolgen und schließlich eingrenzen; die Anweisung kannst Du alternativ an den Anfang einer "kritischen" Befehlsfolge setzen.

Aber wenn ich das dem Script und dessen SAY-Nachrichten oberflächlich recht verstanden habe, so soll es genau das tun was Du bemängelst: Es erzeugt nur eine Objekt-_Klasse mit einem Template; am Ende sollst Du einen der Neuen Folder aus dem Template-Ordner ziehen, um ein reales _Objekt zu erhalten. Oder?

P.S.: Falls es wirklich an der DLL liegen sollte: Die DLL liegt ja Dir wohl nur in binärer Form vor. Ohne die Source und Compiler wirst Du wohl kaum sinnvoll etwas darin ändern können.

Re: Wer kennt sich mit REXX aus? (von: Günter, 21:36:42)
die Trace ?r Anweisung ist sehr gut, habe sie weit oben eingebaut - aber wie ich schon sagte, es läuft ohne zu murren durch. Er kopiert die DLL + die Help File in die entsprechenden Verzeichnisse und zum Schluss sagt er das alles zufriedenstellend erstellt wurde. Nur das Template erstellt er nicht.
Ich vermute, dass da eine Unverträglichkeit zwischen den OS/2 Versionen besteht. Wie gesagt unter OS/2 1.2 bzw. 2.0 lief das Script und erstellte das Folder-Template.
Schade, da muss ich wohl passen. Trotzdem Danke!

Re: Wer kennt sich mit REXX aus? (von: fna, 21:54:00)
Alternativ kannst du natürlich mal schauen, ob http://hobbes.nmsu.edu/download/pub/os2/util/wps/privf.zip bei dir läuft.
30.11.2013
Re: Wer kennt sich mit REXX aus? (von: Günter, 12:02:34)
ich habe es mal installiert - ist ja fast die Variante die ich habe. Sieht ganz gut aus -habe es in die OS/2 VM ausprobiert. Hat alles installiert, nur, ich kam mit keinem Passwort an den Folder. Das PW wird ja in der Test.cmd hinterlegt. Oder ich mache etwas falsch!

Re: Wer kennt sich mit REXX aus? (von: Frank Wochatz, 16:14:46)
Welches PWFolder verwendest Du denn? Ich habe nur dieses hier auf "os2 site" gefunden, da gibt es jedoch zB. kein Helpfile:

pwfolder.zip 9,925 1993/4/26 [08:56:02]

Gib doch mal ein en Downloadlink für das komplette Paket.

Ich würde das gerne mal testen. Ev. läßt sich feststellen, womit die DLL kollidiert.

Danke!
Frank

Re: Wer kennt sich mit REXX aus? (von: Günter, 18:01:48)
Hallo Frank,
einen Link kann ich dir leider nicht anbieten. Es ist aus alten OS/2 Zeiten.
Gib mir Deine Mail dann schicke ich Dir die Files.

Re: Wer kennt sich mit REXX aus? (von: Günter, 18:25:42)
sonst gib mir mal den Link - von der pwfolder.zip
01.12.2013
Re: Wer kennt sich mit REXX aus? (von: Frank Wochatz, 01:30:01)
Link:
http://crydee.sai.msu.ru/ftproot/pub/comp/os/os2/leo/wpstools/pwfolder.zip

Eigentlich hier, aber der geht grad nicht...:
http://www.os2site.com/sw/util/security/index.html

Meine Email: mail@subsys.de

Danke!

( Zeige die Threadübersicht ) [ Version zum Drucken ] ( Zur Startübersicht )

Datum Thema
06.01.2017 *

*

Name: * eMail: Benachrichtigung

Mit * markierte Felder müssen ausgefüllt werden !


php.net OpenIT © 1998-2017 by WebTeam OS2.org