$! search out for unused jpg's in the directory $ $ set noon $ on control_y then goto end $ linkonly:=false ! boolean links only or images $ quote=""" $ $ htmdir=f$parse("''p1'",f$envir("default"),,"device")+ - f$parse("''p1'",f$envir("default"),,"directory") $ if p2.eqs."" then p2=htmdir+"*.jpg" $ $ open/write htm 'htmdir'unused-jpg.htm $ write htm "" $ write htm "
" $ write htm "" $ write htm "Back to debug main" $ write htm "
"
$next:
$ file=f$search(p2)
$ if file.eqs."" then goto end
$ name=f$edit(f$parse(file,,,"name")+f$parse(file,,,"type"),"lowercase")
$ search/nooutput/nowarning 'htmdir'*.html "''name'"
$ if $status.eqs."%X08D78053" then goto notfound
$ goto next
$notfound:
$ if linkonly
$ then
$ write htm " ",-
name,-
" ",(f$file(file,"EOF")*512)/1024,"k ",f$file(file,"cdt"),"
"
$ else
$ write htm "
",-
name,-
" ",(f$file(file,"EOF")*512)/1024,"k ",f$file(file,"cdt"),"
"
$ endif
$ goto next
$end:
$ write htm "
" $ write htm "Back to debug main" $ write htm "" $ close htm $ exit