richter at apache
Oct 2, 2005, 6:30 AM
Post #1 of 1
(805 views)
Permalink
|
|
cvs commit: embperl/Embperl Mail.pm
|
|
richter 2005/10/02 06:30:14
Modified: . Changes.pod Embperl.xs Makefile.PL eppublic.h
eputil.c
Embperl Mail.pm
Log:
date header for Embperl::Mail
Revision Changes Path
1.290 +2 -1 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.289
retrieving revision 1.290
diff -u -r1.289 -r1.290
--- Changes.pod 25 Sep 2005 13:43:38 -0000 1.289
+++ Changes.pod 2 Oct 2005 13:30:14 -0000 1.290
@@ -9,7 +9,8 @@
processing is made inside an Embperl page. Reported by Gavin Carr.
- Return correct http status codes 403 and 404 if access to a file is
forbidden or the file was not found. Reported by Cliff Rayman.
-
+ - Added Date header for Embperl::Mail, Suggested by Robert.
+
=head4 2.0rc6
- http headers from %http_headers_out will now also be send when the
1.60 +11 -3 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /home/cvs/embperl/Embperl.xs,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -r1.59 -r1.60
--- Embperl.xs 9 Aug 2005 05:12:19 -0000 1.59
+++ Embperl.xs 2 Oct 2005 13:30:14 -0000 1.60
@@ -86,6 +86,17 @@
PUSHs(epxs_Embperl__Thread_2obj(pThread)) ;
PUSHs(epxs_Embperl__App_2obj(pApp)) ;
+
+
+char *
+embperl_get_date_time()
+PREINIT:
+ char buf[256] ;
+CODE:
+ RETVAL = embperl_GetDateTime(buf) ;
+OUTPUT:
+ RETVAL
+
MODULE = Embperl::Req PACKAGE = Embperl::Req PREFIX = embperl_
@@ -139,9 +150,6 @@
-
-
-
INCLUDE: Old.xs
1.80 +4 -2 embperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/embperl/Makefile.PL,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -r1.79 -r1.80
--- Makefile.PL 7 Aug 2005 00:02:58 -0000 1.79
+++ Makefile.PL 2 Oct 2005 13:30:14 -0000 1.80
@@ -241,7 +241,9 @@
if ($mp2cfg)
{ # with Apache 2, make sure we have the same defines as mod_perl
$txt =~ s/-O\d//g if ($ccdebug =~ /-O\d/) ;
- $txt =~ s/CCFLAGS\s*=.*?\n/CCFLAGS = $ccdebug $mp2cfg->{MODPERL_CCOPTS}\n/s ;
+ $txt =~ /CCFLAGS\s*=(.*?)\n/s ;
+ my $flags = $mp2cfg->{MODPERL_CCOPTS} || $1 ;
+ $txt =~ s/CCFLAGS\s*=(.*?)\n/CCFLAGS = $ccdebug $flags\n/s ;
}
else
{
1.7 +2 -1 embperl/eppublic.h
Index: eppublic.h
===================================================================
RCS file: /home/cvs/embperl/eppublic.h,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- eppublic.h 7 Aug 2005 01:00:21 -0000 1.6
+++ eppublic.h 2 Oct 2005 13:30:14 -0000 1.7
@@ -65,6 +65,7 @@
const char * embperl_GetText (tReq * r,
const char * sMsgId) ;
+char * embperl_GetDateTime (char * sResult) ;
#define ERRDATLEN 1024
1.49 +39 -1 embperl/eputil.c
Index: eputil.c
===================================================================
RCS file: /home/cvs/embperl/eputil.c,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -r1.48 -r1.49
--- eputil.c 7 Aug 2005 16:57:28 -0000 1.48
+++ eputil.c 2 Oct 2005 13:30:14 -0000 1.49
@@ -2051,6 +2051,44 @@
+#ifdef WIN32
+extern long _timezone;
+#else
+extern long timezone;
+#endif
+
+
+char * embperl_GetDateTime (char * sResult)
+{
+ time_t when = time(NULL);
+ int sep = ' ' ;
+ int tz ;
+#ifdef WIN32
+ struct tm *tms;
+#else
+ struct tm tms;
+#endif
+ dTHX ;
+
+#ifdef WIN32
+ tms = localtime(&when);
+ sprintf(sResult, "%s, %.2d%c%s%c%.2d %.2d:%.2d:%.2d %s%04d",
+ ep_day_snames[tms->tm_wday],
+ tms->tm_mday, sep, ep_month_snames[tms->tm_mon], sep,
+ tms->tm_year + 1900,
+ tms->tm_hour, tms->tm_min, tms->tm_sec, tz > 0?"+":"", tz);
+#else
+ localtime_r(&when, &tms);
+ tz = -timezone / 36 + (tms.tm_isdst?100:0) ;
+ sprintf(sResult,
+ "%s, %.2d%c%s%c%.2d %.2d:%.2d:%.2d %s%04d",
+ ep_day_snames[tms.tm_wday],
+ tms.tm_mday, sep, ep_month_snames[tms.tm_mon], sep,
+ tms.tm_year + 1900,
+ tms.tm_hour, tms.tm_min, tms.tm_sec, tz > 0?"+":"", tz);
+#endif
+ return sResult ;
+}
1.40 +2 -1 embperl/Embperl/Mail.pm
Index: Mail.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Mail.pm,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -r1.39 -r1.40
--- Mail.pm 13 Aug 2005 19:43:04 -0000 1.39
+++ Mail.pm 2 Oct 2005 13:30:14 -0000 1.40
@@ -138,6 +138,7 @@
$smtp->datasend("To: " . _quote_hdr(join (', ', @$to), $enc) . "\n") or die "smtp datasend failed" ;
$smtp->datasend("Cc: " . _quote_hdr(join (', ', @$cc), $enc) . "\n") or die "smtp datasend failed" if ($req -> {'cc'}) ;
$smtp->datasend("Subject: " . _quote_hdr($req->{subject}, $enc) . "\n") or die "smtp datasend failed" ;
+ $smtp->datasend("Date: " . _quote_hdr(Embperl::get_date_time(), $enc) . "\n") or die "smtp datasend failed" ;
if (ref ($headers) eq 'ARRAY')
{
foreach (@$headers)
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe [at] perl
For additional commands, e-mail: embperl-cvs-help [at] perl
|
