From 9ec9242bfedea9042eafec97a6e94e03aaf22756 Mon Sep 17 00:00:00 2001
From: "Andrey A. Chernov" <ache@FreeBSD.org>
Date: Sat, 24 Mar 2007 20:00:41 +0000
Subject: [PATCH] Use correct date for backdated entries when importing back

---
 www/ljpms/Makefile             |  1 +
 www/ljpms/files/patch-ljpms.pl | 19 +++++++++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 www/ljpms/files/patch-ljpms.pl

diff --git a/www/ljpms/Makefile b/www/ljpms/Makefile
index 3b0479bc6940..8738a3c566d9 100644
--- a/www/ljpms/Makefile
+++ b/www/ljpms/Makefile
@@ -7,6 +7,7 @@
 
 PORTNAME=	ljpms
 PORTVERSION=	1.3
+PORTREVISION=	1
 CATEGORIES=	www perl5 deskutils
 MASTER_SITES=	http://ljsm.feechki.org/
 DISTFILES=	ljpms-1_3.zip
diff --git a/www/ljpms/files/patch-ljpms.pl b/www/ljpms/files/patch-ljpms.pl
new file mode 100644
index 000000000000..4f8c03b08e7e
--- /dev/null
+++ b/www/ljpms/files/patch-ljpms.pl
@@ -0,0 +1,19 @@
+--- ljpms.pl.orig	Fri Nov 17 17:12:34 2006
++++ ljpms.pl	Sat Mar 24 22:53:07 2007
+@@ -217,7 +217,6 @@
+ 
+ sub post_event {
+ 	my ($entry) = @_;
+-	my ($year, $month, $day, $hour, $min) = split(/\D+/, my_encode($entry->{'eventtime'}));
+ 
+ 	my $soap_message = &make_message($entry);
+ 	$soap_message->{'props'}->{'opt_backdated'} = 1;
+@@ -243,7 +242,7 @@
+ 
+ sub make_message {
+ 	my ($entry) = @_;
+-	my ($year, $month, $day, $hour, $min) = split(/\D+/, ($entry->{'eventtime'} or $entry->{'logtime'}));
++	my ($year, $month, $day, $hour, $min) = split(/\D+/, ($entry->{'logtime'} or $entry->{'eventtime'}));
+ 	my $soap_message = {
+ 			'ver'			=> 1,
+ 			'lineendings'	=> "\n",