From ddd1aed8dcf0b7295f9daed3f500a9c91be0e227 Mon Sep 17 00:00:00 2001 From: cvs2git Date: Tue, 5 Aug 2003 20:58:13 +0000 Subject: [PATCH] This commit was manufactured by cvs2svn to create tag 'freeside_1_4_1rc6'. --- FS/FS/Misc.pm | 102 --------------------- FS/t/Misc.t | 5 - .../docs/man/FS/part_export/.cvs_is_on_crack | 0 3 files changed, 107 deletions(-) delete mode 100644 FS/FS/Misc.pm delete mode 100644 FS/t/Misc.t delete mode 100644 httemplate/docs/man/FS/part_export/.cvs_is_on_crack diff --git a/FS/FS/Misc.pm b/FS/FS/Misc.pm deleted file mode 100644 index efad2dfd6..000000000 --- a/FS/FS/Misc.pm +++ /dev/null @@ -1,102 +0,0 @@ -package FS::Misc; - -use strict; -use vars qw ( @ISA @EXPORT_OK ); -use Exporter; - -@ISA = qw( Exporter ); -@EXPORT_OK = qw( send_email ); - -=head1 NAME - -FS::Misc - Miscellaneous subroutines - -=head1 SYNOPSIS - - use FS::Misc qw(send_email); - - send_email(); - -=head1 DESCRIPTION - -Miscellaneous subroutines. This module contains miscellaneous subroutines -called from multiple other modules. These are not OO or necessarily related, -but are collected here to elimiate code duplication. - -=head1 SUBROUTINES - -=over 4 - -=item send_email OPTION => VALUE ... - -Options: - -I - (required) - -I - (required) comma-separated scalar or arrayref of recipients - -I - (required) - -I - (optional) MIME type - -I - (required) arrayref of body text lines - -=cut - -use vars qw( $conf ); -use Date::Format; -use Mail::Header; -use Mail::Internet 1.44; -use FS::UID; - -FS::UID->install_callback( sub { - $conf = new FS::Conf; -} ); - -sub send_email { - my(%options) = @_; - - $ENV{MAILADDRESS} = $options{'from'}; - my $to = ref($options{to}) ? join(', ', @{ $options{to} } ) : $options{to}; - my @header = ( - 'From: '. $options{'from'}, - 'To: '. $to, - 'Sender: '. $options{'from'}, - 'Reply-To: '. $options{'from'}, - 'Date: '. time2str("%a, %d %b %Y %X %z", time), - 'Subject: '. $options{'subject'}, - ); - push @header, 'Content-Type: '. $options{'content-type'} - if exists($options{'content-type'}); - my $header = new Mail::Header ( \@header ); - - my $message = new Mail::Internet ( - 'Header' => $header, - 'Body' => $options{'body'}, - ); - - my $smtpmachine = $conf->config('smtpmachine'); - $!=0; - - my $rv = $message->smtpsend( 'Host' => $smtpmachine ) - or $message->smtpsend( Host => $smtpmachine, Debug => 1 ); - - if ($rv) { #smtpsend returns a list of addresses, not true/false - return ''; - } else { - return "can't send email to $to via server $smtpmachine with SMTP: $!"; - } - -} - -=head1 BUGS - -This package exists. - -=head1 SEE ALSO - -L, L, L, the base documentation. - -=cut - -1; diff --git a/FS/t/Misc.t b/FS/t/Misc.t deleted file mode 100644 index cc7751ab6..000000000 --- a/FS/t/Misc.t +++ /dev/null @@ -1,5 +0,0 @@ -BEGIN { $| = 1; print "1..1\n" } -END {print "not ok 1\n" unless $loaded;} -use FS::Misc; -$loaded=1; -print "ok 1\n"; diff --git a/httemplate/docs/man/FS/part_export/.cvs_is_on_crack b/httemplate/docs/man/FS/part_export/.cvs_is_on_crack deleted file mode 100644 index e69de29bb..000000000 -- 2.11.0