author | wenzelm |
Mon, 11 Sep 2000 20:23:24 +0200 | |
changeset 9925 | 40f02ebcb3c0 |
parent 9920 | 9734f2717203 |
child 10085 | a9704bf90031 |
permissions | -rw-r--r-- |
8056 | 1 |
<!-- _GP_ |
2 |
# undef all the functions we're defining. This stops lots of |
|
9920
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
3 |
# complaining about re-defining the sub for each content file that's |
8056 | 4 |
# processed. |
5 |
||
6 |
if (defined(&me)) { undef &me; } |
|
9920
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
7 |
if (defined(&distname)) { undef &distname; } |
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
8 |
if (defined(&href)) { undef &href; } |
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
9 |
if (defined(&twodig)) { undef &twodig; } |
8056 | 10 |
if (defined(&when)) { undef &when; } |
11 |
if (defined(&size)) { undef &size; } |
|
12 |
if (defined(&page)) { undef &page; } |
|
13 |
if (defined(&empty_line)) { undef &empty_line; } |
|
14 |
if (defined(&setnavcolor)) { undef &setnavcolor; } |
|
15 |
if (defined(&twodig)) { undef &twodig; } |
|
16 |
if (defined(&setdowncolor)) { undef &setdowncolor; } |
|
17 |
if (defined(&download)) { undef &download; } |
|
18 |
||
19 |
--> |
|
20 |
||
21 |
<!-- _GP_ |
|
22 |
||
9920
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
23 |
sub distname { |
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
24 |
return $ENV{"DISTNAME"}; |
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
25 |
} |
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
26 |
|
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
27 |
sub href { |
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
28 |
return "<a href=\"" . $_[0] . "\">" . $_[1] . "</a>"; |
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
29 |
} |
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
30 |
|
8056 | 31 |
sub twodig { |
32 |
if ($_[0] < 10) { |
|
33 |
return "0$_[0]"; |
|
34 |
} |
|
35 |
return "$_[0]"; |
|
36 |
} |
|
37 |
||
38 |
# ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time); |
|
39 |
sub when { |
|
40 |
my @s = stat $inputfile; |
|
41 |
my @t = gmtime($s[9]); |
|
42 |
my $year = $t[5]+1900; |
|
43 |
my $month = twodig($t[4]+1); |
|
44 |
my $day = twodig($t[3]); |
|
45 |
return "$month/$day/$year"; |
|
46 |
# my $hour = twodig($t[2]); |
|
47 |
# my $min = twodig($t[1]); |
|
48 |
# return "$month/$day/$year $hour:$min UTC"; |
|
49 |
} |
|
50 |
||
51 |
sub setnavcolor { |
|
52 |
$navcolor = $_[0]; |
|
53 |
return ""; |
|
54 |
} |
|
55 |
||
56 |
# page(name, file) |
|
57 |
sub page { |
|
58 |
my $retval = ""; |
|
59 |
||
60 |
if ("$_[1].html" eq substr($outputfile,rindex($outputfile,"/")+1)) { |
|
61 |
$retval = <<EOF; |
|
62 |
<table width="100%" border="0" cellspacing="0" cellpadding="5"> |
|
63 |
<tr> |
|
64 |
<td align=center bgcolor="$navcolor"> |
|
65 |
<b><font face="Arial,Helvetica"><A HREF="$_[1].html" target="_top">$_[0]</A></font></b> |
|
66 |
</td> |
|
67 |
</tr> |
|
68 |
</table> |
|
69 |
EOF |
|
70 |
} |
|
71 |
else { |
|
72 |
$retval = <<EOF; |
|
73 |
<table width="100%" border="0" cellspacing="0" cellpadding="5"> |
|
74 |
<tr> |
|
75 |
<td width="8"> </td> |
|
76 |
<td width="150" align=center bgcolor="$navcolor"> |
|
77 |
<b><font face="Arial,Helvetica"><A HREF="$_[1].html" target="_top">$_[0]</A></font></b> |
|
78 |
</td> |
|
79 |
<td width="8"> </td> |
|
80 |
</tr> |
|
81 |
</table> |
|
82 |
EOF |
|
83 |
} |
|
84 |
return $retval; |
|
85 |
} |
|
86 |
||
87 |
# empty_line(numcols) |
|
88 |
sub empty_line { |
|
89 |
my $retval = <<EOF; |
|
90 |
<p> |
|
91 |
EOF |
|
92 |
return $retval; |
|
93 |
} |
|
94 |
||
95 |
# size(filename) |
|
96 |
sub size { |
|
97 |
my $filename = $_[0]; |
|
98 |
my @s = stat $filename; |
|
9920
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
99 |
my $size = defined $s[7] ? $s[7]/1024 : 0; |
8056 | 100 |
|
9925 | 101 |
return sprintf("%d", $size); |
8056 | 102 |
} |
103 |
||
104 |
sub setdowncolor { |
|
105 |
$downcolor = $_[0]; |
|
106 |
return ""; |
|
107 |
} |
|
108 |
||
9920
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
109 |
# download(description, url, prefix) |
8056 | 110 |
sub download { |
111 |
||
112 |
my $descr = $_[0]; |
|
113 |
my $url = $_[1]; |
|
9920
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
114 |
my $prefix = $_[2]; |
8056 | 115 |
|
9920
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
116 |
my $size = size("$prefix/$url"); |
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
117 |
$size = "$size K"; |
8056 | 118 |
|
119 |
my $filename = $path; |
|
120 |
||
121 |
if ($url =~ /([^\/]*\/)*([^\/]+)/) { |
|
122 |
$filename = $2; |
|
123 |
} |
|
124 |
||
125 |
my $td = "nowrap bgcolor=$downcolor"; |
|
126 |
||
127 |
my $retval = <<EOF; |
|
128 |
<tr> |
|
129 |
<td align="left" $td> |
|
130 |
$descr |
|
131 |
</td> |
|
132 |
<td align="left" $td> |
|
133 |
<A HREF="$url">$filename</A> |
|
134 |
</td> |
|
135 |
<td align="right" $td> |
|
136 |
$size |
|
137 |
</td> |
|
138 |
</tr> |
|
139 |
EOF |
|
140 |
||
141 |
return $retval; |
|
142 |
} |
|
143 |
||
144 |
--> |