summaryrefslogtreecommitdiffstats
path: root/Bugzilla
diff options
context:
space:
mode:
Diffstat (limited to 'Bugzilla')
-rw-r--r--Bugzilla/Config/Advanced.pm2
-rw-r--r--Bugzilla/Error.pm14
-rw-r--r--Bugzilla/Install/Filesystem.pm2
-rw-r--r--Bugzilla/Sentry.pm (renamed from Bugzilla/Arecibo.pm)228
4 files changed, 121 insertions, 125 deletions
diff --git a/Bugzilla/Config/Advanced.pm b/Bugzilla/Config/Advanced.pm
index a5ae3048a..5e51fbecc 100644
--- a/Bugzilla/Config/Advanced.pm
+++ b/Bugzilla/Config/Advanced.pm
@@ -71,7 +71,7 @@ use constant get_param_list => (
},
{
- name => 'arecibo_server',
+ name => 'sentry_uri',
type => 't',
default => '',
},
diff --git a/Bugzilla/Error.pm b/Bugzilla/Error.pm
index e49f466d6..08978fa93 100644
--- a/Bugzilla/Error.pm
+++ b/Bugzilla/Error.pm
@@ -28,7 +28,7 @@ use base qw(Exporter);
@Bugzilla::Error::EXPORT = qw(ThrowCodeError ThrowTemplateError ThrowUserError ThrowErrorPage);
-use Bugzilla::Arecibo;
+use Bugzilla::Sentry;
use Bugzilla::Constants;
use Bugzilla::WebService::Constants;
use Bugzilla::Util;
@@ -110,9 +110,8 @@ sub _throw_error {
message => \$message });
if (Bugzilla->error_mode == ERROR_MODE_WEBPAGE) {
- if (arecibo_should_notify($vars->{error})) {
+ if (sentry_should_notify($vars->{error})) {
$vars->{maintainers_notified} = 1;
- $vars->{uid} = arecibo_generate_id();
$vars->{processed} = {};
} else {
$vars->{maintainers_notified} = 0;
@@ -123,8 +122,7 @@ sub _throw_error {
|| ThrowTemplateError($template->error());
if ($vars->{maintainers_notified}) {
- arecibo_handle_error(
- $vars->{error}, $vars->{processed}->{error_message}, $vars->{uid});
+ sentry_handle_error($vars->{error}, $vars->{processed}->{error_message});
}
}
elsif (Bugzilla->error_mode == ERROR_MODE_TEST) {
@@ -206,8 +204,7 @@ sub ThrowTemplateError {
$vars->{'template_error_msg'} = $template_err;
$vars->{'error'} = "template_error";
- $vars->{'uid'} = arecibo_generate_id();
- arecibo_handle_error('error', $template_err, $vars->{'uid'});
+ sentry_handle_error('error', $template_err);
$vars->{'template_error_msg'} =~ s/ at \S+ line \d+\.\s*$//;
my $template = Bugzilla->template;
@@ -218,7 +215,6 @@ sub ThrowTemplateError {
my $maintainer = html_quote(Bugzilla->params->{'maintainer'});
my $error = html_quote($vars->{'template_error_msg'});
my $error2 = html_quote($template->error());
- my $uid = html_quote($vars->{'uid'});
print <<END;
<tt>
<p>
@@ -232,7 +228,7 @@ sub ThrowTemplateError {
-->
<p>
The <a href="mailto:$maintainer">Bugzilla maintainers</a> have
- been notified of this error [#$uid].
+ been notified of this error.
</p>
</tt>
END
diff --git a/Bugzilla/Install/Filesystem.pm b/Bugzilla/Install/Filesystem.pm
index 86978163b..1abac0154 100644
--- a/Bugzilla/Install/Filesystem.pm
+++ b/Bugzilla/Install/Filesystem.pm
@@ -159,7 +159,7 @@ sub FILESYSTEM {
'runtests.pl' => { perms => OWNER_EXECUTE },
'jobqueue.pl' => { perms => OWNER_EXECUTE },
'migrate.pl' => { perms => OWNER_EXECUTE },
- 'arecibo.pl' => { perms => OWNER_EXECUTE },
+ 'sentry.pl' => { perms => OWNER_EXECUTE },
'install-module.pl' => { perms => OWNER_EXECUTE },
'Bugzilla.pm' => { perms => CGI_READ },
diff --git a/Bugzilla/Arecibo.pm b/Bugzilla/Sentry.pm
index 08ff11c20..e07c2eb44 100644
--- a/Bugzilla/Arecibo.pm
+++ b/Bugzilla/Sentry.pm
@@ -5,66 +5,34 @@
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-package Bugzilla::Arecibo;
+package Bugzilla::Sentry;
use strict;
use warnings;
use base qw(Exporter);
our @EXPORT = qw(
- arecibo_handle_error
- arecibo_generate_id
- arecibo_should_notify
+ sentry_handle_error
+ sentry_should_notify
);
use Apache2::Log;
use Apache2::SubProcess;
use Carp;
use Data::Dumper;
-use Email::Date::Format qw(email_gmdate);
+use DateTime;
use File::Temp;
use LWP::UserAgent;
use Sys::Hostname;
+use URI;
use Bugzilla::Constants;
+use Bugzilla::RNG qw(irand);
use Bugzilla::Util;
use Bugzilla::WebService::Constants;
use constant CONFIG => {
- # 'types' maps from the error message to types and priorities
- types => [
- {
- type => 'the_schwartz',
- boost => -10,
- match => [
- qr/TheSchwartz\.pm/,
- ],
- },
- {
- type => 'database_error',
- boost => -10,
- match => [
- qr/DBD::mysql/,
- qr/Can't connect to the database/,
- ],
- },
- {
- type => 'patch_reader',
- boost => +5,
- match => [
- qr#/PatchReader/#,
- ],
- },
- {
- type => 'uninitialized_warning',
- boost => 0,
- match => [
- qr/Use of uninitialized value/,
- ],
- },
- ],
-
- # 'codes' lists the code-errors which are sent to arecibo
+ # 'codes' lists the code-errors which are sent to sentry
codes => [qw(
bug_error
chart_datafile_corrupt
@@ -78,32 +46,58 @@ use constant CONFIG => {
token_generation_error
)],
- # any error messages matching these regex's will not be sent to arecibo
+ # any error messages matching these regex's will not be sent to sentry
ignore => [
qr/Software caused connection abort/,
qr/Could not check out .*\/cvsroot/,
],
+
+ # (ab)use the logger to classify error/warning types
+ logger => [
+ {
+ match => [
+ qr/DBD::mysql/,
+ qr/Can't connect to the database/,
+ ],
+ logger => 'database_error',
+ },
+ {
+ match => [ qr#/PatchReader/# ],
+ logger => 'patchreader',
+ },
+ {
+ match => [ qr/Use of uninitialized value/ ],
+ logger => 'uninitialized_warning',
+ },
+ ],
};
-sub arecibo_generate_id {
- return sprintf("%s.%s", (time), $$);
+sub sentry_generate_id {
+ return sprintf('%04x%04x%04x%04x%04x%04x%04x%04x',
+ irand(0xffff), irand(0xffff),
+ irand(0xffff),
+ irand(0x0fff) | 0x4000,
+ irand(0x3fff) | 0x8000,
+ irand(0xffff), irand(0xffff), irand(0xffff)
+ );
}
-sub arecibo_should_notify {
+sub sentry_should_notify {
my $code_error = shift;
- return grep { $_ eq $code_error } @{CONFIG->{codes}};
+ return grep { $_ eq $code_error } @{ CONFIG->{codes} };
}
-sub arecibo_handle_error {
- my $class = shift;
+sub sentry_handle_error {
+ my $level = shift;
my @message = split(/\n/, shift);
- my $id = arecibo_generate_id();
+ my $id = sentry_generate_id();
- my $is_error = $class eq 'error';
- if ($class ne 'error' && $class ne 'warning') {
+ my $is_error = $level eq 'error';
+ if ($level ne 'error' && $level ne 'warning') {
# it's a code-error
- return 0 unless arecibo_should_notify($class);
+ return 0 unless sentry_should_notify($level);
$is_error = 1;
+ $level = 'error';
}
# build traceback
@@ -115,9 +109,9 @@ sub arecibo_handle_error {
#local $Carp::MaxArgNums = 0;
local $Carp::MaxArgNums = -1;
local $Carp::CarpInternal{'CGI::Carp'} = 1;
- local $Carp::CarpInternal{'Bugzilla::Error'} = 1;
- local $Carp::CarpInternal{'Bugzilla::Arecibo'} = 1;
- $traceback = Carp::longmess();
+ local $Carp::CarpInternal{'Bugzilla::Error'} = 1;
+ local $Carp::CarpInternal{'Bugzilla::Sentry'} = 1;
+ $traceback = trim(Carp::longmess());
}
# strip timestamp
@@ -126,85 +120,91 @@ sub arecibo_handle_error {
}
my $message = join(" ", map { trim($_) } grep { $_ ne '' } @message);
- # don't send to arecibo unless configured
- my $arecibo_server = Bugzilla->params->{arecibo_server} || '';
- my $send_to_arecibo = $arecibo_server ne '';
+ # determine logger
+ my $logger;
+ foreach my $config (@{ CONFIG->{logger} }) {
+ foreach my $re (@{ $config->{match} }) {
+ if ($message =~ $re) {
+ $logger = $config->{logger};
+ last;
+ }
+ }
+ last if $logger;
+ }
+ $logger ||= $level;
+
+ # don't send to sentry unless configured
+ my $send_to_sentry = Bugzilla->params->{sentry_uri} ? 1 : 0;
# web service filtering
- if ($send_to_arecibo
+ if ($send_to_sentry
&& (Bugzilla->error_mode == ERROR_MODE_DIE_SOAP_FAULT || Bugzilla->error_mode == ERROR_MODE_JSON_RPC))
{
my ($code) = $message =~ /^(-?\d+): /;
if ($code
&& !($code == ERROR_UNKNOWN_FATAL || $code == ERROR_UNKNOWN_TRANSIENT))
{
- $send_to_arecibo = 0;
+ $send_to_sentry = 0;
}
}
# message content filtering
- if ($send_to_arecibo) {
- foreach my $re (@{CONFIG->{ignore}}) {
+ if ($send_to_sentry) {
+ foreach my $re (@{ CONFIG->{ignore} }) {
if ($message =~ $re) {
- $send_to_arecibo = 0;
+ $send_to_sentry = 0;
last;
}
}
}
+ # for now, don't send patchreader errors to sentry
+ $send_to_sentry = 0
+ if $logger eq 'patchreader';
+
# log to apache's error_log
- if ($send_to_arecibo) {
- $message .= " [#$id]";
+ if ($send_to_sentry) {
+ _write_to_error_log("$message [#$id]", $is_error);
} else {
$traceback =~ s/\n/ /g;
- $message .= " $traceback";
+ _write_to_error_log("$message $traceback", $is_error);
}
- _write_to_error_log($message, $is_error);
- return 0 unless $send_to_arecibo;
+ return 0 unless $send_to_sentry;
- # set the error type and priority from the message content
- $message = join("\n", grep { $_ ne '' } @message);
- my $type = '';
- my $priority = $class eq 'error' ? 3 : 10;
- foreach my $rh_type (@{CONFIG->{types}}) {
- foreach my $re (@{$rh_type->{match}}) {
- if ($message =~ $re) {
- $type = $rh_type->{type};
- $priority += $rh_type->{boost};
- last;
- }
+ my $user_data = undef;
+ eval {
+ my $user = Bugzilla->user;
+ if ($user->id) {
+ $user_data = {
+ id => $user->login,
+ name => $user->name,
+ };
}
- last if $type ne '';
- }
- $type ||= $class;
- $priority = 1 if $priority < 1;
- $priority = 10 if $priority > 10;
-
- my $username = '';
- eval { $username = Bugzilla->user->login };
+ };
- my $request = '';
- foreach my $name (sort { lc($a) cmp lc($b) } keys %ENV) {
- $request .= "$name=$ENV{$name}\n";
- }
- chomp($request);
-
- my $data = [
- ip => remote_ip(),
- msg => $message,
- priority => $priority,
- server => hostname(),
- request => $request,
- status => '500',
- timestamp => email_gmdate(),
- traceback => $traceback,
- type => $type,
- uid => $id,
- url => Bugzilla->cgi->self_url,
- user_agent => $ENV{HTTP_USER_AGENT},
- username => $username,
- ];
+ my $uri = URI->new(Bugzilla->cgi->self_url);
+ $uri->query(undef);
+
+ my $data = {
+ event_id => $id,
+ message => $message,
+ timestamp => DateTime->now->iso8601(),
+ level => $level,
+ platform => 'Other',
+ logger => $logger,
+ server_name => hostname(),
+ 'sentry.interfaces.User' => $user_data,
+ 'sentry.interfaces.Http' => {
+ url => $uri->as_string,
+ method => $ENV{REQUEST_METHOD},
+ query_string => $ENV{QUERY_STRING},
+ env => \%ENV,
+ },
+ extra => {
+ stacktrace => $traceback,
+ },
+ };
my $fh = File::Temp->new( UNLINK => 0 );
if (!$fh) {
@@ -215,7 +215,7 @@ sub arecibo_handle_error {
close($fh) or die $!;
my $filename = $fh->filename;
- my $command = bz_locations()->{'cgi_path'} . "/arecibo.pl '$filename' &";
+ my $command = bz_locations()->{'cgi_path'} . "/sentry.pl '$filename' &";
system($command);
return 1;
}
@@ -244,14 +244,14 @@ sub _in_eval {
return $in_eval;
}
-sub _arecibo_die_handler {
+sub _sentry_die_handler {
my $message = shift;
$message =~ s/^undef error - //;
# avoid recursion, and check for CGI::Carp::die failures
my $in_cgi_carp_die = 0;
for (my $stack = 1; my $sub = (caller($stack))[3]; $stack++) {
- return if $sub =~ /:_arecibo_die_handler$/;
+ return if $sub =~ /:_sentry_die_handler$/;
$in_cgi_carp_die = 1 if $sub =~ /CGI::Carp::die$/;
}
@@ -274,7 +274,7 @@ sub _arecibo_die_handler {
$in_cgi_carp_die ||
($nested_error && $nested_error !~ /\bModPerl::Util::exit\b/)
) {
- arecibo_handle_error('error', $message);
+ sentry_handle_error('error', $message);
# and call the normal error management
# (ISE for web pages, error response for web services, etc)
@@ -283,18 +283,18 @@ sub _arecibo_die_handler {
exit;
}
-sub install_arecibo_handler {
+sub install_sentry_handler {
require CGI::Carp;
- CGI::Carp::set_die_handler(\&_arecibo_die_handler);
+ CGI::Carp::set_die_handler(\&_sentry_die_handler);
$main::SIG{__WARN__} = sub {
return if _in_eval();
- arecibo_handle_error('warning', shift);
+ sentry_handle_error('warning', shift);
};
}
BEGIN {
if ($ENV{SCRIPT_NAME} || $ENV{MOD_PERL}) {
- install_arecibo_handler();
+ install_sentry_handler();
}
}