#!/p/kd/fdc/bin/wermit +
#
# Shows the approximate number of pages in a web page if it were printed.
# Hardwired for Family History and local directory layout;
# easily generalizable if necessary.
#
cd fh
if fail exit 1
set take error on
# set take echo on
if not def \%1 exit 1 Usage \fbasename(\%0) filename.html
.filename := \%1
show mac filename
if not exist \m(filename) exit 1 \m(filename) not found
echo \v(dir)
dir \m(filename)
copy \m(filename) ~/tmp/
cd ~/tmp/
!lynx -dump \m(filename) > x.html
(setq lines \fcommand(wc -l x.html))
show mac lines
(setq pages (truncate (/ lines 55)))
show mac pages
exit

# Local Variables:
# auto-fill-mode: 0
# fill-column: 78
# indent-tabs-mode: nil
# brace-else-brace: 1
# comment-multi-line: nil
# comment-column: 40
# comment-start: "\# "
# comment-end: ""
# End: