From 43e4e88d09d24f71414b966ecc4c534beb94a0ce Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 7 Jan 2009 13:08:51 -0500 Subject: [PATCH 1/1] use rel=vcs-* --- webcheckout | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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}) { -- 2.39.5