--- mail2lj/mail2lj.pl	2007/08/12 19:54:44	1.1
+++ mail2lj/mail2lj.pl	2007/08/13 15:06:38	1.3
@@ -42,6 +42,8 @@
 # Original script seems to be distributed as freeware, so I stick to that
 # decision.  No warranty whatsoever, of course - use at your own risk ;-).
 #
+# Changes by Boris Veytsman - added --cut option
+#
 # ------------------------------------------------------------------------
 
 use	strict ;
@@ -115,6 +117,7 @@ my %tr = (
 
 # ------------------------------------------------------------------------ #
 # Changed by LG - added parsing of command line.
+# Changed by BV - added options cut
 # ------------------------------------------------------------------------ #
 my 	%Opt = (); 			# Main options go here
 my 	$opt_h ; 			# Help flag
@@ -123,6 +126,9 @@ my 	$opt_addfrom ; 			# Add the From fie
 my 	$opt_addfromh ; 		# Add the htmlized From to the post
 my 	$opt_keepspaces ; 		# HTML-encode multiple spaces in e-mail
 my 	@opt_taglist ; 			# command-line taglist first goes here
+my 	$opt_ljcut ;    		# Add lj-cut after line number N
+my 	$ljcut_delta = 5 ; 		# No lj-cut if less lines left after it
+my 	$opt_ljcut_text ; 		# A text for lj-cut.
 my 	$Parse = GetOptions( \%Opt,
 			'user|u=s',
 			'password|passwd|p=s',
@@ -142,6 +148,8 @@ my 	$Parse = GetOptions( \%Opt,
 			'bounces|bounce|b=s' => \$opt_bounces,
 			'addfrom|add-from|from!' => \$opt_addfrom,
 			'addfromh|add-fromh|fromh!' => \$opt_addfromh,
+			'ljcut|lj-cut|cut|l=i'=>\$opt_ljcut,
+			'ljcut-text|lj-cut-text|cut-text|ljcuttext|cuttext=s'=>\$opt_ljcut_text,
 			'keep-spaces|keep-space|keepspaces|keepspace|spaces|space!' => \$opt_keepspaces,
 			'help|h' => \$opt_h,
 			   );
@@ -215,7 +223,7 @@ my	$mp = new MIME::Parser() or die "new
 
 # Changed by LG - changed directory.
 # $mp->output_dir("$home/mimetmp") ;
-$mp->output_dir("/tmp/mimetmp-$ENV{user}") ;
+$mp->output_dir("/tmp/mimetmp-".$ENV{USER}) ;
 mkdir $mp->output_dir if not -d $mp->output_dir ; 	# Create it if missing
 
 # Get the whole mail.
@@ -607,6 +615,36 @@ sub	post_me2req {
 	   $hr->{event} =~ s/\t/\ \ \ \ \ \ \ \ /g ;
 	   $hr->{event} =~ s/  / \ /g ;
 	}
+	
+	#
+	# Change by BV - added the option to put lj-cut after '--cut XX' lines
+	#
+	# Tweaked by LG - only adding lj-cut if more than $ljcut_delta lines
+	# is left in the posting.
+	#
+	if ($opt_ljcut>0) {
+	    my $nlines = scalar( my @junk=split( /\n/, $hr->{event}, -1) ) - 1;
+	    my $start=0;
+	    for (my $i=0; $i<$opt_ljcut; $i++) {
+		$start=index($hr->{event},"\n",$start)+1;
+		if ($start == 0) {
+		    last;
+		}
+	    }
+	    # And insert the lj-cut if not too close to the end of the post.
+	    if ($start>0 ) {
+		if ( $nlines >= $opt_ljcut+$ljcut_delta ) {
+		   my $ljcut = ( $opt_ljcut_text =~ /^\s*$/ ) ?
+				'<lj-cut>' :
+				'<lj-cut text="' . $opt_ljcut_text . '">' ;
+		   substr($hr->{event}, $start,0) = $ljcut ;
+		} else {
+		   print STDERR "'--cut $opt_ljcut' requested, which is " .
+				"within $ljcut_delta of the total $nlines " .
+				"lines. Skipping lj-cut.\n" ;
+		}
+	    }
+	}
 
 	$req->content_type('application/x-www-form-urlencoded');
 	$req->content(href2string $hr) ;
@@ -923,6 +961,16 @@ Options:
                better preserved in the journal.  The option can be negated
                ('--nospaces').  Default is '--nospaces'.
 
+--ljcut NUM, --cut NUM, -l NUM
+               Inserts '<lj-cut>' after NUM lines of the post content.
+               If the resulting lj-cut happens to be within $ljcut_delta lines from
+               the end of the post, the cut will not be added.
+
+--ljcut-text TEXT, --cut-text TEXT, --cuttext TEXT
+               Text to use as lj-cut text parameter (in <lj-cut text="TEXT">).
+               If the text contains nothing but whitespace, it is ignored.
+               Remember to quote spaces and special characters from the shell.
+
 --charset CHARSET
                This option tells the script that all COMMAND LINE options are
                given in this charset.  Default is "$SystemCharset".
@@ -931,7 +979,7 @@ Options:
                utf8).  It also has absolutely no effect on the in-the-body
                keywords (they are also governed by email's charset).  This
                option is meaningful ONLY for the text that you supply VIA
-               COMMAND LINE (e.g. '-s Subject').
+               COMMAND LINE (e.g. '-s Subject' or '--cuttext TEXT').
                
 -b xxx\@yyy, --bounces xxx\@yyy
                Normally, if errors occur during posting (e.g. wrong password),