equal
deleted
inserted
replaced
37 use Logbuch::HG; |
37 use Logbuch::HG; |
38 |
38 |
39 use lib "/etc/logbuch"; |
39 use lib "/etc/logbuch"; |
40 use config; |
40 use config; |
41 |
41 |
|
42 |
42 # print @config::mailto, "\n"; |
43 # print @config::mailto, "\n"; |
43 |
44 |
44 #+-------+---------------+------+-----+---------+----------------+ |
45 #+-------+---------------+------+-----+---------+----------------+ |
45 #| Field | Type | Null | Key | Default | Extra | |
46 #| Field | Type | Null | Key | Default | Extra | |
46 #+-------+---------------+------+-----+---------+----------------+ |
47 #+-------+---------------+------+-----+---------+----------------+ |
61 |
62 |
62 my $EDITOR = $ENV{VISUAL} || $ENV{EDITOR} || "vim"; |
63 my $EDITOR = $ENV{VISUAL} || $ENV{EDITOR} || "vim"; |
63 my $MAGIC = "#--- all changes below are ignored ---#\n"; |
64 my $MAGIC = "#--- all changes below are ignored ---#\n"; |
64 my $NODENAME = (split /\./, hostname)[0]; |
65 my $NODENAME = (split /\./, hostname)[0]; |
65 |
66 |
66 my $opt_db = $config::db // 1; |
67 package config { |
|
68 # default values if not set in the config file |
|
69 our $db //= 1; |
|
70 our $logfile = "/root/LOG.$NODENAME"; |
|
71 } |
|
72 |
|
73 my $opt_db = $config::db; |
67 my $opt_mail = 1; |
74 my $opt_mail = 1; |
68 my $opt_message = ""; |
75 my $opt_message = ""; |
69 my $opt_apt = ""; |
76 my $opt_apt = ""; |
70 my $opt_initdir = ""; |
77 my $opt_initdir = ""; |
71 my $opt_file = defined $config::logfile # use it twice |
78 my $opt_file = $config::logfile; |
72 ? $config::logfile |
|
73 : "/root/LOG.$NODENAME"; |
|
74 |
79 |
75 my $Dbh; |
80 my $Dbh; |
76 |
81 |
77 sub identity(); |
82 sub identity(); |
78 sub mailto(); |
83 sub mailto(); |