equal
deleted
inserted
replaced
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 = ""; |