do not continue after writing template config file
authormyon-guest <myon-guest@b513b33f-fedd-0310-b452-c3deb5f4c849>
Sun, 7 Aug 2005 21:09:03 +0000 (21:09 +0000)
committermyon-guest <myon-guest@b513b33f-fedd-0310-b452-c3deb5f4c849>
Sun, 7 Aug 2005 21:09:03 +0000 (21:09 +0000)
git-svn-id: svn://svn.debian.org/pgp-tools/trunk@165 b513b33f-fedd-0310-b452-c3deb5f4c849

caff/caff

index 73152a434ddee2a53863551e7435acd3f9b5570e..97b0aa25ff7d7645aa98854f569a7f0e7ff77add 100755 (executable)
--- a/caff/caff
+++ b/caff/caff
@@ -333,11 +333,11 @@ sub load_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;
+               exit(1);
        }
        unless (scalar eval `cat $config`) {
                die "Couldn't parse $config: $EVAL_ERROR\n" if $EVAL_ERROR;