/usr/share/perl5/News/FormReply.pm is in libnews-article-perl 1.27-10.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 | # -*- Perl -*-
###########################################################################
# Written and maintained by Andrew Gierth <andrew@erlenstar.demon.co.uk>
#
# Copyright 1997 Andrew Gierth. Redistribution terms at end of file.
#
# $Id: FormReply.pm 1.5 1998/10/18 06:04:56 andrew Exp $
#
=head1 NAME
News::FormReply - derivative of News::FormArticle and News::AutoReply
=head1 SYNOPSIS
use News::FormReply;
See below for functions available.
=head1 DESCRIPTION
This is a "mixin" of News::FormArticle and News::AutoReply; it
generates form replies by performing substitutions on a text file.
=head1 USAGE
use News::FormReply;
Exports nothing.
=cut
package News::FormReply;
use News::FormArticle;
use News::AutoReply;
use strict;
use vars qw(@ISA);
@ISA = qw(News::FormArticle News::AutoReply);
=head1 Constructor
=over 4
=item new ( ORIGINAL, FILENAME [, SOURCE [...]] )
Construct an article as a reply to C<ORIGINAL>, initialised from the
specified file, performing variable substitution with values supplied
by the C<SOURCE> parameters (see News::FormArticle).
The Subject, To, References and In-Reply-To headers are setup B<after>
the template has been read and substituted, but a Subject header set
in a template will not be overridden.
=cut
sub new
{
my $class = shift;
my $src = shift;
my $self = $class->SUPER::new(@_);
return undef unless $self;
$self->reply_init($src);
}
1;
__END__
###########################################################################
#
# $Log: FormReply.pm $
# Revision 1.5 1998/10/18 06:04:56 andrew
# added SYNOPSIS
#
# Revision 1.4 1997/10/22 21:01:31 andrew
# Cleanup for release.
#
# Revision 1.3 1997/08/29 00:38:19 andrew
# Doc change to reflect inherited behaviour from AutoReply
#
#
###########################################################################
=back
=head1 AUTHOR
Andrew Gierth <andrew@erlenstar.demon.co.uk>
=head1 COPYRIGHT
Copyright 1997 Andrew Gierth <andrew@erlenstar.demon.co.uk>
This code may be used and/or distributed under the same terms as Perl
itself.
=cut
###########################################################################
|