new script to generate package index/description pages for a certain release.
written by Michael Coulter <mjc@bitz.ca>
This commit is contained in:
pvalchev
parent
ef5e3966f3
commit
51eeba8675
258
infrastructure/package/gen-package-pages
Executable file
258
infrastructure/package/gen-package-pages
Executable file
@ -0,0 +1,258 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
# $OpenBSD: gen-package-pages,v 1.1 2004/02/20 23:47:54 pvalchev Exp $
|
||||
|
||||
# Copyright (c) 2004 Michael Coulter
|
||||
#
|
||||
# Redistribution and use in source and binary forms, with or without
|
||||
# modification, are permitted provided that the following conditions
|
||||
# are met:
|
||||
# 1. Redistributions of source code must retain the above copyright
|
||||
# notice, this list of conditions and the following disclaimer.
|
||||
# 2. Redistributions in binary form must reproduce the above copyright
|
||||
# notice, this list of conditions and the following disclaimer in the
|
||||
# documentation and/or other materials provided with the distribution.
|
||||
#
|
||||
# THIS SOFTWARE IS PROVIDED BY THE OPENBSD PROJECT AND CONTRIBUTORS
|
||||
# ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
||||
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
|
||||
# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBSD
|
||||
# PROJECT OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
||||
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
|
||||
# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
||||
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||||
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||||
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
||||
# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
|
||||
# Requires:
|
||||
# ./INDEX
|
||||
# all packages under some path, <arch>/*.tgz
|
||||
# Outputs result in html/*
|
||||
|
||||
use strict;
|
||||
|
||||
use OpenBSD::PackageInfo;
|
||||
use OpenBSD::PackageName;
|
||||
use OpenBSD::PackageLocator;
|
||||
use OpenBSD::PackingList;
|
||||
|
||||
our $osrev = "3.4";
|
||||
our $debug = 0;
|
||||
our $html;
|
||||
|
||||
my @arches = qw(alpha hppa i386 m68k powerpc sparc sparc64 vax);
|
||||
my $pkgpath = "/home/ftp/pub/OpenBSD/$osrev/packages";
|
||||
|
||||
mkdir("html");
|
||||
map { mkdir("html/$_") } @arches;
|
||||
|
||||
gen_index_page(@arches);
|
||||
|
||||
foreach (@arches) { gen_arch_page($_); }
|
||||
|
||||
sub dprint {
|
||||
if($debug) { print @_; }
|
||||
}
|
||||
|
||||
sub gen_arch_page {
|
||||
my $arch = shift;
|
||||
print "generating page for $arch\n";
|
||||
open(ARCH,"> html/$arch.html") || die "cannot open file $arch.html: $!\n";
|
||||
|
||||
&arch_head($arch);
|
||||
print ARCH $html;
|
||||
|
||||
opendir(PKGS, "$pkgpath/$arch") || die "cannot get package listing for $arch: $!\n";
|
||||
while (my $file = readdir(PKGS)) {
|
||||
next if ($file =~ /^\./);
|
||||
|
||||
dprint "generating package for $arch/$file\n";
|
||||
my $package = OpenBSD::PackageLocator->find("$pkgpath/$arch/$file");
|
||||
if(! $package) { die "package error: $!\n"; }
|
||||
my $dir = $package->info;
|
||||
$package->close();
|
||||
my $comment = "";
|
||||
|
||||
open(IN,"<",$dir.COMMENT) or die "cannot get comment: $!\n";
|
||||
while(<IN>) { $comment .= $_ }
|
||||
close(IN);
|
||||
|
||||
arch_body($arch,$file,$comment);
|
||||
print ARCH $html;
|
||||
gen_pkg_page($arch,$file,$dir);
|
||||
}
|
||||
closedir(PKGS);
|
||||
|
||||
&arch_foot;
|
||||
print ARCH $html;
|
||||
|
||||
close(ARCH);
|
||||
|
||||
}
|
||||
|
||||
sub gen_pkg_page {
|
||||
my ($arch,$pkg, $dir) = @_;
|
||||
open(LONG, "> html/$arch/$pkg-long.html");
|
||||
|
||||
my $pkg_info;
|
||||
open(IN,"<",$dir.DESC) or die "cannot get description: $!\n";
|
||||
while(<IN>) { $pkg_info .= $_ }
|
||||
close(IN);
|
||||
|
||||
$pkg_info =~ s/\&/\&\;/g;
|
||||
$pkg_info =~ s/\</\<\;/g;
|
||||
$pkg_info =~ s/\>/\>\;/g;
|
||||
|
||||
&pkg_long($arch,$pkg,$pkg_info);
|
||||
print LONG $html;
|
||||
close(LONG);
|
||||
gen_pkg_listing_page($arch,$pkg,$dir);
|
||||
}
|
||||
|
||||
sub gen_pkg_listing_page {
|
||||
my ($arch,$pkg,$dir) = @_;
|
||||
open(CONT, "> html/$arch/$pkg-contents.html");
|
||||
|
||||
my $pkg_info;
|
||||
my $plist = OpenBSD::PackingList->fromfile($dir.CONTENTS, \&OpenBSD::PackingList::FilesOnly);
|
||||
|
||||
die "Bad packing list: $!\n" unless defined $plist;
|
||||
|
||||
for my $item (@{$plist->{items}}) {
|
||||
next unless $item->IsFile();
|
||||
$pkg_info .= $item->fullname() . "\n";
|
||||
}
|
||||
|
||||
if (!$pkg_info) {
|
||||
$pkg_info = "empty packing list";
|
||||
}
|
||||
|
||||
&pkg_list($arch,$pkg,$pkg_info);
|
||||
print CONT $html;
|
||||
close(CONT);
|
||||
}
|
||||
|
||||
sub gen_index_page {
|
||||
my @arches = @_;
|
||||
|
||||
open(INDEX,"> html/index.html") || die "cannot open file INDEX: $!\n";
|
||||
|
||||
&index_head;
|
||||
print INDEX $html;
|
||||
|
||||
map { $html .= "<a href=$_.html>$_</a>\n" } @arches;
|
||||
print INDEX $html;
|
||||
|
||||
&index_foot;
|
||||
print INDEX $html;
|
||||
|
||||
close(INDEX);
|
||||
|
||||
}
|
||||
|
||||
exit(0);
|
||||
|
||||
sub arch_body {
|
||||
my($arch,$file,$comment) = @_;
|
||||
|
||||
$html =<<"EOF";
|
||||
<tr>
|
||||
<td><b><a href=$arch/$file-long.html>$file</a></b></td>
|
||||
<td>   <i>$comment</i></td>
|
||||
<td>[ <a href=ftp://ftp.openbsd.org/pub/OpenBSD/$osrev/packages/$arch/$file>FTP Site1</a> ]</td>
|
||||
<td>[ <a href=ftp://ftp.usa.openbsd.org/pub/OpenBSD/$osrev/packages/$arch/$file>FTP Site 2</a> ]</td>
|
||||
</tr>
|
||||
EOF
|
||||
}
|
||||
|
||||
sub arch_foot {
|
||||
|
||||
$html= <<"EOF";
|
||||
</table><hr></body></html>
|
||||
EOF
|
||||
|
||||
}
|
||||
|
||||
sub arch_head {
|
||||
my $arch = shift @_;
|
||||
|
||||
$html =<<"EOF";
|
||||
<html>
|
||||
<body BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#23238E">
|
||||
<title>OpenBSD Packages ($osrev/$arch)</title>
|
||||
<img src=http://www.openbsd.org/images/smalltitle.gif><br><br>
|
||||
<font color=#e00000><h2>Packages</h2></font>
|
||||
The following table is a listing of the packages currently available for OpenBSD
|
||||
<font color=#e00000><b>$osrev</b></font>
|
||||
on the <font color=#e00000><b>$arch</b></font> platform. Make sure you've got
|
||||
the right version and platform -- chaos will ensue if you are in the wrong
|
||||
area.
|
||||
|
||||
<br><br><hr>
|
||||
|
||||
<table>
|
||||
|
||||
EOF
|
||||
}
|
||||
|
||||
sub index_head {
|
||||
|
||||
$html =<<"EOF";
|
||||
<html><title>OpenBSD Packages - Architecture
|
||||
Selection for OpenBSD $osrev</title>
|
||||
<body BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#23238E">
|
||||
<img src=http://www.openbsd.org/images/smalltitle.gif><br><br>
|
||||
<h2><font color="#e00000">Packages - Architecture Selection for OpenBSD $osrev</font></h2>
|
||||
Please select the architecture for which you wish to download a package.<br><br><center><h2>
|
||||
EOF
|
||||
}
|
||||
|
||||
sub index_foot {
|
||||
|
||||
$html =<<"EOF";
|
||||
<br><br><hr></table></body></html>
|
||||
EOF
|
||||
}
|
||||
|
||||
sub pkg_list {
|
||||
my ($arch,$pkg,$pkg_info) = @_;
|
||||
|
||||
$html =<<"EOF";
|
||||
<html><title>OpenBSD Package Details - $pkg</title>
|
||||
<body BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#23238E">
|
||||
<img src=http://www.openbsd.org/images/smalltitle.gif><br><br>
|
||||
<h2><font color=#e0000>Package Information for $pkg ($arch)</font></h2>
|
||||
|
||||
[ <a href=ftp://ftp.openbsd.org/pub/OpenBSD/$osrev/packages/$arch/$pkg>FTP 1</a> ]
|
||||
|
||||
[ <a href=ftp://ftp.usa.openbsd.org/pub/OpenBSD/$osrev/packages/$arch/$pkg>FTP 2</a> ]
|
||||
|
||||
[ <a href=$pkg-contents.html>Package Contents</a> ]
|
||||
|
||||
<br><br><hr><br><pre>
|
||||
$pkg_info
|
||||
</pre><hr></body></html>
|
||||
EOF
|
||||
}
|
||||
|
||||
sub pkg_long {
|
||||
my ($arch,$pkg,$pkg_info) = @_;
|
||||
|
||||
$html =<<"EOF";
|
||||
<html><title>OpenBSD Package Details - $pkg</title>
|
||||
<body BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#23238E">
|
||||
<img src=http://www.openbsd.org/images/smalltitle.gif><br><br>
|
||||
<h2><font color=#e0000>Package Information for $pkg ($arch)</font></h2>
|
||||
|
||||
[ <a href=ftp://ftp.openbsd.org/pub/OpenBSD/$osrev/packages/$arch/$pkg>FTP 1</a> ]
|
||||
|
||||
[ <a href=ftp://ftp.usa.openbsd.org/pub/OpenBSD/$osrev/packages/$arch/$pkg>FTP 2</a> ]
|
||||
|
||||
[ <a href=$pkg-contents.html>Package Contents</a> ]
|
||||
|
||||
<br><br><hr><br><pre>
|
||||
$pkg_info
|
||||
</pre><hr></body></html>
|
||||
EOF
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user