X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-submit;h=8a452adda8b01dd4197092987acbae9b2056b88b;hp=9de0b905828147a2399f51e599a34cfb841a1135;hb=6b0b3e175ec251e22d66460bd9f004f8cf6e5564;hpb=de1c9a00bd2e44398aceb28d583cd5e3d8b80a36

diff --git a/perlmail-submit b/perlmail-submit
index 9de0b90..8a452ad 100755
--- a/perlmail-submit
+++ b/perlmail-submit
@@ -16,11 +16,11 @@ use POSIX qw(mktime);
 use Fcntl qw(:flock);
 
 
-my $Lock_pathname="/tmp/LaceMail.lock";
+my $Lock_pathname="/tmp/PerlMail.lock";
 #my $PeerAddr="dejhome.dyn.jankratochvil.net.:852";
 my $PeerAddr="127.0.0.1:2852";
 my $Socket_timeout=7600;       # 15sec is NOT enough!
-my $DB_table="LaceMail_folder";
+my $DB_table="PerlMail_folder";
 my $DBI_database="short";
 my $DBI_user="short";
 my $DBI_pwd=$ENV{"HOME"}."/priv/mysql.".$DBI_user.".pwd";
@@ -203,6 +203,6 @@ die if !GetOptions(
 		  "submit" ,\&submit,
 		  "pending",\&pending,
 		  "clean:s",\&clean,
-		"V|version",sub { print "lacemail-submit: $VERSION\n"; exit 0; },
+		"V|version",sub { print "perlmail-submit: $VERSION\n"; exit 0; },
 		);
 exit 0;