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 { |
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 = ""; |