/[suikacvs]/www/test/http/mime-multipart/mixed-replace/empty-prologue-2.cgi
Suika

Contents of /www/test/http/mime-multipart/mixed-replace/empty-prologue-2.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations) (download)
Sat Feb 10 15:14:04 2007 UTC (18 years, 5 months ago) by wakaba
Branch: MAIN
CVS Tags: HEAD
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