Changeset 547 for devel/pb/bin/pb

Timestamp:

09/18/08 01:56:00 (5 years ago)

Author:

bruno

Message:

First coding of pb_web_news2html which generates news from the announces DB in order to be used on the Website

File:

• devel/pb/bin/pb (modified) (4 diffs)

devel/pb/bin/pb

@@ -18 +18 @@
 use File::stat;
 use File::Temp qw(tempdir);
+use Time::localtime qw(localtime);
 use POSIX qw(strftime);
 use lib qw (lib);
@@ -445 +446 @@
 
     pb_announce();
+} elsif ($action =~ /^webnews2html$/) {
+    # For news handling only. Require avoids the systematic load of these modules
+    require DBI;
+
+    pb_web_news2html();
 } else {
     pb_log(0,"\'$action\' is not available\n");
@@ -1929 +1935 @@
         }
 
+        # TODO: use virtual/real names here now
         $findstr .= "-name \'$pbpkg-$pbver-$pbtag\.*.rpm\' -o -name \'$pbpkg"."_$pbver*\.deb\' -o -name \'$pbpkg-$pbver\.ebuild\' ";
 
@@ -2091 +2098 @@
 }
 
+#
+# Creates a set of HTML file containing the news for the project
+# based on what has been generated by the pb_announce function
+#
+sub pb_web_news2html {
+
+    # Get all required parameters
+    my ($pkgv, $pkgt, $testver) = pb_conf_get_if("pkgver","pkgtag","testver");
+
+    # DB of announces for external usage (Web pages generation)
+    my $db = "$ENV{'PBCONFDIR'}/announces3.sql";
+
+    my $dbh = DBI->connect("dbi:SQLite:dbname=$db","","",
+                        { RaiseError => 1, AutoCommit => 1 })
+                        || die "Unable to connect to $db";
+    # For date handling
+    $ENV{LANGUAGE}="C";
+    my $firstjan = strftime("%Y-%m-%d", 0, 0, 1, 1, localtime->year(), 0, 0, -1);
+    my $oldfirst = strftime("%Y-%m-%d", 0, 0, 1, 1, localtime->year()-1, 0, 0, -1);
+    my $all = $dbh->selectall_arrayref("SELECT id,date,announce FROM announces ORDER BY date DESC");
+    my $ynews = "";     # year's news
+    my $lynews = "";    # last year news
+    my $pynews = "";    # previous years news
+    my $fpnews = "";    # first page news
+    my $cpt = 4;        # how many news for first page
+    # Extract info from DB
+    foreach my $row (@$all) {
+        my ($id, $date, $announce) = @$row;
+        $ynews = $ynews."<p><B>$date</B> $announce\n" if (("$date" le $pbdate) && ($firstjan le "$date"));
+        $lynews = $lynews."<p><B>$date</B> $announce\n" if (("$date" le $firstjan) && ($oldfirst le "$date"));
+        $pynews = $pynews."<p><B>$date</B> $announce\n" if ("$date" le $oldfirst);
+        $fpnews = $fpnews."<p><B>$date</B> $announce\n" if ($cpt > 0);
+        $cpt--;
+    }
+    pb_log(1,"fpnews: $fpnews\n");
+    $dbh->disconnect;
+}
+
 # Return the SSH key file to use
 # Potentially create it if needed