author | kleing |
Thu, 06 Jan 2005 03:00:58 +0100 | |
changeset 15427 | 4b939ba65c31 |
parent 10344 | bb0b65380516 |
child 15932 | 2c351ab6c403 |
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; } |
|
10085 | 17 |
if (defined(&downloadhead)) { undef &downloadhead; } |
8056 | 18 |
if (defined(&download)) { undef &download; } |
19 |
||
20 |
--> |
|
21 |
||
22 |
<!-- _GP_ |
|
23 |
||
9920
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
24 |
sub distname { |
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
25 |
return $ENV{"DISTNAME"}; |
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 |
|
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
28 |
sub href { |
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
29 |
return "<a href=\"" . $_[0] . "\">" . $_[1] . "</a>"; |
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
30 |
} |
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
31 |
|
8056 | 32 |
sub twodig { |
33 |
if ($_[0] < 10) { |
|
34 |
return "0$_[0]"; |
|
35 |
} |
|
36 |
return "$_[0]"; |
|
37 |
} |
|
38 |
||
39 |
# ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time); |
|
40 |
sub when { |
|
41 |
my @s = stat $inputfile; |
|
42 |
my @t = gmtime($s[9]); |
|
43 |
my $year = $t[5]+1900; |
|
44 |
my $month = twodig($t[4]+1); |
|
45 |
my $day = twodig($t[3]); |
|
15427 | 46 |
return "$year-$month-$day"; |
8056 | 47 |
# my $hour = twodig($t[2]); |
48 |
# my $min = twodig($t[1]); |
|
49 |
# return "$month/$day/$year $hour:$min UTC"; |
|
50 |
} |
|
51 |
||
52 |
sub setnavcolor { |
|
53 |
$navcolor = $_[0]; |
|
54 |
return ""; |
|
55 |
} |
|
56 |
||
57 |
# page(name, file) |
|
58 |
sub page { |
|
59 |
my $retval = ""; |
|
60 |
||
61 |
if ("$_[1].html" eq substr($outputfile,rindex($outputfile,"/")+1)) { |
|
62 |
$retval = <<EOF; |
|
10344 | 63 |
<table width="188" border="0" cellspacing="0" cellpadding="5"> |
8056 | 64 |
<tr> |
10344 | 65 |
<td width="8" bgcolor="$navcolor"> </td> |
66 |
<td width="160" align="center" bgcolor="$navcolor"> |
|
8056 | 67 |
<b><font face="Arial,Helvetica"><A HREF="$_[1].html" target="_top">$_[0]</A></font></b> |
68 |
</td> |
|
10344 | 69 |
<td width="8" bgcolor="$navcolor"> </td> |
8056 | 70 |
</tr> |
71 |
</table> |
|
72 |
EOF |
|
73 |
} |
|
74 |
else { |
|
75 |
$retval = <<EOF; |
|
10344 | 76 |
<table width="188" border="0" cellspacing="0" cellpadding="5"> |
8056 | 77 |
<tr> |
78 |
<td width="8"> </td> |
|
10344 | 79 |
<td width="160" align=center bgcolor="$navcolor"> |
8056 | 80 |
<b><font face="Arial,Helvetica"><A HREF="$_[1].html" target="_top">$_[0]</A></font></b> |
81 |
</td> |
|
82 |
<td width="8"> </td> |
|
83 |
</tr> |
|
84 |
</table> |
|
85 |
EOF |
|
86 |
} |
|
87 |
return $retval; |
|
88 |
} |
|
89 |
||
90 |
# empty_line(numcols) |
|
91 |
sub empty_line { |
|
92 |
my $retval = <<EOF; |
|
93 |
<p> |
|
94 |
EOF |
|
95 |
return $retval; |
|
96 |
} |
|
97 |
||
98 |
sub size { |
|
99 |
my $filename = $_[0]; |
|
10085 | 100 |
|
8056 | 101 |
my @s = stat $filename; |
9920
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
102 |
my $size = defined $s[7] ? $s[7]/1024 : 0; |
8056 | 103 |
|
9925 | 104 |
return sprintf("%d", $size); |
8056 | 105 |
} |
106 |
||
107 |
sub setdowncolor { |
|
108 |
$downcolor = $_[0]; |
|
109 |
return ""; |
|
110 |
} |
|
111 |
||
10085 | 112 |
sub downloadhead { |
113 |
my $text = $_[0]; |
|
8056 | 114 |
|
10085 | 115 |
return <<EOF; |
116 |
<tr><td colspan=3><strong>$text</strong></td></tr> |
|
117 |
EOF |
|
118 |
} |
|
119 |
||
120 |
sub download { |
|
121 |
my $rowspan = $_[0]; |
|
122 |
my $descr = $_[1]; |
|
123 |
my $url = $_[2]; |
|
124 |
my $prefix = $_[3]; |
|
8056 | 125 |
|
9920
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
126 |
my $size = size("$prefix/$url"); |
9734f2717203
improved WWW page generation (still somewhat experimental);
wenzelm
parents:
8056
diff
changeset
|
127 |
$size = "$size K"; |
8056 | 128 |
|
129 |
my $filename = $path; |
|
130 |
||
131 |
if ($url =~ /([^\/]*\/)*([^\/]+)/) { |
|
132 |
$filename = $2; |
|
133 |
} |
|
134 |
||
135 |
my $td = "nowrap bgcolor=$downcolor"; |
|
136 |
||
10085 | 137 |
my $descr_text = ""; |
138 |
if ($descr ne "") { |
|
139 |
$descr_text = <<EOF; |
|
140 |
<td rowspan=$rowspan align="left" $td> |
|
8056 | 141 |
$descr |
142 |
</td> |
|
10085 | 143 |
EOF |
144 |
} |
|
145 |
||
146 |
my $retval = <<EOF; |
|
147 |
<tr>$descr_text |
|
8056 | 148 |
<td align="left" $td> |
149 |
<A HREF="$url">$filename</A> |
|
150 |
</td> |
|
151 |
<td align="right" $td> |
|
152 |
$size |
|
153 |
</td> |
|
154 |
</tr> |
|
155 |
EOF |
|
156 |
||
157 |
return $retval; |
|
158 |
} |
|
159 |
||
160 |
--> |