File: debug.mpi

package info (click to toggle)
madoka 4.1.15-1
  • links: PTS
  • area: main
  • in suites: potato
  • size: 792 kB
  • ctags: 43
  • sloc: perl: 1,140; makefile: 42
file content (37 lines) | stat: -rw-r--r-- 824 bytes parent folder | download 
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
 
# madoka 4.1 debug
#
# debug.mpi
#    Copyright(c)1998- cookie / The madoka project
#

&list_add($plugin_list, 'debug');

$log_name{'D'} = 'dbg%M%D';
$log_handle{'D'} = 'L2';
$log_file{'D'} = '';
$debug = 1;

sub cl_debug {
  local($n, $cl_no) = @_;
  if ($n eq '1' && $debug == 0) {
    $debug = 1;
    $log_handle{'D'} = 'L2';
    $log_name{'D'} = 'dbg%M%D';
    &current_time;
    &log_open('D');
    chmod($log_mode, $log_file{'D'});
    printf L2 "%04d/%02d/%02d %02d:%02d:%02d\n", $year, $mon, $mday, $hour, $min, $sec;
    close(L2);
  } elsif ($n eq '0' && $debug == 1) {
    $debug = 0;
    delete $log_handle{'D'};
    delete $log_name{'D'};
  }
  &send('cl', "NOTICE $us_nick :debug: $debug\n");
}
sub cl_print {
  local($com, $cl_no) = @_;
  local($pr) = eval($com);
  &send('cl', "NOTICE $us_nick : $pr\n");
}