From a1e5529209c50a7b281e19c57f903f311e2adeef Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 18 May 2002 09:51:30 +0000 Subject: [PATCH] Mail::Internet 1.44 --- FS/FS/cust_bill.pm | 4 ++-- FS/FS/cust_pay.pm | 4 ++-- FS/FS/svc_domain.pm | 4 ++-- fs_signup/fs_signup_server | 2 +- 4 files changed, 7 insertions(+), 7 deletions(-) diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index 449ab74b9..e2705fd83 100644 --- a/FS/FS/cust_bill.pm +++ b/FS/FS/cust_bill.pm @@ -8,7 +8,7 @@ use vars qw( $xaction $E_NoErr ); use vars qw( $bop_processor $bop_login $bop_password $bop_action @bop_options ); use vars qw( $invoice_lines @buf ); #yuck use Date::Format; -use Mail::Internet; +use Mail::Internet 1.44; use Mail::Header; use Text::Template; use FS::Record qw( qsearch qsearchs ); @@ -948,7 +948,7 @@ sub print_text { =head1 VERSION -$Id: cust_bill.pm,v 1.34 2002-05-06 13:36:02 ivan Exp $ +$Id: cust_bill.pm,v 1.35 2002-05-18 09:51:30 ivan Exp $ =head1 BUGS diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm index ac60dc242..fcd902b1b 100644 --- a/FS/FS/cust_pay.pm +++ b/FS/FS/cust_pay.pm @@ -4,7 +4,7 @@ use strict; use vars qw( @ISA $conf $unsuspendauto $smtpmachine $invoice_from ); use Date::Format; use Mail::Header; -use Mail::Internet; +use Mail::Internet 1.44; use Business::CreditCard; use FS::UID qw( dbh ); use FS::Record qw( dbh qsearch qsearchs dbh ); @@ -405,7 +405,7 @@ sub unapplied { =head1 VERSION -$Id: cust_pay.pm,v 1.19 2002-04-07 06:23:29 ivan Exp $ +$Id: cust_pay.pm,v 1.20 2002-05-18 09:51:30 ivan Exp $ =head1 BUGS diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm index 97c5b3147..3dea7050f 100644 --- a/FS/FS/svc_domain.pm +++ b/FS/FS/svc_domain.pm @@ -6,7 +6,7 @@ use vars qw( @ISA $whois_hack $conf $smtpmachine $soarefresh $soaretry $qshellmachine $nossh_hack ); use Carp; -use Mail::Internet; +use Mail::Internet 1.44; use Mail::Header; use Date::Format; use Net::Whois 1.0; @@ -407,7 +407,7 @@ sub submit_internic { =head1 VERSION -$Id: svc_domain.pm,v 1.27 2002-05-10 07:45:29 ivan Exp $ +$Id: svc_domain.pm,v 1.28 2002-05-18 09:51:30 ivan Exp $ =head1 BUGS diff --git a/fs_signup/fs_signup_server b/fs_signup/fs_signup_server index 70045e63b..65d530e68 100755 --- a/fs_signup/fs_signup_server +++ b/fs_signup/fs_signup_server @@ -205,7 +205,7 @@ while (1) { #false laziness w/FS::cust_bill::send & FS::cust_pay::delete use Mail::Header; - use Mail::Internet; + use Mail::Internet 1.44; use Date::Format; my $from = $conf->config('invoice_from'); #??? as good as any $ENV{MAILADDRESS} = $from; -- 2.11.0