Contents of /nanobloggermail/trunk/nb_mail

#!/usr/bin/perl

use strict;
use warnings;

# how are we called?
if (! $ARGV[0]) { print STDERR "Call as nb_mail \$blog_dir."; exit(1); }

my ($message, $msgstring);
my ($title, $cat, $body);
my ($blog_dir, $status);

# blog directory
$blog_dir = $ARGV[0]; 
chomp($blog_dir); 
$blog_dir =~ s/~/$ENV{HOME}/;
$blog_dir .= '/' if ($blog_dir !~ /.*\/$/);

# read mail from STDIN
if (!open(IN, '-')) { print STDERR "Could not read from STDIN: $!\n"; exit(1); }
my @message = <IN>;
close IN;

# create one string
foreach my $line (@message) {
  chomp($line);
  next if ($line =~/^$/);
  $msgstring .= $line;
}

# grep variables
($title, $cat, $body) = ($msgstring =~ /^.*TITLE:\s*(.+?)\s*CAT:\s*(.+?)\s*BODY:\s*(.+?)\s*$/);

#print "title: $title\n";
#print "cat: $cat\n";
#print "body: $body\n";


# call nb
umask 0002;
$status = system("PATH=\"/usr/local/bin:/usr/bin:/bin\" nb -b $blog_dir -c $cat -t \"$title\" -B \"$body\" -a");
if ($status != 0) { print STDERR "Error while executing nb: $?\n"; exit(1); }
print "$status\n";
exit (0);
1	#!/usr/bin/perl
2
3	use strict;
4	use warnings;
5
6	# how are we called?
7	if (! $ARGV[0]) { print STDERR "Call as nb_mail \$blog_dir."; exit(1); }
8
9	my ($message, $msgstring);
10	my ($title, $cat, $body);
11	my ($blog_dir, $status);
12
13	# blog directory
14	$blog_dir = $ARGV[0];
15	chomp($blog_dir);
16	$blog_dir =~ s/~/$ENV{HOME}/;
17	$blog_dir .= '/' if ($blog_dir !~ /.*\/$/);
18
19	# read mail from STDIN
20	if (!open(IN, '-')) { print STDERR "Could not read from STDIN: $!\n"; exit(1); }
21	my @message = <IN>;
22	close IN;
23
24	# create one string
25	foreach my $line (@message) {
26	chomp($line);
27	next if ($line =~/^$/);
28	$msgstring .= $line;
29	}
30
31	# grep variables
32	($title, $cat, $body) = ($msgstring =~ /^.TITLE:\s(.+?)\sCAT:\s(.+?)\sBODY:\s(.+?)\s*$/);
33
34	#print "title: $title\n";
35	#print "cat: $cat\n";
36	#print "body: $body\n";
37
38
39	# call nb
40	umask 0002;
41	$status = system("PATH=\"/usr/local/bin:/usr/bin:/bin\" nb -b $blog_dir -c $cat -t \"$title\" -B \"$body\" -a");
42	if ($status != 0) { print STDERR "Error while executing nb: $?\n"; exit(1); }
43	print "$status\n";
44	exit (0);