thh/huhu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Initial checkin.

Browse source 
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2022-01-29 10:22:11 +01:00
commit 30132626b8
68 changed files with 5497 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

154
bin/read-mail.pl Normal file
View file

@ -0,0 +1,154 @@
#!/usr/bin/perl -ws
######################################################################
#
# $Id: read-mail.pl 306 2012-01-31 16:59:35Z root $
#
# Copyright 2009 Alexander Bartolich
#
# This program 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.
#
######################################################################
use strict;
use warnings;
use Carp qw(confess);
use News::Article();
use MOD::Utils();
use MOD::ReadMail();
######################################################################
sub parse_text($)
######################################################################
{
my $text = shift || confess;
my $article = News::Article->new($text);
if (!$article)
{
print STDERR "Error: Parsing mail with News::Article failed.\n";
return undef;
}
my $bytes = $article->bytes();
if ($bytes <= 2)
{
print STDERR "Error: Article too small, bytes=$bytes\n";
return undef;
}
return $article;
}
######################################################################
sub skip_empty_lines($$$)
######################################################################
{
my ($body, $start, $stop) = @_;
my @result;
push(@result, $body->[$start - 1]) if ($start > 0);
for(my $i = $start; $i <= $stop; $i += 2)
{
if (length($body->[$i]) != 0)
{
printf STDERR "check_for_empty_lines i=%d %s\n", $i, $body->[$i];
return undef;
}
push @result, $body->[$i + 1];
}
return \@result;
}
######################################################################
sub test_article($$$)
######################################################################
{
my ($rm, $article, $filename) = @_;
my $lines = $article->header('Lines');
if (!$lines)
{
printf STDERR "Warning: No Lines header.\n";
return 0;
}
my @body = $article->body();
my $delta = $lines * 2 - $#body;
if (abs($delta) <= 2)
{
print $filename, "\n";
printf "body: %d\n", $#body;
printf "Lines: %d\n", $article->header('Lines');
my $new_body = skip_empty_lines(\@body, 1, $#body);
if (!$new_body)
{
$new_body = skip_empty_lines(\@body, 0, $#body);
return 0 if (!$new_body);
}
printf "new_body=%d\n", $#$new_body;
print join("\n", @$new_body);
}
return 0;
}
######################################################################
sub process_text($$$)
######################################################################
{
my ($rm, $article, $filename) = @_;
my $rc = eval { $rm->add_article($article, $::status); };
if ($@)
{
print STDERR "add_article failed, $@\n";
return 0;
}
if (!$rc)
{
printf STDERR "add_article(%s) failed, rc=%s\n",
$::status ? $::status : '',
$rc;
return 0;
}
}
######################################################################
# MAIN
######################################################################
die 'Argument -config=file missing' unless($::config);
$::status = undef unless($::status); # to suppress warning
$::stdin = undef unless($::stdin); # to suppress warning
my %config = MOD::Utils::read_private_config($::config);
my $rm = MOD::ReadMail->new(\%config);
my $fn = $::test ? \&test_article : \&process_text;
if ($::stdin)
{
my $text = do { local $/; <STDIN>; };
die "Error: No data on stdin" unless ($text);
my $article = parse_text(\$text) || exit(1);
$fn->($rm, $article, '<STDIN>');
}
else
{
for my $name(@ARGV)
{
my $file;
open($file, '<', $name) || die "Error: Can't open $name\n$!";
my $text = do { local $/; <$file>; };
close($file);
my $article = parse_text(\$text) || next;
$fn->($rm, $article, $name);
}
}
######################################################################