sgn_deploy

   1 #!/usr/bin/env perl
   2
   3 use Modern::Perl;
   4 use autodie qw/:all/;
   5
   6 =head1 sgn_deploy - Deploy SGN site to current host
   7
   8 Use this script to deploy an already-created sgn-site debian package to the local machine.
   9
  10 This script requires "sudo" access.
  11
  12 =cut
  13
  14 my ($deb) = @ARGV;
  15
  16 die "Must specify path to debian package to deploy!" unless $deb;
  17 die "$deb does not exist!" unless -e $deb;
  18
  19 my $pkg = $deb;
  20 $pkg =~ s/\.deb$//;
  21
  22 my $email = 'cxgn-devel@sgn.cornell.edu';
  23 my $cmd =<<CMD;
  24 sudo dpkg -i $deb && sudo /etc/init.d/apache2 restart && mail -s "`hostname -s` updated to `basename $pkg`" $email < $pkg.changes
  25 CMD
  26
  27 print "Deploying $deb with following command:\n$cmd\n";
  28
  29 system $cmd;