log.pl
changeset 93 99738e41fb16
parent 90 4e18894dec80
child 94 db34ca9992b0
equal deleted inserted replaced
92:a0e38ecba7fa 93:99738e41fb16
    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 package config {
    67 {
       
    68 
       
    69     package config; 
       
    70 
    68     # default values if not set in the config file
    71     # default values if not set in the config file
    69     our $db //= 1;
    72     our $db //= 1;
    70     our $logfile = "/root/LOG.$NODENAME";
    73     our $logfile = "/root/LOG.$NODENAME";
       
    74 
    71 }
    75 }
    72 
    76 
    73 my $opt_db      = $config::db;
    77 my $opt_db      = $config::db;
    74 my $opt_mail    = 1;
    78 my $opt_mail    = 1;
    75 my $opt_message = "";
    79 my $opt_message = "";