BUILD

   1 #!/usr/bin/perl
   2
   3 use Text::Template;
   4
   5 system("[ -d target ] || mkdir target");
   6
   7 system("cp -pr docs css imgs *.htm *.pdf *.gif *.jpg *js target/");
   8
   9 *Q::include = \&Text::Template::_load_text;
  10
  11 foreach my $file ( glob("*.html") ) {
  12   warn "$file\n";
  13   my $t = new Text::Template( TYPE=>'FILE', SOURCE=>$file );
  14   open(TARGET,">target/$file") or die $!;
  15   print TARGET $t->fill_in(PACKAGE=>'Q');
  16   close TARGET or die $!;
  17 }
  18