OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Ralf S. Engelschall
Root: /e/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-web Date: 08-Jan-2004 16:22:05
Branch: HEAD Handle: 2004010815220400
Modified files:
openpkg-web/security release.pl
Log:
commit SA automatically to CVS
Summary:
Revision Changes Path
1.2 +7 -1 openpkg-web/security/release.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-web/security/release.pl
============================================================================
$ cvs diff -u -r1.1 -r1.2 release.pl
--- openpkg-web/security/release.pl 8 Jan 2004 15:18:13 -0000 1.1
+++ openpkg-web/security/release.pl 8 Jan 2004 15:22:04 -0000 1.2
@@ -102,7 +102,8 @@
print STDERR "++ final approval:\n";
srand(time());
my $challenge = sprintf("%d", rand()*100);
-print STDOUT "Security Advisory will be sent out with subject\n";
+print STDOUT "The OpenPKG Security Advisory will be committed to CVS\n";
+print STDOUT "and sent out with subject\n";
print STDOUT " \"$subject\"\n";
print STDOUT "to the following Email addresses:\n";
print STDOUT " - " . join("\n - ", map { $_->{-addr} } @{$rcpt}) . "\n";
@@ -113,6 +114,11 @@
if ($response != $challenge) {
die "invalid response -- ABORTING";
}
+
+# commit final signed security advisory to CVS
+print STDERR "++ committing security advisory to CVS repository\n";
+system("cvs ci -m 'release OpenPKG Security Advisory $id ($pkg)' $sa") == 0
+ or die "failed to commit file \"$sa\" to CVS";
# create mail header
print STDERR "++ sending out security advisory:\n";
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
