Ticket #11948: portlivecheck.tcl.diff

portlivecheck.tcl

@@ -72 +72 @@
 
         # Determine the default type depending on the mirror.
         if {${livecheck.check} eq "default"} {
-                if {$has_master_sites && [regexp {\y(sourceforge|freshmeat|googlecode)\y(?::(\S+))?} $master_sites _ site tag]} {
+                if {$has_master_sites && [regexp {\y(sourceforge|freshmeat|googlecode|gnu)\y(?::(\S+))?} $master_sites _ site tag]} {
                         if {$tag ne "" && ${livecheck.name} eq "default"} {
                                 set livecheck.name $tag
                         }
@@ -80 +80 @@
                 } else {
                     set livecheck.check "freshmeat"
                 }
-                if {$has_homepage && [regexp {^http://code.google.com/p/([^/]+)} $homepage _ tag]} {
-                    if {${livecheck.name} eq "default"} {
-                        set livecheck.name $tag
-                    }
-                    set livecheck.check "googlecode"
-                }
+        if {$has_homepage} {
+                    if {[regexp {^http://code.google.com/p/([^/]+)} $homepage _ tag]} {
+                        if {${livecheck.name} eq "default"} {
+                            set livecheck.name $tag
+                        }
+                        set livecheck.check "googlecode"
+                    } elseif {[regexp {^http://www.gnu.org/software/([^/]+)} $homepage _ tag]} {
+                if {${livecheck.name} eq "default"} {
+                    set livecheck.name $tag
+                }
+                set livecheck.check "gnu"
+            }
+        }
         }
         if {${livecheck.name} eq "default"} {
                 set livecheck.name $name
@@ -126 +133 @@
                     }
                     set livecheck.check "regex"
                 }
+        "gnu" {
+            if {!$has_homepage || ${livecheck.url} eq ${homepage}} {
+                set livecheck.url "http://ftp.gnu.org/gnu/${livecheck.name}/?M=D"
+            }
+            if {${livecheck.distname} eq "default"} {
+                set livecheck.distname ${livecheck.name}
+            }
+            if {${livecheck.regex} eq ""} {
+                set livecheck.regex {${livecheck.distname}-(\\d+(?:\\.\\d+)*)}
+            }
+            set livecheck.check "regex"
+        }
         }
         
         switch ${livecheck.check} {