FYI
Reading an internet directory does not give same result
as reading a local directory.
The attached program is what I use to "correct" that behavior.
Dick McCullough
Context Knowledge Systems
What is your view?
# string
procedure webdir(dir)
#====================
# suspend file names of web directory
local fd,wline,fname
static prefix,n,fchar
initial {
prefix := "<img src=\"/myicons/folder.gif\" alt=\"[DIR]\"> <a href=\""
n := *prefix
fchar := &letters ++ &digits
}
if fd := open(dir,"m") then {
while wline := read(fd) do {
if wline[1:n+1] == prefix then {
wline[1:n+1] := ""
wline ? fname := tab(many(fchar))
suspend fname
}
}
} else {
write(&errout,"# ERROR: can't open web directory <",dir,">")
fail
}
fail
end
------------------------------------------------------------------------------
Open source business process management suite built on Java and Eclipse
Turn processes into business applications with Bonita BPM Community Edition
Quickly connect people, data, and systems into organized workflows
Winner of BOSSIE, CODIE, OW2 and Gartner awards
http://p.sf.net/sfu/Bonitasoft
_______________________________________________
Unicon-group mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/unicon-group
