OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Thomas Lotterer
Root: /v/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-tools Date: 27-Sep-2005 14:39:15
Branch: HEAD Handle: 2005092713391500
Modified files:
openpkg-tools/cmd bf-ui.pl
Log:
default to "openpkg" tag
Summary:
Revision Changes Path
1.18 +11 -8 openpkg-tools/cmd/bf-ui.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-tools/cmd/bf-ui.pl
============================================================================
$ cvs diff -u -r1.17 -r1.18 bf-ui.pl
--- openpkg-tools/cmd/bf-ui.pl 27 Sep 2005 12:38:30 -0000 1.17
+++ openpkg-tools/cmd/bf-ui.pl 27 Sep 2005 12:39:15 -0000 1.18
@@ -1018,6 +1018,9 @@
my ($host, $arch, $os, $tag);
if ($inst =~ m|^(.+)-([^-]+)-([^-]+)-([^-]+)$|) {
($host, $arch, $os, $tag) = ($1, $2, $3, $4);
+ }
+ elsif ($inst =~ m|^(.+)-([^-]+)-([^-]+)$|) {
+ ($host, $arch, $os, $tag) = ($1, $2, $3, "openpkg");
};
return ($host, $arch, $os, $tag);
}
@@ -1173,7 +1176,7 @@
$lastsupport = undef;
$line = "";
foreach my $inst (@insts) {
- my ($host, $arch, $os, $tag) = &splitinst($inst .
"-openpkg"); # bsd1-ix86-freebsd5.3-openpkg
+ my ($host, $arch, $os, $tag) = &splitinst($inst); #
bsd1-ix86-freebsd5.3-openpkg
my $logfile = "$inst/$package.log.$host.$arch-$os-$tag";
# support
@@ -1233,18 +1236,18 @@
sub viewstatus()
{
- my ($host, $arch, $os, $tag); # bsd1-ix86-freebsd5.3-openpkg
- my ($name, $version, $release); # perl-5.8.6-20050111
- my ($color, $class); # red, CORE
+ my ($inst, $host, $arch, $os, $tag); #
bsd1-ix86-freebsd5.3-openpkg, inst = host-arch-os-tag
+ my ($package, $name, $version, $release); # perl-5.8.6-20050111, package
= name-version-release
+ my ($color, $class); # red, CORE
my ($select, @args, $sth, $rv);
my $html;
- my $inst = $cgi->param("vs_inst");
- $inst .= "-openpkg" if ($inst ne "");
- ($host, $arch, $os, $tag) = &splitinst($inst);
- ($name, $version, $release) = &splitpackage($cgi->param("vs_package"));
+ $inst = $cgi->param("vs_inst");
+ $package = $cgi->param("vs_package");
$color = $cgi->param("vs_color");
$class = $cgi->param("vs_class");
+ ($host, $arch, $os, $tag) = &splitinst($inst);
+ ($name, $version, $release) = &splitpackage($package);
$select = '';
@args = ();
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [email protected]
