[gnomeweb-wml] cheese: Update update.pl for .tar.xz releases

[David King <davidk src gnome org>]

commit 21ad62d6ed126594a07194356732047dbc6e3c00
Author: David King <amigadave amigadave com>
Date:   Thu Sep 8 11:28:36 2011 +0200

    cheese: Update update.pl for .tar.xz releases

 projects.gnome.org/cheese/update.pl |    9 ++++++---
 1 files changed, 6 insertions(+), 3 deletions(-)
---
diff --git a/projects.gnome.org/cheese/update.pl b/projects.gnome.org/cheese/update.pl
index fc8cddd..92c5ac2 100755
--- a/projects.gnome.org/cheese/update.pl
+++ b/projects.gnome.org/cheese/update.pl
@@ -61,8 +61,11 @@ for (@maindir) {
     @dir = $gnomeftp->ls("$_");
     for (@dir) {
         $current_file = $_;
-        m/^(.*)\.(.*)\/(.*)\.tar\.gz/g or next;
-        $filename = "$3.tar.gz";
+        if (m/^(.*)\.(.*)\/(.*)(\.[\d\.]+)?\.tar\.gz/g) {
+            $filename = "$3.tar.gz";
+        } elsif (m/^(.*)\.(.*)\/(.*)(\.[\d\.]+)?\.tar\.xz/g) {
+            $filename = "$3.tar.xz";
+        } else { next; }
         $packages{$filename}{"news"} = "$3\.changes";
         $packages{$filename}{"url"} =
             "http://ftp.gnome.org/pub/GNOME/sources/cheese/$current_file";;
@@ -84,7 +87,7 @@ for (@maindir) {
             or die "Cannot retrieve mtime ", $ftp->message;
         $packages{$filename}{"epoch"} = $mdtm - 3600;
         $packages{$filename}{"mdtm"} = time2str ("%B %o %Y", $mdtm, "GMT");
-        if ($filename =~ m/.*-(\d+\.\d+.\d+)(\.[\d\.]+)?\.tar\.gz/) {
+        if ($filename =~ m/.*-(\d+\.\d+.\d+)(\.[\d\.]+)?\.tar\.gz/ or $filename =~ m/.*-(\d+\.\d+.\d+)(\.[\d\.]+)?\.tar\.xz/) {
             $packages{$filename}{"release"} = "$1" . ($2 or "");
         }
     }