14 if( $ENV{'AONPATH'} eq "" ) { die "Please set the AONPATH environment variable."; }
16 my $PROGRAM_NAME = "make-editor";
17 my $PATH_PREFIX = "$ENV{'AONPATH'}/data";
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/*};
29 my $ZIP = "/usr/bin/zip";
30 my $BZIP2 = "/usr/bin/bzip2";
31 my $RM = "/usr/bin/rm";
38 while( $#ARGV > -1 ) {
39 if( $ARGV[0] eq "-v" ) { $verbose = 1; shift @ARGV; }
40 else { $book = shift @ARGV; }
43 chdir( "$PATH_PREFIX" ) or die( "Cannot open Project Aon data directory \"$PATH_PREFIX\": $!" );
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};
57 print "Tarring Editor Companion\n" if $verbose;
58 foreach my $item (@EDITOR_INC) {
59 print qx{$TAR uf editor.tar $EDITOR_PATH/$item};
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};
65 print "BZIP2ing tar archive\n" if $verbose;
66 print qx{$BZIP2 -9 editor.tar};