| … | |
… | |
| 60 | my $output = ''; # Variable to store the complete page |
60 | my $output = ''; # Variable to store the complete page |
| 61 | $tt->process ('template.html', $vars, \$output) |
61 | $tt->process ('template.html', $vars, \$output) |
| 62 | or die $tt->error; |
62 | or die $tt->error; |
| 63 | |
63 | |
| 64 | # Save the page to a html file |
64 | # Save the page to a html file |
| 65 | $file =~ s/src\/(.+)\.html$/html\/$1.shtml/; |
65 | $file =~ s/src\/(.+)\.html$/html\/$1.html/; |
| 66 | open HTML, ">$file"; |
66 | open HTML, ">$file"; |
| 67 | print HTML $output; |
67 | print HTML $output; |
| 68 | close HTML; |
68 | close HTML; |
| 69 | } |
69 | } |
