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
|
# NOTE: Derived from blib/lib/Mail/Internet.pm.
# Changes made here will be lost when autosplit again.
# See AutoSplit.pm.
package Mail::Internet;
#line 655 "blib/lib/Mail/Internet.pm (autosplit into blib/lib/auto/Mail/Internet/nntppost.al)"
sub nntppost;
use Mail::Util qw(mailaddress);
use Net::NNTP;
use strict;
sub nntppost
{
my $mail = shift;
my %opt = @_;
my $groups = $mail->get('Newsgroups') || "";
my @groups = split(/[\s,]+/,$groups);
return ()
unless @groups;
my $hdr = $mail->head->dup;
_prephdr($hdr);
# Remove these incase the NNTP host decides to mail as well as me
$hdr->delete(qw(To Cc Bcc));
my $news;
my $noquit = 0;
my $host = $opt{Host};
if(ref($host) && UNIVERSAL::isa($host,'Net::NNTP')) {
$news = $host;
$noquit = 1;
}
else {
my @opt = ();
push(@opt, $opt{'Host'});
push(@opt, 'Port', $opt{'Port'})
if exists $opt{'Port'};
push(@opt, 'Debug', $opt{'Debug'})
if exists $opt{'Debug'};
$news = new Net::NNTP(@opt)
or return ();
}
$news->post(@{$hdr->header},"\n",@{$mail->body});
my $code = $news->code;
$news->quit
unless $noquit;
return 240 == $code ? @groups : ();
}
# end of Mail::Internet::nntppost
1;
|
