Changeset 29812 for trunk/base


Ignore:
Timestamp:
Oct 10, 2007, 3:51:44 PM (12 years ago)
Author:
nox@…
Message:

portlivecheck.tcl (closes #11948): Added GNU livecheck.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portlivecheck.tcl

    r29793 r29812  
    7373    # Determine the default type depending on the mirror.
    7474    if {${livecheck.check} eq "default"} {
    75         if {$has_master_sites && [regexp {\y(sourceforge|freshmeat|googlecode)\y(?::(\S+))?} $master_sites _ site tag]} {
     75        if {$has_master_sites && [regexp {\y(sourceforge|freshmeat|googlecode|gnu)\y(?::(\S+))?} $master_sites _ site tag]} {
    7676            if {$tag ne "" && ${livecheck.name} eq "default"} {
    7777                set livecheck.name $tag
     
    8181            set livecheck.check "freshmeat"
    8282        }
    83         if {$has_homepage && [regexp {^http://code.google.com/p/([^/]+)} $homepage _ tag]} {
    84             if {${livecheck.name} eq "default"} {
    85                 set livecheck.name $tag
    86             }
    87             set livecheck.check "googlecode"
     83        if {$has_homepage} {
     84            if {[regexp {^http://code.google.com/p/([^/]+)} $homepage _ tag]} {
     85                if {${livecheck.name} eq "default"} {
     86                    set livecheck.name $tag
     87                }
     88                set livecheck.check "googlecode"
     89            } elseif {[regexp {^http://www.gnu.org/software/([^/]+)} $homepage _ tag]} {
     90                if {${livecheck.name} eq "default"} {
     91                    set livecheck.name $tag
     92                }
     93                set livecheck.check "gnu"
     94            }
    8895        }
    8996    }
     
    124131            if {${livecheck.regex} eq ""} {
    125132                set livecheck.regex {<a href="http://${livecheck.name}.googlecode.com/files/${livecheck.distname}"}
     133            }
     134            set livecheck.check "regex"
     135        }
     136        "gnu" {
     137            if {!$has_homepage || ${livecheck.url} eq ${homepage}} {
     138                set livecheck.url "http://ftp.gnu.org/gnu/${livecheck.name}/?C=M&O=D"
     139            }
     140            if {${livecheck.distname} eq "default"} {
     141                set livecheck.distname ${livecheck.name}
     142            }
     143            if {${livecheck.regex} eq ""} {
     144                set livecheck.regex {${livecheck.distname}-(\\d+(?:\\.\\d+)*)}
    126145            }
    127146            set livecheck.check "regex"
Note: See TracChangeset for help on using the changeset viewer.