mime-multipart/mixed-replace/mixed-replace-generation.pl

use strict;

package mixed_replace_generation;

sub new ($;%) {
  my ($class, %opt) = @_;
  return bless {boundary => 'abcdefghijklmn', out => \*main::STDOUT,
      nl => "\x0D\x0A", %opt}, $class;
} # new

sub output_cgi_header ($) {
  my $self = shift;
  print {$self->{out}} q<Content-Type: multipart/x-mixed-replace; boundary=">
      . $self->{boundary} . qq<"\n>;
  print "\n";
} # output_cgi_header

sub output_line ($$) {
  my ($self, $s) = @_;
  print {$self->{out}} $s . $self->{nl};
} # output_line

sub output_string ($$) {
  my ($self, $s) = @_;
  print {$self->{out}} $s;
} # output_string

sub output_boundary ($) {
  my $self = shift;
  print {$self->{out}} $self->{nl} . '--' . $self->{boundary} . $self->{nl};
} # output_boundary

sub output_last_boundary ($) {
  my $self = shift;
  print {$self->{out}}
      $self->{nl} . '--' . $self->{boundary} . '--' . $self->{nl};
} # output_last_boundary

1;
1	use strict;
2
3	package mixed_replace_generation;
4
5	sub new ($;%) {
6	my ($class, %opt) = @_;
7	return bless {boundary => 'abcdefghijklmn', out => \*main::STDOUT,
8	nl => "\x0D\x0A", %opt}, $class;
9	} # new
10
11	sub output_cgi_header ($) {
12	my $self = shift;
13	print {$self->{out}} q<Content-Type: multipart/x-mixed-replace; boundary=">
14	. $self->{boundary} . qq<"\n>;
15	print "\n";
16	} # output_cgi_header
17
18	sub output_line ($$) {
19	my ($self, $s) = @_;
20	print {$self->{out}} $s . $self->{nl};
21	} # output_line
22
23	sub output_string ($$) {
24	my ($self, $s) = @_;
25	print {$self->{out}} $s;
26	} # output_string
27
28	sub output_boundary ($) {
29	my $self = shift;
30	print {$self->{out}} $self->{nl} . '--' . $self->{boundary} . $self->{nl};
31	} # output_boundary
32
33	sub output_last_boundary ($) {
34	my $self = shift;
35	print {$self->{out}}
36	$self->{nl} . '--' . $self->{boundary} . '--' . $self->{nl};
37	} # output_last_boundary
38
39	1;