log.pl
changeset 94 db34ca9992b0
parent 93 99738e41fb16
child 97 fdc9e4dd17f6
equal deleted inserted replaced
93:99738e41fb16 94:db34ca9992b0
    62 
    62 
    63 my $EDITOR   = $ENV{VISUAL} || $ENV{EDITOR} || "vim";
    63 my $EDITOR   = $ENV{VISUAL} || $ENV{EDITOR} || "vim";
    64 my $MAGIC    = "#--- all changes below are ignored ---#\n";
    64 my $MAGIC    = "#--- all changes below are ignored ---#\n";
    65 my $NODENAME = (split /\./, hostname)[0];
    65 my $NODENAME = (split /\./, hostname)[0];
    66 
    66 
    67 {
    67 package config {
    68 
       
    69     package config; 
       
    70 
       
    71     # default values if not set in the config file
    68     # default values if not set in the config file
    72     our $db //= 1;
    69     our $db //= 1;
    73     our $logfile = "/root/LOG.$NODENAME";
    70     our $logfile = "/root/LOG.$NODENAME";
    74 
       
    75 }
    71 }
    76 
    72 
    77 my $opt_db      = $config::db;
    73 my $opt_db      = $config::db;
    78 my $opt_mail    = 1;
    74 my $opt_mail    = 1;
    79 my $opt_message = "";
    75 my $opt_message = "";