Subversion Repositories PEEPS

#!/usr/bin/perl

use strict;

use Getopt::Long;

my $everything;
my $quiet;

GetOptions ( "all"     => \$everything,
             "help"    => \&usage,
             "quiet"   => \$quiet,
           ) or usage ();

# Source and targets
my $svn_repo = "https://svn.gadell.org/svn/PEEPS/trunk/";
my %path = (
  site => "/var/www/html",
  perl => "/usr/local/lib/site_perl",
  util => "/root/util"
);

# Error checking
usage ("No module (or -a) specified.") unless ($everything or scalar @ARGV);
usage ("Module and -a specified, unclear what you want to do.") if ($everything and scalar @ARGV);
map { usage ("Unknown module: '$_'.") unless defined $path{$_} } @ARGV;

# Do the things.
foreach (scalar @ARGV ? @ARGV : keys %path) {
  my @command = ("/usr/bin/svn", "export", $svn_repo.$_, $path{$_}, "--force", "--quiet");
  pop @command unless $quiet;
  print join (" ", @command, "\n") unless $quiet;
  system (@command);
  print "\n" unless $quiet;
}



sub usage {
  my $problem = shift // "";
  
  print "$problem\n" unless !$problem;
  
  print<<usage;
  
./deploy.pl [-v] [-h] [-a | util | perl | site]

Export latest files from svn.gadell.org.

Optional:

  -q  supress output
  -h  This usage output

Required (one of the following):

  -a    Deploy all modules
  util  Utility scripts
  perl  Perl modules
  site  Site files

usage
  exit;
}