home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
BCNUK080.ZIP
/
PWANUKE.PPS
< prev
next >
Wrap
Text File
|
1994-12-25
|
1KB
|
43 lines
;
; Use this PPE to nuke files when using PWA flag by Drew.
; Install this PPE in EFLAG.CFG as an external command. It's all explained
; in EFLAG.CFG.
;
string nukecfg, nukefile, filename, dirnr
filename = gettoken()
nukecfg = ppepath() + "flagnuke.cfg"
if (!exist(nukecfg)) then
freshline
println "Error: Flag.ppe is setup to use NUKE.PPE but cannot"
println "find FLAGNUKE.CFG, please contact sysop"
end
endif
nukefile = readline(nukecfg, 1) + "\work\bcnk" + string(curconf()) +"."+ \
string(pcbnode())
if (upper(readline(nukefile, 1)) <> u_name()) then
fclose -1
delete nukefile
fappend 1, nukefile, O_WR, S_DN
fputln 1, u_name()
else
fclose -1
fappend 1, nukefile, O_WR, S_DN
endif
dirnr = string(pcbmac("@DIRNUM@"))
; oops, assume upload dir, there's nothing we can do
if (dirnr == "") then
dirnr = string(pcbmac("@NUMDIR@"))
endif
if (filename <> "") fputln 1, filename + " " + dirnr
fclose 1
println "@X0CFile targetted for nuking...."
delay 20