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
|
package Echolot::Tools;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
# $Id: Tools.pm,v 1.1 2002/06/05 04:05:40 weasel Exp $
#
=pod
=head1 Name
Echolot::Tools - Tools for echolot
=head1 DESCRIPTION
=cut
use strict;
use warnings;
use Carp qw{cluck};
use Digest::MD5 qw{};
use Mail::Internet;
sub hash($) {
my ($data) = @_;
($data) = $data =~ m/(.*)/s; # untaint
my $hash = Digest::MD5::md5_hex($data);
return $hash;
};
sub make_random($;%) {
my ($length, %args) = @_;
my $random;
open (FH, Echolot::Config::get()->{'dev_random'}) or
cluck("Cannot open ".Echolot::Config::get()->{'dev_random'}." for reading: $!"),
return 0;
read(FH, $random, $length) or
cluck("Cannot read from ".Echolot::Config::get()->{'dev_random'}.": $!"),
return 0;
close (FH) or
cluck("Cannot close ".Echolot::Config::get()->{'dev_random'}.": $!"),
return 0;
$random = unpack('H*', $random)
if ($args{'armor'} == 1);
return $random;
};
sub send_message(%) {
my (%args) = @_;
defined($args{'To'}) or
cluck ('No recipient address given'),
return 0;
$args{'Subject'} = '' unless (defined $args{'Subject'});
$args{'Body'} = '' unless (defined $args{'Body'});
if (defined $args{'Token'}) {
my $token = $args{'Token'}.'='.time();
my $hash = hash($token . Echolot::Globals::get()->{'storage'}->get_secret() );
my $cut_hash = substr($hash, 0, Echolot::Config::get()->{'hash_len'});
my $complete_token = $token.'='.$cut_hash;
$args{'From'} =
Echolot::Config::get()->{'my_localpart'}.
Echolot::Config::get()->{'recipient_delimiter'}.
$complete_token.
'@'.
Echolot::Config::get()->{'my_domain'};
} else {
$args{'From'} =
Echolot::Config::get()->{'my_localpart'}.
'@'.
Echolot::Config::get()->{'my_domain'};
};
$args{'Subject'} = 'none' unless (defined $args{'Subject'});
my $message = "To: $args{'To'}\n";
$message .= "From: $args{'From'}\n";
$message .= "Subject: $args{'Subject'}\n";
$message .= "\n".$args{'Body'};
my @lines = split (/\n/, $message);
my $mail = new Mail::Internet ( \@lines );
$mail->smtpsend( Host => Echolot::Config::get()->{'smarthost'} );
};
1;
# vim: set ts=4 shiftwidth=4:
|
