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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
# --
# Kernel/System/Crypt.pm - the main crypt module
# Copyright (C) 2001-2004 Martin Edenhofer <martin+code@otrs.org>
# --
# $Id: Crypt.pm,v 1.5 2004/09/20 19:20:50 martin Exp $
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (GPL). If you
# did not receive this file, see http://www.gnu.org/licenses/gpl.txt.
# --
package Kernel::System::Crypt;
use strict;
use Kernel::System::FileTemp;
use vars qw($VERSION @ISA);
$VERSION = '$Revision: 1.5 $';
$VERSION =~ s/^.*:\s(\d+\.\d+)\s.*$/$1/;
=head1 NAME
Kernel::System::Crypt - the crypt module
=head1 SYNOPSIS
All functions to encrypt/decrypt/sign and verify emails.
For backend module info see Kernel::System::Crypt::PGP and
Kernel::System::Crypt::SMIME.
=head1 PUBLIC INTERFACE
=over 4
=cut
=item new()
create new object
use Kernel::Config;
use Kernel::System::Log;
use Kernel::System::DB;
use Kernel::System::Crypt;
my $ConfigObject = Kernel::Config->new();
my $LogObject = Kernel::System::Log->new(
ConfigObject => $ConfigObject,
);
my $DBObject = Kernel::System::DB->new(
ConfigObject => $ConfigObject,
LogObject => $LogObject,
);
my $CryptObject = Kernel::System::Crypt->new(
DBObject => $DBObject,
ConfigObject => $ConfigObject,
LogObject => $LogObject,
CryptType => 'PGP', # PGP or SMIME
);
=cut
sub new {
my $Type = shift;
my %Param = @_;
# allocate new hash for object
my $Self = {};
bless ($Self, $Type);
$Self->{Debug} = $Param{Debug} || 0;
# get needed opbjects
foreach (qw(ConfigObject LogObject DBObject CryptType)) {
$Self->{$_} = $Param{$_} || die "Got no $_!";
}
# check if module is enabled
if (!$Self->{ConfigObject}->Get($Param{CryptType})) {
return;
}
# create file template object
$Self->{FileTempObject} = Kernel::System::FileTemp->new(%Param);
# load generator crypt module
$Self->{GenericModule} = "Kernel::System::Crypt::$Param{CryptType}";
if (!eval "require $Self->{GenericModule}") {
die "Can't load crypt backend module $Self->{GenericModule}! $@";
}
# add generator crypt functions
@ISA = ("$Self->{GenericModule}");
# call init()
$Self->Init();
return $Self;
}
1;
=head1 TERMS AND CONDITIONS
This software is part of the OTRS project (http://otrs.org/).
This software comes with ABSOLUTELY NO WARRANTY. For details, see
the enclosed file COPYING for license information (GPL). If you
did not receive this file, see http://www.gnu.org/licenses/gpl.txt.
=cut
=head1 VERSION
$Revision: 1.5 $ $Date: 2004/09/20 19:20:50 $
=cut
|
