/usr/share/doc/claws-mail/tools/claws-mail-compose-insert-files.pl is in claws-mail-tools 3.9.3-1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 | #!/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;
}
|