httemplate/search/log.html

   1 <& elements/search.html,
   2   'title'         => 'System Log',
   3   'name_singular' => 'event',
   4   'menubar'       => \@menubar,
   5   'html_init'     => include('.head'),
   6   'query'         => $query,
   7   'count_query'   => $count_query,
   8   'header'        => [ #'#', # lognum, probably not useful
   9                        'Date',
  10                        'Level',
  11                        'Context',
  12                        'Applies To',
  13                        'Message',
  14                      ],
  15   'fields'        => [ #'lognum',
  16                        $date_sub,
  17                        $level_sub,
  18                        $context_sub,
  19                        $object_sub,
  20                        $message_sub,
  21                      ],
  22   'sort_fields'   => [
  23                        '_date',
  24                        'level',
  25                        '',
  26                        'tablename,tablenum',
  27                        'message',
  28                      ],
  29   'links'         => [
  30                        '', #date
  31                        '', #level
  32                        '', #context
  33                        $object_link_sub,
  34                        '', #message
  35                      ],
  36   'tooltips'      => [
  37                        '', #date
  38                        '', #level
  39                        $tt_sub,
  40                        '', #object
  41                        $tt_sub,
  42                      ],
  43   'color'         => [
  44                        $color_sub,
  45                        $color_sub,
  46                        '',
  47                        '',
  48                        '',
  49                      ],
  50   # aligns
  51   'download_label' => 'Download this log',
  52 &>\
  53 <%def .head>
  54 <STYLE type="text/css">
  55 a:link    {text-decoration: none}
  56 a:visited {text-decoration: none}
  57 .tooltip {
  58   background-color: #ffffff;
  59   font-size: 100%;
  60   font-weight: bold;
  61 }
  62 </STYLE>
  63 <FORM ACTION="<%$p%>search/log.html" METHOD="GET">
  64 <TABLE CELLSPACING="10">
  65 <TR>
  66   <TD>From
  67     <& /elements/input-date-field.html, {
  68       name => 'beginning',
  69       value => $cgi->param('beginning'),
  70     } &>
  71   </TD>
  72   <TD>To
  73     <& /elements/input-date-field.html, {
  74       name => 'ending',
  75       value => $cgi->param('ending') || '',
  76       noinit => 1,
  77     } &>
  78   </TD>
  79 </TR>
  80 <TR>
  81   <TD>Level
  82     <& /elements/select.html,
  83       field => 'min_level',
  84       options => [ 0..7 ],
  85       labels => { map {$_ => $FS::Log::LEVELS[$_]} 0..7 },
  86       curr_value => $cgi->param('min_level'),
  87     &>
  88      to
  89     <& /elements/select.html,
  90       field => 'max_level',
  91       options => [ 0..7 ],
  92       labels => { map {$_ => $FS::Log::LEVELS[$_]} 0..7 },
  93       curr_value => $cgi->param('max_level'),
  94     &>
  95   </TD>
  96   <TD>
  97     Context
  98     <& /elements/select.html,
  99       field  => 'context',
 100       options => \@contexts,
 101       labels => { map {$_, $_} @contexts },
 102       curr_value => ($cgi->param('context') || ''),
 103     &>
 104     <BR><& /elements/checkbox.html,
 105       'field' => 'context_height',
 106       'postfix' => 'Only match most specific context',
 107       'value' => 1,
 108       'curr_value' => scalar($cgi->param('context_height')),
 109     &>
 110   </TD>
 111 </TR>
 112 <TR>
 113   <TD COLSPAN=2>
 114     Containing text
 115       <& /elements/input-text.html,
 116         field => 'message',
 117         size => 30,
 118         size => 30,
 119         curr_value => ($cgi->param('message') || ''),
 120       &>
 121     <DIV STYLE="display:inline; float:right">
 122       <INPUT TYPE="submit" VALUE="Refresh">
 123     </DIV>
 124   </TD>
 125 </TR>
 126 </TABLE>
 127 </%def>
 128 <%once>
 129 my $date_sub = sub { time2str('%Y-%m-%d %T', $_[0]->_date) };
 130
 131 my $level_sub = sub { $FS::Log::LEVELS[$_[0]->level] };
 132
 133 my $context_sub = sub {
 134   my $log = shift;
 135   ($log->context)[-1] . (scalar($log->context) > 1 ? '...' : '') ;
 136   # XXX find a way to make this use less space (dropdown?)
 137 };
 138
 139 my $tt_sub = sub {
 140   my $log = shift;
 141   my @context = $log->context;
 142   # don't create a tooltip if there's only one context entry and the
 143   # message isn't cut off
 144   return '' if @context == 1 and length($log->message) <= 60;
 145   my $html = '<DIV CLASS="tooltip">'.(shift @context).'</DIV>';
 146   my $pre = '&#8627;';
 147   foreach (map encode_entities($_), @context, $log->message) {
 148     $html .= "<DIV>$pre$_</DIV>";
 149     $pre = '&nbsp;&nbsp;&nbsp;'.$pre;
 150   }
 151   $html;
 152 };
 153
 154 my $object_sub = sub {
 155   my $log = shift;
 156   return '' unless $log->tablename;
 157   # this is a sysadmin log; anyone reading it should be able to understand
 158   # 'cust_main #2319' with no trouble.
 159   $log->tablename . ' #' . $log->tablenum;
 160 };
 161
 162 my $message_sub = sub {
 163   my $log = shift;
 164   my $message = $log->message;
 165   if ( length($message) > 60 ) { # pretty arbitrary
 166     $message = substr($message, 0, 57) . '...';
 167   }
 168   $message;
 169 };
 170
 171 my $object_link_sub = sub {
 172   my $log = shift;
 173   my $table = $log->tablename or return;
 174   # sigh
 175   if ( grep {$_ eq $table} (qw( cust_bill cust_main cust_pkg cust_svc ))
 176        or $table =~ /^svc_/ )
 177   {
 178
 179     return [ $fsurl.'view/'.$table.'.cgi?'. $log->tablenum ];
 180
 181   } elsif ( grep {$_ eq $table} (qw( cust_msg cust_pay cust_pay_void
 182                                      cust_refund cust_statement )) )
 183   {
 184
 185     return [ $fsurl.'view/'.$table.'.html?', $log->tablenum ];
 186
 187   } else { # you're on your own
 188
 189     return '';
 190
 191   }
 192 };
 193
 194 my @colors = (
 195   '404040', #debug
 196   '0000aa', #info
 197   '00aa00', #notice
 198   'aa0066', #warning
 199   '000000', #error
 200   'aa0000', #critical
 201   'ff0000', #alert
 202   'ff0000', #emergency
 203 );
 204
 205 my $color_sub = sub { $colors[ $_[0]->level ]; };
 206
 207 my @contexts = ('', sort FS::log_context->contexts);
 208 </%once>
 209 <%init>
 210 my $curuser = $FS::CurrentUser::CurrentUser;
 211 die "access denied"
 212   unless $curuser->access_right([ 'View system logs', 'Configuration' ]);
 213
 214 my @menubar = ();
 215 push @menubar, qq(<A HREF="${fsurl}browse/log_email.html" STYLE="text-decoration: underline;">Configure conditions for sending email when logging</A>),
 216
 217 $cgi->param('min_level', 0) unless defined($cgi->param('min_level'));
 218 $cgi->param('max_level', 7) unless defined($cgi->param('max_level'));
 219
 220 my %search = ();
 221 $search{'date'} = [ FS::UI::Web::parse_beginning_ending($cgi) ];
 222 $search{'level'} = [ $cgi->param('min_level'), $cgi->param('max_level') ];
 223 foreach my $param (qw(agentnum context context_height tablename tablenum custnum message)) {
 224   if ( $cgi->param($param) ) {
 225     $search{$param} = $cgi->param($param);
 226   }
 227 }
 228 my $query = FS::log->search(\%search); # validates everything
 229 my $count_query = delete $query->{'count_query'};
 230
 231 </%init>