1 |
#!/bin/tcsh -f |
2 |
|
3 |
cat << EOFA |
4 |
<HTML> |
5 |
<HEAD> |
6 |
<TITLE>Site Index</TITLE> |
7 |
</HEAD> |
8 |
<BODY> |
9 |
|
10 |
<H2>Alphabetical list of page titles</H2> |
11 |
|
12 |
<UL> |
13 |
|
14 |
EOFA |
15 |
|
16 |
\rm -f $0.tmp |
17 |
foreach fl (`find $1 -name "*.html" -type f -print`) |
18 |
(echo -n $fl " " ; awk '/<TITLE>/,/<\/TITLE>/{print $0}' $fl | tr -d '\n') \ |
19 |
| sed 's,\(.*\) .*TITLE>\([0-9\. ]*\)\(.*\)</TITLE.*,<LI><A HREF=\1> \3 (\2)</A></LI>,' \ |
20 |
| awk 'NF>5 {print}' \ |
21 |
| sed 's/()//' >> $0.tmp |
22 |
end |
23 |
sort -d -b -f -k 3 $0.tmp |
24 |
\rm -f $0.tmp |
25 |
#fgrep TITLE $1/*.html \ |
26 |
#find $1 -name "*.html" -type f -printf '%p ' -exec awk '/<TITLE>/,/<\/TITLE>/{print $0}' {} \; \ |
27 |
# | sed 's,\(.*\) .*TITLE>\([0-9\. ]*\)\(.*\)</TITLE.*,<LI><A HREF=\1> \3 (\2)</A></LI>,' \ |
28 |
# | awk 'NF>5 {print}' \ |
29 |
# | sed 's/()//' |
30 |
# | sort -d -b -f -k 3 |
31 |
|
32 |
cat << EOFA |
33 |
|
34 |
</UL> |
35 |
|
36 |
</BODY> |
37 |
EOFA |