equal
deleted
inserted
replaced
65 my $NODENAME = (split /\./, hostname)[0]; |
65 my $NODENAME = (split /\./, hostname)[0]; |
66 |
66 |
67 package config { |
67 package config { |
68 # default values if not set in the config file |
68 # default values if not set in the config file |
69 our $db //= 1; |
69 our $db //= 1; |
70 our $logfile = "/root/LOG.$NODENAME"; |
70 our $logfile //= "/root/LOG.$NODENAME"; |
71 } |
71 } |
72 |
72 |
73 my $opt_db = $config::db; |
73 my $opt_db = $config::db; |
74 my $opt_mail = 1; |
74 my $opt_mail = 1; |
75 my $opt_message = ""; |
75 my $opt_message = ""; |