The Samba-Bugzilla – Attachment 3424 Details for
Bug 5544
file service problem for wrapped tcl scripts
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Requests
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
tcl-script crashes
InsReg-4.tcl (text/plain), 876 bytes, created by
Ralf Weinert (dead mail address)
on 2008-07-28 00:54:28 UTC
(
hide
)
Description:
tcl-script crashes
Filename:
MIME Type:
Creator:
Ralf Weinert (dead mail address)
Created:
2008-07-28 00:54:28 UTC
Size:
876 bytes
patch
obsolete
>set mypasswd {XXXXXXXX} >if {$argc != 1} { > puts "Fehler Aufruf InsReg.exe Lw file.reg." ># Bsp.: InsReg.exe B: M:/Cr5V7010/cr5000-Install/BD.reg > after 3000 > exit 1 >} else { > if {[catch {set LW $env(CR5_DRIVE)}]} {set LW "M:"} > if {![regexp -nocase {^[a-z]:$} $LW]} {set LW "M:"} > > set REG [lindex $argv 0] > regsub -all {\\} $REG {/} REG > if {![regexp -nocase "^($LW/|C:/Temp/)" $REG] || ![file exists $REG]} { > puts "Fehler: Datei unzulaessig ($REG)." > after 3000 > exit 1 > } else { > if {[catch {exec $LW/AllgDir/ModPath/pcwRunAs3.exe /noprofile /u bw1wenr0@ww009.siemens.net /p $mypasswd /app "C:/WINNT/regedit.exe /f /s $REG"}] == 0} { > puts "Reg Systemeintraege ($REG) modifiziert." > after 3000 > exit 0 > } else { > puts "Fehler ?Systemeintraege? ($REG)." > after 3000 > exit 1 > } > } >}
<b>You cannot view the attachment while viewing its details because your browser does not support IFRAMEs. <a href="attachment.cgi?id=3424">View the attachment on a separate page</a>.</b>
View Attachment As Raw
Actions:
View
Attachments on
bug 5544
:
3421
|
3422
|
3424
|
3433
|
3434
|
3435