#!/usr/bin/perl -w
#
# Welcome to emailblog.pl
# The intent of this script is to pass an email into the script.
# like this:
# emailblog.pl < mbox.email
# or via procmail:
# :0
# * ^(To|Cc|Resent-To).*someaddress@my\.com
# | emailblog.pl

# There's no license with this, its totally free.  All I ask is that you notify me of any
# changes you make to the script so that I can learn from what you did, and improve this
# version of the script.  emailblog at adhamh . com

# This script shouldn't hose your machine, but if it does please don't ask me for help.  :-)

# The idea for this script was to create something that would allow me to blog by email
# and support creating thumbnails of any jpg's attached to the email.

# Its only be tested with http://blosxom.com!

# TODO (for now):
# Refactor code a bit and make it a little clearer as to the process being followed
# Add more comments to the code
# Add support for more image types, anything that ImageMagick can use will work

# This script requires the Data::Dumper, MIME::Explode, and FileHandle
# perl modules.  It also requires ImageMagick be installed, this is easily
# done using fink if running OS X.

use Data::Dumper;
use MIME::Explode;
use FileHandle;
use strict;

# The script first parses the email message and determines what do to
# The subject of the email defines what actions should be taken.
# Example:
# Subject: NewBlog EmailBlog
# Would create a new blog entry under the category EmailBlog
# Something like:
# Subject: NewBlog EmailBlog/Test/Foo/Bar 
# should work too.
# The idea is to allow for other commands to be added later


# umask must be set if calling this script from procmail
umask(0002);

# your webserver url
my $httpPath = "http://your.com";

# your webserver's document root
my $webRoot = "/Library/WebServer/Documents";
# the path you use to view your blog
my $blogName = "/yourblog";
# the directory inside your webRoot where blosxom docs are store
my $blosxomdir = "/Blosxom";

# directory where temp files are stored
my $tempDir = "/tmp";

# array for storing path to attachments
my @attachments;

# subject parsed from email
my $subject = "nothing";

#parts of subject
my @splitSubject;

# used for naming log files if debugging is on.
my $currentDate = "/".`date "+%B"`;

my $thumbName;

# This is the directory where you want to store you full size
# images, its under the $webRoot direcotry
my $pictureDirectory = "/images";
my $imageRoot = $webRoot . $pictureDirectory;
my $blosxomRoot = $webRoot . $blosxomdir;
# timestamp for uniquely nameing files in your blog directory.
my $ctime = time();
# file name for you email's body (don't change)
my $filename = $ctime;
# category name for your blog (don't change)
my $category = "none";
# command from subject (don't change)
my $blogCommand = "none";
# this is the path where the script can find your convert utility
# that was installed with ImageMagick
my $pathToConvert = "/sw/bin/convert";

# set $debug to 1 for debugging output.
# debug logs are written to /tmp/log.<time>
my $debug = 1;

chomp($currentDate);

if ( !(-d $imageRoot)) {
    mkdir ($imageRoot, 0775) || die "cannot create $imageRoot: $!";
}
if ( !(-d $imageRoot.$currentDate)) {
    mkdir ($imageRoot.$currentDate, 0775) || die "cannot create $imageRoot: $!";
    #chmod (0445, $imageRoot.$currentDate);
}

open(TEMPFILE, ">/tmp/mailfile") or die("Couldn't open file: $!\n");
while (<>) {
    print TEMPFILE $_;
}
close(TEMPFILE) or die("Couldn't open file: $!\n");

# Here are the functions that control everything
# writemessage writes the incoming email to disk
writeMessage();
# writeThumbnail saves a thumbnail version of the jpg
# attachment to disk
writeThumbnail();
# Adds the link to the thumbnail image to the blog entry
addThumbLinkToBody();

# uncoment this line if you are using static rendering with blosxom
#`perl /Library/WebServer/CGI-Executables/blosxom.cgi -password="<password>"`;

sub debug {
    #if debug is on your logfile will be written to /tmp.  
    if ($debug == 1) {
	open (LOGFILE, ">>/tmp/logfile.".$ctime) or die ("Can't open log file! :$!\n");
	print LOGFILE "@_";
	close (LOGFILE);
    }
} 
sub addThumbLinkToBody {
    my $mailbody = "";
    debug("addThumbLinkToBody: ".$blosxomRoot.$category."/".$filename."txt\n");
    debug("addThumbLinkToBody opening: $blosxomRoot$category/$filename.txt\n");
    #this opens the filename so that you can APPEND to it.  This makes it possible to add
    #text to an existing entry...  Might want to change this. 

    open (MAIL, ">>$blosxomRoot/$category/$filename.txt") or die("couldn't open $blosxomRoot/$category/$filename.txt because:\n $!\n");

    foreach $attachment (@attachments) {
	my $ext =  substr($attachment, -4, 4);
	$indexslash = rindex($attachment, "/");
	$attachName = substr($attachment, $indexslash);
	my $extIndex = index($attachName, $ext);
	debug("addThumbLinkToBody ext: ".$ext."\n");
	debug("addThumbLinkToBody extIndex: ".$extIndex."\n");
	debug("addThumbLinkToBody attachment: ".$attachment."\n");
	$thumbName = substr($attachName, 0, $extIndex) ."T".$ext ;
	debug("addThumbLinkToBody attachName: ".$attachName."\n");
	debug("addThumbLinkToBody thumbName: ".$thumbName."\n");
	debug("addThumbLinkToBody adding link to txt: \n<br>
		<a href=\"$httpPath$pictureDirectory$currentDate$attachName\">\n
		<img src=\"$httpPath$pictureDirectory$currentDate$thumbName\" border=\"0\">\n</a>\n");
	print MAIL "\n<br><a href=\"$httpPath$pictureDirectory$currentDate$attachName\">\n
		<img src=\"$httpPath$pictureDirectory$currentDate$thumbName\" border=\"0\">\n</a><br>\n";
    }
    chmod (0555, "$blosxomRoot/$category/$filename.txt");
}

sub writeThumbnail {
    debug("writeThumbnail path to blosxom directory: ".$blosxomdir."\n");
    debug("writeThumbnail path to category: ".$blosxomdir.$category."\n");

    foreach $attachment (@attachments) {
	my $fullAttachmentPath = $pictureDirectory . $currentDate;
	debug("writeThumbnail attachment: ".$attachment."\n");
	debug("writeThumbnail pictureDirectory: ".$pictureDirectory."\n");
	debug("writeThumbnail fullAttachmentPath: ".$fullAttachmentPath."\n");
	my $ext =  substr($attachment, -4, 4);
	my $extIndex = index($attachment, $ext);
	debug("writeThumbnail extThumb: ".$ext."\n");
	debug("writeThumbnail extIndex: ".$extIndex."\n");
	$thumbName = substr($attachment, 0, $extIndex) ."T".$ext ;
	chomp($currentDate);
	debug("writeThumbnail thumbName: ".$thumbName."\n");
	`$pathToConvert -size 120X120 $attachment -resize 120X120 +profile '*' $thumbName`;
	chmod (0555, $attachment, $thumbName);

    }

    sub parseSubject {
	debug("parseSubject");
	@splitSubject = split(/\s+/, $subject);
	debug("parseSubject subject has " .$#splitSubject." parts: @splitSubject, $subject.\n");
	if ($splitSubject[0] eq "NewBlog") {
	    my $i = $#splitSubject;
	    for ($j = 0; $j <= $i; $j++) {
		debug("parseSubject splitSubject[".$j."] ".$splitSubject[$j]."\n" );
	    }

	    debug($splitSubject[0] ."    ".$splitSubject[1] ."\n");
	    $category = "/".$splitSubject[1];
	    my $categoryPath = $blosxomRoot.$category;
	    debug("parseSubject creating the category directory: ".$categoryPath."\n");

	    system("mkdir -p $categoryPath");

	    debug("parseSubject category: ".$category."\n");
	    debug("Path to category: ".$categoryPath."\n");
	    if ( -d "$categoryPath") {
		rename ($tempDir."/file.txt", "$categoryPath/$filename.txt") or die("Couldn't rename tempfile! $!\n");			    
	    }
	    else {
		debug("This directory doesn't exist!: ".$categoryPath."\n");
	    }

	    if (0 == $#splitSubject) {
		#$filename = $splitSubject[1];
		debug("parseSubject subject has one part\nRenaming temp file.\n");
		rename ($tempDir."/file.txt", "$blosxomRoot/$filename\.txt");
		$category = "";
		$category = "/".$splitSubject[1];
	    }
	}
	else {
	    print "Program exiting, unknown command $splitSubject[0]";
	    exit 0;
	}
    }


    sub writeMessage {
	
	my $explode = MIME::Explode->new(
					 output_dir => "$tempDir",
					 mkdir		=>	0555,
					 decode_subject	=> 1,
					 check_contect_type	=> 1,
					 exclude_types	=>[],
					 );

	debug("writeMessage opening temp file for maile /tmp/mailfile\n");
	open(MAIL, "</tmp/mailfile") or die("Couldn't open stdin: $!\n");

        #I'd really like to use STDIN here, but I can't get it to work.
	my $headers = $explode->parse(\*MAIL);
	debug("writeMessage parsed email\n");
	close(MAIL);

	getStuffFromEmail($headers);
	open (MAIL, ">>$blosxomRoot/$category/$filename.txt") or die("couldn't open $blosxomRoot/$category/$filename.txt because:\n $!\n");

    }

    sub getStuffFromEmail {
	my $headers = $_[0];
	debug("getStuffFromEmail");

	for my $part (sort{ $a cmp $b } keys(%{$headers})) {
	    for my $k (keys(%{$headers->{$part}})) {
		if(ref($headers->{$part}->{$k}) eq "ARRAY") {
		    for my $i (0 .. $#{$headers->{$part}->{$k}}) {
		    }
		} elsif(ref($headers->{$part}->{$k}) eq "HASH") {
		    for my $ks (keys(%{$headers->{$part}->{$k}})) {
			if(ref($headers->{$part}->{$k}->{$ks}) eq "ARRAY") {
			    if($k eq "subject") {
				if ($ks eq "value") {
				    $subject = join(($ks eq "charset") ? " " : "", @{$headers->{$part}->{$k}->{$ks}});
				    debug("getStuffFromEmail Got the subject: ".$subject."  Going to parse it\n");
				    parseSubject();
				}
			    }
			} else {
			    if($k eq "content-disposition") {
				debug("Found content-disposition: " .$k."\n");
				debug("getStuffFromEmail ks: " .${ks}."\n");
			    debug("getStuffFromEmail big ks is: " .$headers->{$part}->{$k}->{$ks}."\n");
			    if (${ks} eq "filename" && !($headers->{$part}->{$k}->{$ks} =~ /\.txt/)) {
			    debug("getStuffFromEmail filename is: " .${ks}."\n");
			push (@attachments, $imageRoot.$currentDate . "/". $headers->{$part}->{$k}->{$ks});
			debug("getStuffFromEmail pushed attachment: ". $imageRoot.$currentDate."/".$headers->{$part}->{$k}->{$ks}." into array\n"); 
			debug("getStuffFromEmail Attachment written to: " .$tempDir." named: ".$headers->{$part}->{$k}->{$ks}."\n");
			debug("getStuffFromEmail move attachment: ".$tempDir."/".$headers->{$part}->{$k}->{$ks}." to: ".$imageRoot.$currentDate."\n");
			rename ($tempDir."/".$headers->{$part}->{$k}->{$ks}, $imageRoot.$currentDate."/".$headers->{$part}->{$k}->{$ks});
			debug("getStuffFromEmail Moved attachment to: ".$imageRoot.$currentDate."\n");

		    }
		}
	    }
	}
    } else {
    }
}
}	
}
}