> UpdateHTML v0.34
FQ%=: ctrl%127,name%127,data%511:A$=OS_GetEnv:X%=ctrl%:Y%=X%256
ver$="0.34"
(Rquit$=cl(" -q",1):debug%=cl("-d",0): "Spool"::Close_All: :exit():
2^ cl("-?",0):"Syntax: "run$" -path -home -navbar -quit quitcmd":exit(0):
<;verbose%=cl("-v",0):path$=cl("-p",1):nav%=cl("-n",0)
F"":"Dir "+dir$
& site$,2)<>"::":site$=site$+"::"
H path$="":path$=Path_Name:path$=s(gbpb(5))+path$,path$,"$")-1)
path$="""""":path$=""
;IdxHeadr$="Automatic BBC Tree Crawler":IdxHeadrOff%=&6D
.index$="index/htm":out$=index$+"_":dirs%=0
H::f$="."+path$: f$=f$,2): f$,".")=0:path$=path$, path$- f$-1)
I::A%=1: home$="/.."+home$:A%=path$,".",A%+1): A%=0:home$=home$,5)
#fs%=fs::15:DoDir:exit(0):
Scan(f%,path$): p%,t%,f$
8:f$=s(gbpb8(p%)):r%=X%!5:p%=X%!9: f$<>"":RdName
f$="":
RdName: f$=46:
2 f$=95 f$=index$ f$,1)="_" f$=out$:
4t%=file(f$,5):l%=X%!2:e%=X%!6:n%=X%!10:a%=X%!14
"4 fs%=5:A%=NetFS_Op(&12,64+f$):X%?9=a%:a%=X%!9
,%X%!2=l%:X%!6=e%:X%!10=n%:X%!14=a%
6$ f$<>"$": t%=2 (X%?14 8):
@ t%=1:(X%?14 &13)<>&11:
J t%=1:(X%?14 &10)<>&10:
T t%=2: f$,1)="!":t%=3
^+ t%=1 t%=2:DoObject: f%: f%<>t%:
h verbose%: t$(t%)": ";f$
r t%=1:DoFile:
| -1: f$:
t%<>2:
:dirs%=dirs%+1:"Dir "+f$:DoDir:"Dir ^":dirs%=dirs%-1
ݤCheckIndex
%A%=file("@."+index$,5): A%=0:=
RdTop(index$):=
EA%=data%::A%=A%+1+$A%: $A%=0 $A%,IdxHeadr$) A%>data%+510
=$A%,IdxHeadr$) $A%<>0
4ݤRdTop(A$):in%=(A$): #in%<256:#in%:in%=0:=
@ A%=0511: #in%:data%?A%=#in%: data%?A%=10:data%?A%=13
!:#in%:in%=0:data%?511=13:=
9ݤNoRoot(A$):A%=A$,".$"): A%:A$=A$,A%-1)+A$,A%+2)
A$,2)="..":A$=A$,3)
=A$
DoDir
; CheckIndex:DoDirPre:Scan(1,path$+"."+f$):DoDirMid
&$Scan(2,path$+"."+f$):DoDirPost
0
:DoObject: f%<>1:
D
f1$=f$
N
FileType
X"f2$=unixname(ext(f1$,type%))
b+ type%=&FC0:Link f$=f$+f2$, f$+1)
l
MimeType
vX"",mime$="");: mime$<>"":" TYPE="""+mime$+""">";
7 f$;"",html%);spc(13- f$);:x%=(x%+1)(x%<3)
N "DL/"+spc(1),t%=2)"wr/R",t%<>2);spc(1)+" ",x%>0);"
",x%=0);cr;
DoFile
DoDirPre
"Spool "+out$:htmlHdr
x%=0:
'DoDirMid:"";: nav%:navbot
%""cr"