/usr/share/doc/xmail/cvpod.pl is in xmail-doc 1.27-1.1build1.
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 | #!/usr/bin/perl
#-----------------------------------------
# cvpod - simple script to involk pod2html
# and pod2text
#
# a single argument gives the input file
# name; the outputs are <rootname>.html
# and <rootname>.txt.
#
# Beau E, Cox, BeauCox.com
# <beau@beaucox.com>
# <http://beaucox.com>
#
# October 13, 2002
#-----------------------------------------
use strict;
use warnings;
my $infn = shift @ARGV;
$infn || die "no input file specified\n";
(-T $infn) || die "input file $infn not found or invalid\n";
my @in;
open (IN, $infn) or die "unable to open $infn:\n$!\n";
while (<IN>) {
super_chomp ();
$_ || next;
last if /^=begin\s+cvpod/i;
}
while (<IN>) {
super_chomp ();
$_ || next;
last if /^=end\s+cvpod/i;
push @in, $_;
}
unless (@in) {
print "'=begin cvpod' directive found in $infn, no action taken\n";
exit 1;
}
close IN;
while (1) {
$_ = shift @in;
$_ || last;
my ($cssfn) = /^:begin\s+css\s+(.+)/i;
if ($cssfn) {
open (CSS, ">$cssfn")
or die "unable to open $infn:\n$!\n";
while (1) {
$_ = shift @in;
$_ || last;
last if (/^:/);
print CSS "$_\n";
}
close CSS;
}
$_ || last;
my ($cmd) = /^:run\s+(.+)/i;
$cmd || next;
print "$cmd\n";
system $cmd;
}
my $cmd = ($^O =~ m/win32/i) ? "del" : "rm";
$cmd .= " pod2h*.x~~ *.tmp";
print "$cmd\n";
system $cmd;
exit 0;
sub super_chomp
{
$_ = shift if (@_);
s/\x0D//g;
s/\x0A//g;
$_;
}
|