htdocs/list2html.pl - diff

Return to list2html.pl CVS log

Up to [cvs.NetBSD.org] / htdocs

Please note that diffs are not public domain; they are subject to the copyright notices on the relevant files.

Diff for /htdocs/Attic/list2html.pl between version 1.39 and 1.40

version 1.39, 2000/01/16 01:28:04

version 1.40, 2000/01/19 01:13:24

Line 17

# until a link containing </table>

# <HOMELINK> Add flag link to NetBSD home page

# <DOCLINK> Add flag links to NetBSD home page & docs top

# <DEVLINK> Add flag links to NetBSD home page & developers

# Continuation lines are understood (useful for the special tags)

Line 100 width=146 height=129 alt="BSD demon"></a

Line 101 width=146 height=129 alt="BSD demon"></a

</tr></table>

'<DEVLINK>', '

<td>

<td>

</td><td>

<img src="$HOME/images/empty.gif" border=0

alt="NetBSD ">Home Page</a>

</font>

</td>

</tr></table>

</td><td>

<td>

</td><td>

<img src="$HOME/images/empty.gif" border=0

alt="NetBSD ">Developer Documentation</a>

</font>

</td>

</tr></table>

</td>

</table>

'<DOCLINK>', '

<td>

Line 181 sub extract_tags

Line 214 sub extract_tags

sub extras_generate

{

my(%extras)=@_;

my($pathtodoc, $str, $home);

my($pathtodoc, $pathtodev, $str, $home);

if ($0 !~ m#(.*)/[^/]+.pl#)

{ &fail("Unable to extract path from '$0'"); }

$home="$1";

$pathtodoc="$home/Documentation";

$pathtodev="$home/developers";

foreach $str ( keys %extras )

{

$extras{$str} =~ s#\$HOME#$home#g;

$extras{$str} =~ s#\$DOCUMENTATION#$pathtodoc#g;

$extras{$str} =~ s#\$DEVELOPERS#$pathtodev#g;

}

(%extras);

}

CVSweb <webmaster@jp.NetBSD.org>