BUILD

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