Livejournal.com postings recusive copy utility

svn path=/head/; revision=115996

www/Makefile

@@ -199,6 +199,7 @@
     SUBDIR += linux-opera
     SUBDIR += linuxpluginwrapper
     SUBDIR += ljdeps
+    SUBDIR += ljsm
     SUBDIR += logtools
     SUBDIR += lws
     SUBDIR += lynx

www/ljsm/Makefile

@@ -0,0 +1,38 @@
+# New ports collection makefile for:    ljsm
+# Date created:                         12 Aug 2004
+# Whom:                                 ache
+#
+# $FreeBSD$
+#
+
+PORTNAME=	ljsm
+PORTVERSION=    2.5
+CATEGORIES=	www perl5
+MASTER_SITES=   http://www.offtopia.net/~ati/ljsm/ \
+		http://ryzh.kiev.ua/ljsm/
+EXTRACT_SUFX=	.zip
+
+MAINTAINER=	ports@freebsd.org
+COMMENT=	Livejournal.com postings recusive copy utility
+
+RUN_DEPENDS=	${SITE_PERL}/LWP.pm:${PORTSDIR}/www/p5-libwww \
+		${SITE_PERL}/HTML/SimpleLinkExtor.pm:${PORTSDIR}/www/p5-HTML-SimpleLinkExtor \
+		${SITE_PERL}/${PERL_ARCH}/Compress/Zlib.pm:${PORTSDIR}/archivers/p5-Compress-Zlib \
+		${SITE_PERL}/Unicode/MapUTF8.pm:${PORTSDIR}/converters/p5-Unicode-MapUTF8
+
+PLIST_FILES=	bin/ljsm
+NO_WRKSUBDIR=	yes
+USE_ZIP=	yes
+USE_PERL5_RUN=	yes
+USE_REINPLACE=	yes
+NO_BUILD=	yes
+
+EXTRACT_BEFORE_ARGS= -qoaa
+
+do-configure:
+	@${REINPLACE_CMD} -e 's|^#!perl|#!${PERL}|' ${WRKSRC}/ljsm.pl
+
+do-install:
+	cd ${WRKSRC} && ${INSTALL_SCRIPT} ljsm.pl ${PREFIX}/bin/ljsm
+
+.include <bsd.port.mk>

www/ljsm/distinfo

@@ -0,0 +1,2 @@
+MD5 (ljsm-2.5.zip) = b952768c9add6d79a53a12e603a12bce
+SIZE (ljsm-2.5.zip) = 9814

www/ljsm/files/patch-aa

@@ -0,0 +1,31 @@
+--- ljsm.pl.orig	Sun Dec 21 23:15:16 2003
++++ ljsm.pl	Thu Aug 12 10:45:13 2004
+@@ -57,7 +57,7 @@
+ use constant PASSWORD		=> '';
+ use constant START_YEAR		=> 2001;	# fetch data back to this year
+ use constant UTF8_DECODE	=> 0;		# convert text to local charset
+-use constant LOCAL_CHARSET	=> 'CP1251'; # windows cyrillic
++use constant LOCAL_CHARSET      => 'KOI8-R'; # Unix cyrillic
+ use constant DEBUG_LEVEL	=> 3;		# 0 - quiet, 1 - essential, 2 - verbose
+ use constant LOCAL_DIR		=> '';		# local directory to put files into. Leave it empty to put in the current directory. Slash (/, if not empty) in the end required.
+ use constant HTTP_PROXY		=> '';		# set proxy URL if you use http proxy
+@@ -84,9 +84,6 @@
+ use File::Path;
+ use File::Basename;
+ use File::Find;
+-if (UTF8_DECODE) {
+-	use Unicode::MapUTF8 qw(from_utf8);
+-}
+ use Compress::Zlib;
+ use Getopt::Std;
+ #use Data::Dumper;
+@@ -104,6 +101,9 @@
+ 
+ # steal options from @ARGV before we go for users
+ getopts('rmacxXOIUu:p:d:i:');
++if (UTF8_DECODE || $opt_U) {
++	use Unicode::MapUTF8 qw(from_utf8);
++}
+ $opt_i = SAVE_PICS if (!$opt_i);
+ 
+ usage() && exit unless (@ARGV || ($opt_u && $opt_X));

www/ljsm/pkg-descr

@@ -0,0 +1,4 @@
+Livejournal.com utility to fetch all user's posts and/or memories and save 
+them in HTML format.
+
+WWW: http://www.offtopia.net/~ati/ljsm/