X-Git-Url: https://git.madduck.net/code/myrepos.git/blobdiff_plain/43e4e88d09d24f71414b966ecc4c534beb94a0ce..2cb02ac8d550b1335c547bc59d2af249c3c08e1f:/webcheckout?ds=inline diff --git a/webcheckout b/webcheckout index 47b3bb4..0c93eef 100755 --- a/webcheckout +++ b/webcheckout @@ -35,18 +35,26 @@ anonymous repositories when possible. If you have an account that allows you to use authenticated repositories, you might want to use this option. -=item -n +=item --no-act, -n Do not actually check anything out, just print out the commands that would be run to check out the repositories. -=item -q +=item --quiet, -q Quiet mode. Do not print out the commands being run. (The VCS commands may still be noisy however.) =back +=head1 PREREQUISITES + +To use this program you will need lots of VCS programs installed, +obviously. It also depends on the perl LWP and HTML::Parser modules. + +If the perl URI module is installed, webcheckout can heuristically guess +what you mean by partial URLs, such as "kitenet.net/~joey"' + =head1 AUTHOR Copyright 2009 Joey Hess @@ -111,6 +119,11 @@ sub getopts { $url=shift @ARGV; $destdir=shift @ARGV; + eval q{use URI::Heuristic}; + if (! $@) { + $url=URI::Heuristic::uf_uristr($url); + } + if ($noact) { $quiet=0; }