my ($REVISION_NUMER) = $REVISION =~ /(\d+)/;
my $VERSION = "0.0.0.$REVISION_NUMER";
+
+
+sub notice($) {
+ my ($line) = @_;
+ print "[NOTICE] $line\n";
+};
+sub info($) {
+ my ($line) = @_;
+ print "[INFO] $line\n";
+};
+sub debug($) {
+ my ($line) = @_;
+ #print "[DEBUG] $line\n";
+};
+sub trace($) {
+ my ($line) = @_;
+ #print "[trace] $line\n";
+};
+sub trace2($) {
+ my ($line) = @_;
+ #print "[trace2] $line\n";
+};
+
+
sub generate_config() {
die "Error: \$LOGNAME is not set.\n" unless $ENV{LOGNAME};
my $gecos = (getpwnam($ENV{LOGNAME}))[6];
unless (-f $config) {
print "No configfile $config present, I will use this template:\n";
my $template = generate_config();
- print "$template\nPress enter to continue.";
- <STDIN>;
+ print "$template\nPlease edit $config and run caff again.\n";
open F, ">$config" or die "$config: $!";
print F $template;
close F;
+ exit(1);
}
unless (scalar eval `cat $config`) {
die "Couldn't parse $config: $EVAL_ERROR\n" if $EVAL_ERROR;
EOM
};
-sub notice($) {
- my ($line) = @_;
- print "[NOTICE] $line\n";
-};
-sub info($) {
- my ($line) = @_;
- print "[INFO] $line\n";
-};
-sub debug($) {
- my ($line) = @_;
- #print "[DEBUG] $line\n";
-};
-sub trace($) {
- my ($line) = @_;
- #print "[trace] $line\n";
-};
-sub trace2($) {
- my ($line) = @_;
- #print "[trace2] $line\n";
-};
-
sub make_gpg_fds() {
my %fds = (
stdin => IO::Handle->new(),