File: log_test

package info (click to toggle)
adduser 3.153
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,560 kB
  • sloc: perl: 9,407; sh: 189; makefile: 22
file content (16 lines) | stat: -rwxr-xr-x 392 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/perl

use warnings;
use strict;
use Debian::AdduserLogging;

set_msglevel( "error", "warn", "info");

my $message = "this is the message";
log_trace("mtest trace message: %s", "test string");
log_debug("mtest debug message");
log_info("mtest info message");
log_warn("mtest warn message");
log_err("mtest err message: %s postmessage", $message);
log_fatal("mtest fatal message");