Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use strict;
- use Getopt::Long;
- warn "Stage\n";
- qx(git add -A -v);
- warn "Commit\n";
- qx(git commit -a --allow-empty-message -m '' -v);
- # my $logLines = qx(git log --pretty="format:%h %D" `git rev-list -g --all`);
- #
- # foreach my $logLine (split /\n/, $logLines)
- # {
- # my ($commit) = $logLine =~ m~^([A-F0-9]+)~i;
- # if ($logLine !~ m~tag: \$/${commit}~)
- # {
- # printf qq(Tagging %s\n), $commit;
- # system "git", "tag", "-a", '$/'.$commit, $commit, "-m", "";
- # }
- # }
- if (qx(git remote))
- {
- warn "Push\n";
- qx(git push --all -v);
- warn "Push tags\n";
- qx(git push --tags -v);
- warn "Fetch\n";
- qx(git fetch --all -v);
- exit 0;
- }
- else
- {
- warn "No remotes\n";
- }
Add Comment
Please, Sign In to add comment