From: Joey Hess Date: Wed, 7 Jan 2009 18:08:51 +0000 (-0500) Subject: use rel=vcs-* X-Git-Url: https://git.madduck.net/code/myrepos.git/commitdiff_plain/43e4e88d09d24f71414b966ecc4c534beb94a0ce?ds=sidebyside;hp=d8426f37c88c5d980aa93855e40b50c97c282590 use rel=vcs-* --- diff --git a/webcheckout b/webcheckout index a6ae94f..47b3bb4 100755 --- a/webcheckout +++ b/webcheckout @@ -16,7 +16,7 @@ a subdirectory of the current directory, using whatever VCS program is appropriate for that repository (git, svn, etc). The information about the repositories is embedded in the web page using -the rel=vcs microformat, which is documented at +the rel=vcs-* microformat, which is documented at . If the optional destdir parameter is specified, VCS programs will be asked @@ -75,7 +75,7 @@ my $noact=0; # Controls whether to perfer repos that use authentication. my $want_auth=0; -# Controls where to check out to. If not set, the vcs is allowed to +# Controls where to check out to. If not set, the VCS is allowed to # decide. my $destdir; @@ -187,9 +187,10 @@ sub parse { $parser->handler(start => sub { my $tagname=shift; my $attr=shift; - return if ! exists $attr->{rel} || lc $attr->{rel} ne 'vcs'; + return if ! exists $attr->{href} || ! length $attr->{href}; - return if ! exists $attr->{type} || ! length $attr->{type}; + return if ! exists $attr->{rel} || $attr->{rel} !~ /^vcs-(.+)/i; + $attr->{type}=lc($1); # need to collect the body of the tag if there is no title if ($tagname eq "a" && ! exists $attr->{title}) {