steffen: server/perl-kolab/Kolab-Mailer Makefile.am, NONE, 1.1 Mailer.pm, 1.1, 1.2
cvs at intevation.de
cvs at intevation.de
Wed Jun 8 14:44:37 CEST 2005
Author: steffen
Update of /kolabrepository/server/perl-kolab/Kolab-Mailer
In directory doto:/tmp/cvs-serv22190/Kolab-Mailer
Modified Files:
Mailer.pm
Added Files:
Makefile.am
Log Message:
autoperlized perl-kolab. Last non-autoperl version is tagged pre_autoperl
--- NEW FILE: Makefile.am ---
include_HEADERS = Mailer.pm
Index: Mailer.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-Mailer/Mailer.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- Mailer.pm 31 Mar 2004 15:36:51 -0000 1.1
+++ Mailer.pm 8 Jun 2005 12:44:35 -0000 1.2
@@ -3,7 +3,7 @@
##
## Copyright (c) 2003 Code Fusion cc
##
-## Writen by Stuart Bingë <s.binge at codefusion.co.za>
+## Writen by Stuart Bing� <s.binge at codefusion.co.za>
##
## This program is free software; you can redistribute it and/or
## modify it under the terms of the GNU General Public License as
@@ -27,6 +27,7 @@
use MIME::Body;
require Exporter;
+require "config.h";
our @ISA = qw(Exporter);
@@ -67,7 +68,7 @@
$mesg->attach(Data => $data);
}
- open(SENDMAIL, '|' . $Kolab::config{'prefix'} . '/sbin/sendmail -oi -t -odq');
+ open(SENDMAIL, '|' . $Kolab::config{'prefix'} . $ap::config->{sbindir}/sendmail -oi -t -odq);
$mesg->print(\*SENDMAIL);
close(SENDMAIL);
}
@@ -86,7 +87,7 @@
Data => $text,
);
- open(SENDMAIL, '|' . $Kolab::config{'prefix'} . '/sbin/sendmail -oi -t -odq');
+ open(SENDMAIL, '|' . $Kolab::config{'prefix'} . $ap::config->{sbindir}/sendmail -oi -t -odq);
$mesg->print(\*SENDMAIL);
close(SENDMAIL);
}
@@ -106,7 +107,7 @@
=head1 AUTHOR
-Stuart Bingë, E<lt>s.binge at codefusion.co.zaE<gt>
+Stuart Bing� E<lt>s.binge at codefusion.co.zaE<gt>
=head1 COPYRIGHT AND LICENSE
More information about the commits
mailing list