2 # -----------------------------------------------------------------------------
4 # Note: this isn't perfect, but a very fine start.
6 my $version = $ARGV[0];
7 die "$0: must specify version number as argument.\n" unless $version;
9 my $version2 = $version;
10 $version2 =~ s/^(\d+\.\d+)\..*/$1/;
12 my $bug_prefix = "https://bugzilla.gnome.org/show_bug.cgi?id=";
13 my $debian_bug_prefix = "http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=";
14 my $redhat_bug_prefix = "https://bugzilla.redhat.com/show_bug.cgi?id=";
15 my $ubuntu_bug_prefix = "https://bugs.launchpad.net/ubuntu/+bug/";
24 open (FIL
, "<NEWS") or die "$0: cannot open NEWS: $!\n";
28 if (/^(Gnumeric|goffice|libgsf)\s*([^ :]*)\s*:?\s*$/i) {
44 if (/^(.*\S)\s*:\s*$/) {
45 &finish_author
() if $who;
52 &finish_item
() if $have_item;
58 if (m{^\s+http://bugzilla\.gnome\.org/show_bug\.cgi\?id=(\d+)\s*}) {
60 &finish_item
() if $have_item;
65 if ($have_item && s/^\s+//) {
72 &finish_author
() if $who;
76 # -----------------------------------------------------------------------------
79 &finish_item
() if $have_item;
91 if ($item && $item !~ /[.?!]\s*$/) {
95 $item .= " (<a href=\"$bug_prefix$bug\">Bug $bug</a>.)";
99 $item .= "\n\t </li>\n";
106 $txt =~ s{Debian\s+\#(\d\d\d\d\d+)}{Debian <a href=\"$debian_bug_prefix$1\"\>Bug $1</a>}g;
107 $txt =~ s{Redhat\s+\#(\d\d\d\d\d+)}{Redhat <a href=\"$redhat_bug_prefix$1\"\>Bug $1</a>}g;
108 $txt =~ s{Ubuntu\s+\#(\d\d\d\d\d+)}{Ubuntu <a href=\"$ubuntu_bug_prefix$1\"\>Bug $1</a>}g;
109 $txt =~ s{\#(\d\d\d\d\d+)}{<a href=\"$bug_prefix$1\"\>Bug $1</a>}g;
111 $item .= "\n\t $txt";
115 # -----------------------------------------------------------------------------
119 <?xml version="1.0" encoding="UTF-8"?>
120 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
121 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
122 <!-- MARKER: start-header -->
124 <title>Gnumeric</title>
125 <link rel="stylesheet" href="/style/style.css" type="text/css" />
126 <link rel="icon" type="image/png" href="/logo.png" />
130 <a href="/"><div id="header">
131 <h1 id="logo-text"><span>Gnumeric</span></h1>
132 <p id="slogan">Free, Fast, Accurate — Pick Any Three!</p>
133 <img id="logo" src="/gnumeric.png" alt="logo" class="float-right"/>
138 <li><a href="/">Home</a></li>
139 <li><a href="/development.html">Development</a></li>
140 <li><a href="/contact.html">Contact</a></li>
144 <div id="content-wrap">
145 <!-- MARKER: start-main -->
147 <div class="generalitem">
150 print " <h2><span class=\"gnumeric-bullet\"></span>$module $version aka "TBD" is now available.</h2>\n";
151 print " <p>The Gnumeric Team is pleased to announce the availability of\n";
152 print " $module version $version.</p>\n";
153 print " <p>Noteworthy news in this release:</p>\n";
155 print " <li>...</li>\n";
157 print " <p>Details of changes by contributor:</p>\n";
161 # -----------------------------------------------------------------------------
164 my $link = "http://ftp.gnome.org/pub/GNOME/sources/" . lc $module . "/$version2/";
169 print " <div class=\"generalitem\">\n";
170 print " <h2><span class=\"gnumeric-bullet\"></span>Availability</h2>\n";
171 print " <blockquote>\n";
172 print " <p><a href=\"$link\">$link</a></p>\n";
173 print " </blockquote>\n";
176 print " <!-- MARKER: end-main -->\n";
177 print " <!-- MARKER: start-sidebar -->\n";
178 print " <!-- MARKER: end-sidebar -->\n";
185 # -----------------------------------------------------------------------------