5 system("[ -d target ] || mkdir target");
7 system("cp -pr css imgs *.htm *.pdf *.gif target/");
9 *Q::include = \&Text::Template::_load_text;
11 foreach my $file ( glob("*.html") ) {
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 $!;