fix for case where no .fetchmailrc should be create and fetchmail should not be run
authorivan <ivan>
Wed, 3 Mar 2004 16:32:08 +0000 (16:32 +0000)
committerivan <ivan>
Wed, 3 Mar 2004 16:32:08 +0000 (16:32 +0000)
bin/create-fetchmailrc

index e929711..11bde0c 100644 (file)
@@ -22,6 +22,8 @@ my $filename = "$homedir/.fetchmailrc";
 my $gid = scalar(getgrnam($username)) or die "can't find $username's gid\n";
 my $uid = scalar(getpwnam($username)) or die "can't find $username's uid\n";
 
+exit unless $ARGV[0];
+
 open(FETCHMAILRC, ">$filename") or die "can't open $filename: $!\n";
 chown $uid, $gid, $filename     or die "can't chown $uid.$gid $filename: $!\n";
 chmod 0600, $filename           or die "can't chmod 600 $filename: $!\n";