summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
5ee85e1)
unless (-f $config) {
print "No configfile $config present, I will use this template:\n";
my $template = generate_config();
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;
open F, ">$config" or die "$config: $!";
print F $template;
close F;
}
unless (scalar eval `cat $config`) {
die "Couldn't parse $config: $EVAL_ERROR\n" if $EVAL_ERROR;
}
unless (scalar eval `cat $config`) {
die "Couldn't parse $config: $EVAL_ERROR\n" if $EVAL_ERROR;