build/build_new_sgn_deb.pl

   1 #!/usr/bin/env perl
   2
   3 use Modern::Perl;
   4 use feature 'say';
   5 use autodie qw/:all/;
   6
   7 unless (!-e 'sgn-site') {
   8     say_run("git clone git.sgn.cornell.edu:/git/deploy/sgn-site");
   9 }
  10 chdir 'sgn-site';
  11
  12 say_run("make gitupdate");
  13
  14 # Review what changed
  15 say_run("git log -1 --stat -p");
  16
  17 # This will block on an interactive prompt for a GPG password
  18 say_run("make deb");
  19
  20 # Review what changed
  21 say_run("git log -1 --stat -p");
  22
  23 say <<NOTE;
  24 You may want to save the commit you just made by doing
  25
  26     git push origin master
  27
  28 But you might want to try again, so this part is not automated :)
  29 NOTE
  30
  31 sub say_run {
  32     my ($cmd) = @_;
  33     say "Running '$cmd'";
  34     system $cmd;
  35 }