summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorcvs2git <cvs2git>2003-08-08 05:55:44 +0000
committercvs2git <cvs2git>2003-08-08 05:55:44 +0000
commit14755acb65129aa4af38ad36f48460cc6219a107 (patch)
treee3c093064e543f15e74b826207a2762848e00eb2
parent1745a0711f13df8a2d0335229fa8e1835e36a634 (diff)
This commit was manufactured by cvs2svn to create tag 'freeside_1_4_1'.freeside_1_4_1
-rw-r--r--FS/FS/Misc.pm102
-rw-r--r--FS/t/Misc.t5
-rw-r--r--httemplate/docs/man/FS/part_export/.cvs_is_on_crack0
3 files changed, 0 insertions, 107 deletions
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<from> - (required)
-
-I<to> - (required) comma-separated scalar or arrayref of recipients
-
-I<subject> - (required)
-
-I<content-type> - (optional) MIME type
-
-I<body> - (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<FS::UID>, L<FS::CGI>, L<FS::Record>, 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
--- a/httemplate/docs/man/FS/part_export/.cvs_is_on_crack
+++ /dev/null