0
3
M 3
Index of /anon_sym/anon/sys/dev/char/7:132/subsystem/vcs
Index of /anon_sym/anon/sys/dev/char/7:132/subsystem/vcs
5a4()P@7LZ7 5File not found.
$ 7lze6WyLZ7
ig ? 7#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if $running_under_some_shell;
my $config_tag1 = '5.32.1 - Sun Jul 27 23:51:32 EDT 2025';
my $patchlevel_date = 1753674691;
my @patches = Config::local_patches();
my $patch_tags = join "", map /(\S+)/ ? "+$1 " : (), @patches;
BEGIN { pop @INC if $INC[-1] eq '.' }
use warnings;
use strict;
use Config;
use File::Spec; # keep perlbug Perl 5.005 compatible
use Getopt::Std;
use File::Basename 'basename';
$Getopt::Std::STANDARD_HELP_VERSION = 1;
sub paraprint;
BEGIN {
eval { require Mail::Send;};
$::HaveSend = ($@ eq "");
eval { require Mail::Util; } ;
$::HaveUtil = ($@ eq "");
# use secure tempfiles wherever possible
eval { require File::Temp; };
$::HaveTemp = ($@ eq "");
eval { require Module::CoreList; };
$::HaveCoreList = ($@ eq "");
eval { require Text::Wrap; };
$::HaveWrap = ($@ eq "");
};
our $VERSION = "1.42";
#TODO:
# make sure failure (transmission-wise) of Mail::Send is accounted for.
# (This may work now. Unsure of the original author's issue -JESSE 2008-06-08)
# - Test -b option
my( $file, $usefile, $cc, $address, $thanksaddress,
$filename, $messageid, $domain, $subject, $from, $verbose, $ed, $outfile,
$fh, $me, $body, $andcc, %REP, $ok, $thanks, $progname,
$Is_MSWin32, $Is_Linux, $Is_VMS, $Is_OpenBSD,
$report_about_module, $category, $severity,
%opt, $have_attachment, $attachments, $has_patch, $mime_boundary
);
my $running_noninteractively = !-t STDIN;
my $perl_version = $^V ? sprintf("%vd", $^V) : $];
my $config_tag2 = "$perl_version - $Config{cf_time}";
Init();
if ($opt{h}) { Help(); exit; }
if ($opt{d}) { Dump(*STDOUT); exit; }
if ($running_noninteractively && !$opt{t} && !($ok and not $opt{n})) {
paraprint <<"EOF";
Please use $progname interactively. If you want to
include a file, you can use the -f switch.
EOF
die "\n";
}
Query();
Edit() unless $usefile || ($ok and not $opt{n});
NowWhat();
if ($address) {
Send();
if ($thanks) {
print "\nThank you for taking the time to send a thank-you message!\n\n";
paraprint <