X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMessages;h=a79debbc93581c33195eda81fcd6eb96df9c127e;hb=aad4e36d3753bf8dde671d14d73b1d9785b9ff41;hp=e7356ba2381420bdcd308100b62ca961161fc8a2;hpb=da55cf63b3719d06fe69c76cab566c623d76f04d;p=spider.git

diff --git a/perl/Messages b/perl/Messages
index e7356ba2..a79debbc 100644
--- a/perl/Messages
+++ b/perl/Messages
@@ -32,6 +32,7 @@ package DXM;
 				conscript => 'no connect script called \"$_[0]\" found in $main::root/connect',
 				confail => 'connection to $_[0] failed ($_[1])',
 				constart => 'connection to $_[0] started',
+				conbump => 'Reconnected as $_[0] at $_[1], this instance is disconnected',
 				deluser => 'User $_[0] has been deleted',
 				db1 => 'This database is hosted at $_[0]',
 				db2 => 'Sorry, but key: $_[0] was not found in $_[1]',
@@ -227,9 +228,7 @@ package DXM;
 				pinge1 => 'Cannot ping yourself!',
 				pingint => 'Ping interval on $_[0] set to $_[1] secs',
 				'pos' => 'From Callsign: $_[0] Lat: $_[1] Long: $_[2]',
-				pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-				pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
-				prs => 'Prompt now set to \"$_[0]\"',
+				pr => '%C de %M %D %T dxspider >',
 				pru => 'Prompt now set back to default',
 				priv => 'Privilege level changed on $_[0]',
 				prx => '$main::mycall >',