[prev in list] [next in list] [prev in thread] [next in thread] 

List:       openpkg-cvs
Subject:    [CVS] OpenPKG: openpkg-web/security/ template.pl
From:       "Ralf S. Engelschall" <rse () openpkg ! org>
Date:       2004-11-29 14:44:42
Message-ID: 20041129144442.0D789300896 () mail ! openpkg ! org
[Download RAW message or body]

  OpenPKG CVS Repository
  http://cvs.openpkg.org/
  ____________________________________________________________________________

  Server: cvs.openpkg.org                  Name:   Ralf S. Engelschall
  Root:   /e/openpkg/cvs                   Email:  rse@openpkg.org
  Module: openpkg-web                      Date:   29-Nov-2004 15:44:42
  Branch: HEAD                             Handle: 2004112914444200

  Modified files:
    openpkg-web/security    template.pl

  Log:
    adjust for new world order

  Summary:
    Revision    Changes     Path
    1.3         +4  -4      openpkg-web/security/template.pl
  ____________________________________________________________________________

  patch -p0 <<'@@ .'
  Index: openpkg-web/security/template.pl
  ============================================================================
  $ cvs diff -u -r1.2 -r1.3 template.pl
  --- openpkg-web/security/template.pl	31 Oct 2004 09:31:24 -0000	1.2
  +++ openpkg-web/security/template.pl	29 Nov 2004 14:44:42 -0000	1.3
  @@ -1,4 +1,4 @@
  -#!/e/openpkg/sw/bin/perl
  +#!/usr//sw/bin/perl
   ##
   ##  template.pl
   ##
  @@ -46,7 +46,7 @@
   my $date = `date '+%d-%b-%Y'`;
   $date =~ s/\n$//s;
   $txt =~ s/01-Jan-2004/$date/s;
  -$txt =~ s|http://www.foo.org/|$cfg->{"Home"}|s;
  +$txt =~ s|http://www.foo.org/|$cfg->{"URL"}|s;
   $txt =~ s|http://www.example.com/bugfinder.html|$cfg->{"Advisory"} || "?????"|se;
   $txt =~ s/foo-1\.2\.4-20040123/$cfg->{"OpenPKG-CUR"}->[0]/sg;
   $txt =~ s/foo-1\.2\.4-20049124/$cfg->{"OpenPKG-CUR"}->[1]/sg;
  @@ -54,8 +54,8 @@
   $txt =~ s/foo-1\.2\.3-2\.2\.1/$cfg->{"OpenPKG-2.2"}->[1]/sg;
   $txt =~ s/foo-1\.2\.2-2\.1\.0/$cfg->{"OpenPKG-2.1"}->[0]/sg;
   $txt =~ s/foo-1\.2\.2-2\.1\.1/$cfg->{"OpenPKG-2.1"}->[1]/sg;
  -$txt =~ s/foo/$cfg->{"Package"}/sg;
  -$txt =~ s/CAN-\.\.\./$cfg->{"CVE"}/sg;
  +$txt =~ s/foo/$cfg->{"Name"}/sg;
  +$txt =~ s/CAN-\.\.\./join(" ", @{$cfg->{"CVE"}})/sge;
   
   #   write fresh SA
   $io = new IO::File ">OpenPKG-SA-$idnum-$idtag.txt" or die;
  @@ .
______________________________________________________________________
The OpenPKG Project                                    www.openpkg.org
CVS Repository Commit List                     openpkg-cvs@openpkg.org
[prev in list] [next in list] [prev in thread] [next in thread]