diff --git a/github-backup.pl b/github-backup.pl index 567035c..4cffd0d 100755 --- a/github-backup.pl +++ b/github-backup.pl @@ -12,7 +12,7 @@ die "Could not complete github API query for $username\n" unless defined $page; my @list = split(/\n/, $page); my @urls = grep { /url/ } @list; -my @giturls = grep s/ :url: http/git/, @urls; +my @giturls = grep s/ :url: https/git/, @urls; @urls = @giturls; my @reponames = grep s/.*$username\///, @giturls; @@ -24,7 +24,7 @@ for(my $i = 0; $i < @urls; ++$i){ } unless(-e "$backupdir/$name"){ #We haven't backed this up before, let's clone it print "CLONING REPOSITORY: $url\n"; - system("cd backups && git clone $url") and die "Encountered an error while git-cloning repository $name\n"; + system("cd $backupdir && git clone $url") and die "Encountered an error while git-cloning repository $name\n"; } else{ #We've backed it up before, just fetch the most recent copy print "REPOSITORY EXISTED, FETCHING: $name\n";