avoid creating subdir in noact mode

[code/myrepos.git] / webcheckout

diff --git a/webcheckout b/webcheckout
index 19d46208e94965a0b657a05ff7516ef878bd5163..4841feedb7511d4866a725b4e439d6fc8ec3327c 100755 (executable)
--- a/webcheckout
+++ b/webcheckout
@@ -2,7 +2,7 @@
 
 =head1 NAME
 
 
 =head1 NAME
 

-debcheckout - check out repositories referenced on a web page
+webcheckout - check out repositories referenced on a web page

 
 =head1 SYNOPSIS
 
 
 =head1 SYNOPSIS
 


@@ -152,21 +152,26 @@ sub better {
 sub dedup {
        my %seenhref;
        my %bytitle;
 sub dedup {
        my %seenhref;
        my %bytitle;

+       my @others;

        foreach my $repo (@_) {
                if (exists $repo->{title} &&
        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}}
+                   length $repo->{title}) {
+                       if (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;
+                       }

                }
                }

-
-               if (! $seenhref{$repo->{href}}++) {
-                       $bytitle{$repo->{title}}=$repo;
+               else {
+                       push @others, $repo;

                }
        }
 
                }
        }
 

-       return values %bytitle;
+       return values %bytitle, @others;

 }
 
 sub parse {
 }
 
 sub parse {


@@ -190,7 +195,6 @@ sub parse {
 }
 
 getopts();
 }
 
 getopts();

-print "$url\n";

 
 my $page=get($url);
 if (! defined $page) {
 
 my $page=get($url);
 if (! defined $page) {


@@ -204,8 +208,10 @@ if (! @repos) {
 
 if (defined $destdir && @repos > 1) {
        # create subdirs of $destdir for the multiple repos
 
 if (defined $destdir && @repos > 1) {
        # create subdirs of $destdir for the multiple repos

-       mkdir($destdir);
-       chdir($destdir) || die "failed to chdir to $destdir: $!";
+       if (! $noact) {
+               mkdir($destdir);
+               chdir($destdir) || die "failed to chdir to $destdir: $!";
+       }

        $destdir=undef;
 }
 
        $destdir=undef;
 }