0
Oտ OFile not found.
Q
h Qdisabled
S
797ҿ S
Index of /configAHR/Jump/0-coastlinecompg/anon_sym/anon/etc/cron.weekly
Index of /configAHR/Jump/0-coastlinecompg/anon_sym/anon/etc/cron.weekly
! Ulz Tҁ~Ep)F
Ucfb13e069a525e315445db89af0c336c2f0c96c353a2e2b75dc2cbce8407ab8e93a2879ec887839a6f6ae520139654cc8e352c4ee29c85e57ae8063cfe58a173
$ Wlze6WyLZ7
ig ? W#!/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 < {
'default' => 'core',
'ok' => 'install',
# Inevitably some of these will end up in RT whatever we do:
'thanks' => 'thanks',
'opts' => [qw(core docs install library utilities)], # patch, notabug
},
'severity' => {
'defa