rename

[PerlMail.git] / perlmail-submit

diff --git a/perlmail-submit b/perlmail-submit
index 9de0b90..8a452ad 100755 (executable)
--- 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;