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
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
package RT;
use RT::Handle;
use RT::CurrentUser;
use strict;
use vars qw($VERSION $SystemUser $Nobody $Handle $Logger);
$VERSION = '!!RT_VERSION!!';
=head1 NAME
RT - Request Tracker
=head1 SYNOPSIS
A fully featured request tracker package
=head1 DESCRIPTION
=cut
sub Init {
#Get a database connection
$Handle = new RT::Handle($RT::DatabaseType);
$Handle->Connect();
#RT's system user is a genuine database user. its id lives here
$SystemUser = new RT::CurrentUser();
$SystemUser->LoadByName('RT_System');
#RT's "nobody user" is a genuine database user. its ID lives here.
$Nobody = new RT::CurrentUser();
$Nobody->LoadByName('Nobody');
InitLogging();
}
=head2 InitLogging
Create the RT::Logger object.
=cut
sub InitLogging {
# We have to set the record seperator ($, man perlvar)
# or Log::Dispatch starts getting
# really pissy, as some other module we use unsets it.
$, = '';
use Log::Dispatch 1.6;
use Log::Dispatch::File;
use Log::Dispatch::Screen;
$Logger=Log::Dispatch->new();
if ($RT::LogToFile) {
my $filename = $RT::LogToFileNamed || "$RT::LogDir/rt.log";
$Logger->add(Log::Dispatch::File->new
( name=>'rtlog',
min_level=> $RT::LogToFile,
filename=> $filename,
mode=>'append',
callbacks => sub {my %p=@_; return "[".gmtime(time)."] [".$p{level}."]: $p{message}\n"}
));
}
if ($RT::LogToScreen) {
$Logger->add(Log::Dispatch::Screen->new
( name => 'screen',
min_level => $RT::LogToScreen,
stderr => 1
));
}
# {{{ Signal handlers
## This is the default handling of warnings and die'ings in the code
## (including other used modules - maybe except for errors catched by
## Mason). It will log all problems through the standard logging
## mechanism (see above).
$SIG{__WARN__} = sub {$RT::Logger->warning($_[0])};
#When we call die, trap it and log->crit with the value of the die.
$SIG{__DIE__} = sub {
unless ($^S || !defined $^S ) {
$RT::Logger->crit("$_[0]");
exit(-1);
}
else {
#Get out of here if we're in an eval
die $_[0];
}
};
# }}}
}
# }}}
sub SystemUser {
return($SystemUser);
}
sub Nobody {
return ($Nobody);
}
=head2 DropSetGIDPermissions
Drops setgid permissions.
=cut
sub DropSetGIDPermissions {
# Now that we got the config read in, we have the database
# password and don't need to be setgid
# make the effective group the real group
$) = $(;
}
=head1 NAME
RT - Request Tracker
=head1 SYNOPSIS
=head1 BUGS
=head1 SEE ALSO
=begin testing
ok (require RT::TestHarness);
ok ($RT::Nobody->Name() eq 'Nobody', "Nobody is nobody");
ok ($RT::Nobody->Name() ne 'root', "Nobody isn't named root");
ok ($RT::SystemUser->Name() eq 'RT_System', "The system user is RT_System");
ok ($RT::SystemUser->Name() ne 'noname', "The system user isn't noname");
=end testing
=cut
1;
|
