]> git.madduck.net Git - code/myrepos.git/commitdiff

madduck's git repository

Every one of the projects in this repository is available at the canonical URL git://git.madduck.net/madduck/pub/<projectpath> — see each project's metadata for the exact URL.

All patches and comments are welcome. Please squash your changes to logical commits before using git-format-patch and git-send-email to patches@git.madduck.net. If you'd read over the Git project's submission guidelines and adhered to them, I'd be especially grateful.

SSH access, as well as push access can be individually arranged.

If you use my repositories frequently, consider adding the following snippet to ~/.gitconfig and using the third clone URL listed for each project:

[url "git://git.madduck.net/madduck/"]
  insteadOf = madduck:

Add webcheckout command. See http://kitenet.net/~joey/rfc/rel-vcs/
authorJoey Hess <joey@gnu.kitenet.net>
Wed, 7 Jan 2009 01:59:58 +0000 (20:59 -0500)
committerJoey Hess <joey@gnu.kitenet.net>
Wed, 7 Jan 2009 01:59:58 +0000 (20:59 -0500)
debian/changelog
webcheckout [new file with mode: 0755]

index 6628030a17dcec64ede2caf5a5f07b40dd9cf28e..a613e50f6adb6b99a723c39244940b0ad7e3b51a 100644 (file)
@@ -1,3 +1,9 @@
+mr (0.36) UNRELEASED; urgency=low
+
+  * Add webcheckout command. See http://kitenet.net/~joey/rfc/rel-vcs/
+
+ -- Joey Hess <joeyh@debian.org>  Tue, 06 Jan 2009 20:59:20 -0500
+
 mr (0.35) unstable; urgency=low
 
   * Warn if an include command fails nonzero. Closes: #495306
 mr (0.35) unstable; urgency=low
 
   * Warn if an include command fails nonzero. Closes: #495306
diff --git a/webcheckout b/webcheckout
new file mode 100755 (executable)
index 0000000..33bccb9
--- /dev/null
@@ -0,0 +1,144 @@
+#!/usr/bin/perl
+use LWP::Simple;
+use HTML::Parser;
+use warnings;
+use strict;
+
+# Controls whether to print what is being done.
+my $verbose=1;
+
+# Controls whether to actually check anything out.
+my $noact=1;
+
+# 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
+# decide.
+my $destdir;
+
+# how to perform checkouts
+my %handlers=(
+       git => sub { doit("git", "clone", shift, $destdir) },
+       svn => sub { doit("svn", "checkout", shift, $destdir) },
+       bzr => sub { doit("bzr", "branch", shift, $destdir) },
+);
+
+# Regexps matching urls that are used for anonymous
+# repository checkouts. The order is significant:
+# urls matching earlier in the list are preferred over
+# those matching later.
+my @anon_urls=(
+       qr/^git:\/\//i,
+       qr/^bzr:\/\//i,
+       qr/^svn:\/\//i,
+       qr/^http:\/\//i, # generally the worst transport
+);
+
+sub doit {
+       my @args=grep { defined } @_;
+       print join(" ", @args)."\n" if $verbose;
+       return 0 if $noact;
+       return system(@args);
+}
+
+# Is repo a better than repo b?
+sub better {
+       my ($a, $b)=@_;
+
+       my $firstanon=$b;
+       foreach my $r (@anon_urls) {
+               if ($a->{href} =~ /$r/) {
+                       $firstanon=$a;
+                       last;
+               }
+               elsif ($b->{href} =~ /$r/) {
+                       $firstanon=$b;
+                       last;
+               }
+       }
+
+       if ($want_auth) {
+               return $firstanon != $a;
+       }
+       else {
+               return $firstanon == $a;
+       }
+}
+
+# Eliminate duplicate repositories from list.
+# Duplicate repositories have the same title, or the same href.
+sub dedup {
+       my %seenhref;
+       my %bytitle;
+       foreach my $repo (@_) {
+               if (exists $repo->{title} &&
+                   length $repo->{title} &&
+                   exists $bytitle{$repo->{title}}) {
+                       my $other=$bytitle{$repo->{title}};
+                       next unless better($repo, $other);
+                       delete $bytitle{$other->{title}}
+               }
+
+               if (! $seenhref{$repo->{href}}++) {
+                       $bytitle{$repo->{title}}=$repo;
+               }
+       }
+
+       return values %bytitle;
+}
+
+sub parse {
+       my $page=shift;
+
+       my @ret;
+       my $parser=HTML::Parser->new(api_version => 3);
+       $parser->handler(start => sub {
+               my $tagname=shift;
+               my $attr=shift;
+               return if lc $tagname ne 'link';
+               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};
+               push @ret, $attr;
+       }, "tagname, attr");
+       $parser->parse($page);
+       $parser->eof;
+
+       return @ret;
+}
+
+my $url=shift;
+if (! defined $url) {
+       die "usage: webcheckout url\n";
+}
+
+my $page=get($url);
+if (! defined $page) {
+       die "failed to download $url\n";
+}
+
+my @repos=dedup(parse($page));
+if (! @repos) {
+       die "no repositories found on $url\n";
+}
+
+my $errors=0;
+foreach my $repo (@repos) {
+       my $handler=$handlers{$repo->{type}};
+       if ($handler) {
+               if ($handler->($repo->{href}) != 0) {
+                       print STDERR "failed to checkout ".$repo->{href}."\n";
+                       $errors++;
+               }
+       }
+       else {
+               print STDERR "unknown repository type ".$repo->{type}.
+                       " for ".$repo->{href}."\n";
+               $errors++;
+       }
+}
+exit($errors > 0);
+
+#use Data::Dumper;
+#print Dumper(\@repos);