claws-mail/tools/claws-mail-compose-insert-files.pl

#!/usr/bin/perl -w

use strict;

use Getopt::Long;
use URI::Escape;

#  * This file is free software; you can redistribute it and/or modify it
#  * under the terms of the GNU General Public License as published by
#  * the Free Software Foundation; either version 3 of the License, or
#  * (at your option) any later version.
#  *
#  * This program is distributed in the hope that it will be useful, but
#  * WITHOUT ANY WARRANTY; without even the implied warranty of
#  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
#  * General Public License for more details.
#  *
#  * You should have received a copy of the GNU General Public License
#  * along with this program; if not, write to the Free Software
#  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
#  *
#  * Copyright 2007 Paul Mangan <paul@claws-mail.org>
#  *

# This script enables inserting files into the message body of a new Claws Mail
# Compose window from the command line. Additionally To, Cc, Bcc, Subject and
# files to attach to the message can be specified 

my (@inserts,@attachments,@lines,@output) = ();
my $body = "";
my $attach_list = "";
my $to = "";
my $cc = "";
my $bcc = "";
my $subject = "";
my $help = "";

GetOptions("to=s"      => \$to,
	   "cc=s"      => \$cc,
	   "bcc=s"     => \$bcc,
	   "subject=s" => \$subject,
	   "attach=s"  => \@attachments,
	   "insert=s"  => \@inserts,
	   "help|h"    => \$help);

if ($help) {
	help_me();
}

@attachments = split(/,/, join(',', @attachments));
@inserts = split(/,/, join(',', @inserts));

foreach my $attach (@attachments) {
	$attach_list .= "$attach ";
}

foreach my $insert (@inserts) {
	open(FILE, "<$insert") || die("can't open file\n");
		@lines = <FILE>;
		push(@output, @lines);
	close FILE;
}

foreach my $line (@output) {
	$body .= "$line";
}

$to = uri_escape($to);
$cc = uri_escape($cc);
$bcc = uri_escape($bcc);
$subject = uri_escape($subject);
$body = uri_escape($body);

system("claws-mail --compose \"mailto:$to?subject=$subject&cc=$cc&bcc=$bcc&body=$body\" --attach $attach_list");

exit;

sub help_me {
	print<<'EOH';
Usage:	
	claws-mail-compose-insert-files.pl [options]
Options:
	--help -h
	--to "Person One <mail@address.net>"
	--cc "Person One <mail@address.net>"
	--bcc "Person One <mail@address.net>"
	--subject "My subject"
	--attach FILE
	--insert FILE

For multiple recipients separate the addresses with ','
e.g. --to "Person One <mail@address.net>,Person Two <mail2@address.net>"
--attach and --insert can be used multiple times

EOH
exit;
}