Parent Directory
|
Revision Log
New tests
1 | #!/usr/bin/perl |
2 | use strict; |
3 | |
4 | require 'mixed-replace-generation.pl'; |
5 | |
6 | $| = 1; |
7 | |
8 | my $mr = mixed_replace_generation->new; |
9 | |
10 | $mr->output_cgi_header; |
11 | |
12 | $mr->output_line (''); |
13 | $mr->output_line ('--' . $mr->{boundary}); |
14 | $mr->output_line ('Content-Type: text/plain; charset=us-ascii'); |
15 | $mr->output_line (''); |
16 | $mr->output_line ('first part'); |
17 | |
18 | $mr->output_last_boundary; |
admin@suikawiki.org | ViewVC Help |
Powered by ViewVC 1.1.24 |