scripts/make-editor.pl

   1 #!/usr/bin/perl -w
   2 #
   3 # make-editor.pl
   4 #
   5 # Creates Editor Pack
   6 #
   7 #
   8 #####
   9
  10 use strict;
  11
  12 ##
  13
  14 if( $ENV{'AONPATH'} eq "" ) { die "Please set the AONPATH environment variable."; }
  15
  16 my $PROGRAM_NAME     = "make-editor";
  17 my $PATH_PREFIX      = "$ENV{'AONPATH'}/data";
  18 my $XML_PATH         = "xml";
  19 my $GRAPH_PATH       = "svg";
  20 my $EDITOR_PATH      = "editor";
  21 my $CHANGES_PATH     = "$EDITOR_PATH/changes/data";
  22 my @EDITOR_INC       = qw{*.* scripts/* style/* images/* changes/index.html changes/controls.html changes/scripts/* changes/style/*};
  23
  24 ##
  25
  26 my $CP         = "/bin/cp";
  27 my $MV         = "/bin/mv";
  28 my $TAR        = "/bin/tar";
  29 my $ZIP        = "/usr/bin/zip";
  30 my $BZIP2      = "/usr/bin/bzip2";
  31 my $RM         = "/usr/bin/rm";
  32
  33 ##
  34
  35 my $verbose = 0;
  36 my $book = "";
  37
  38 while( $#ARGV > -1 ) {
  39  if( $ARGV[0] eq "-v" ) { $verbose = 1; shift @ARGV; }
  40  else { $book = shift @ARGV; }
  41 }
  42
  43 chdir( "$PATH_PREFIX" ) or die( "Cannot open Project Aon data directory \"$PATH_PREFIX\": $!" );
  44 if( $book ne "" ) {
  45   print "Tarring SVG\n" if $verbose;
  46   print qx{$TAR cf editor-$book.tar $GRAPH_PATH/$book.svg};
  47   print "Zipping SVG\n" if $verbose;
  48   print qx{$ZIP -8 -q editor-$book.zip $GRAPH_PATH/$book.svg};
  49   print "Tarring Changes\n" if $verbose;
  50   print qx{$TAR uf editor-$book.tar $CHANGES_PATH/$book-changes.html};
  51   print "Zipping Changes\n" if $verbose;
  52   print qx{$ZIP -8 -q editor-$book.zip $CHANGES_PATH/$book-changes.html};
  53   print "BZIP2ing tar archive\n" if $verbose;
  54   print qx{$BZIP2 -9 editor-$book.tar};
  55 }
  56 else {
  57   print "Tarring Editor Companion\n" if $verbose;
  58   foreach my $item (@EDITOR_INC) {
  59     print qx{$TAR uf editor.tar $EDITOR_PATH/$item};
  60   }
  61   print "Zipping Editor Companion\n" if $verbose;
  62   foreach my $item (@EDITOR_INC) {
  63     print qx{$ZIP -g -q -8 editor.zip $EDITOR_PATH/$item};
  64   }
  65   print "BZIP2ing tar archive\n" if $verbose;
  66   print qx{$BZIP2 -9 editor.tar};
  67 }