X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMessages;h=7693f55e40d295c9765d30f535ede2b06c7babe8;hb=5f2487385b59dbe88dc763fa9c26fe5a9b4a6b30;hp=e7356ba2381420bdcd308100b62ca961161fc8a2;hpb=db100bf2aacab3c8a6e09569b0f9a166dc4996c5;p=spider.git

diff --git a/perl/Messages b/perl/Messages
index e7356ba2..7693f55e 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]',
@@ -97,6 +98,7 @@ package DXM;
 				e33 => '$_[0] is not a number of days or a valid date',
 				e34 => 'Need a GROUP and some text',
 				e35 => 'You are not a member of $_[0], join $_[0]',
+				e36 => 'You can only do this in normal user prompt state',
 
 				echoon => 'Echoing enabled',
 				echooff => 'Echoing disabled',
@@ -170,9 +172,9 @@ package DXM;
 				m5 => 'Sorry, I need a message number', 
 				m6 => 'Reply to: $_[0]',
 				m7 => 'Subject : $_[0]',
-				m8 => 'Enter Message /EX to send or /ABORT to exit',
+				m8 => 'Enter lines of text, /EX to send or /ABORT to exit',
 				m9 => 'New mail has arrived for you',
-				m10 => 'Message Aborted',
+				m10 => 'Message/Script Aborted',
 				m11 => 'Message no $_[0] saved and directed to $_[1]',
 				m12 => 'Message no $_[0] deleted',
 				m13 => 'Message no $_[0] missing',
@@ -181,6 +183,8 @@ package DXM;
 				m16 => 'Need a Message number',
 				m17 => 'Sorry, cannot send messages in $_[0] mode',
 				m18 => 'Sorry, message $_[0] is currently set to KEEP',
+				m19 => 'Startup Script for $_[0] saved, $_[1] lines',
+				m20 => 'Empty Startup Script for $_[0] deleted',
 				msg1 => 'Bulletin Messages Queued',
 				msg2 => 'Private Messages Queued',
 				msg3 => 'Msg $_[0]: $_[1] changed from $_[2] to $_[3]',
@@ -227,9 +231,8 @@ 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 >',
+				prs => 'Prompt is changed',
 				pru => 'Prompt now set back to default',
 				priv => 'Privilege level changed on $_[0]',
 				prx => '$main::mycall >',
@@ -403,8 +406,6 @@ package DXM;
 				password => 'Wachtwoord gezet of gewijzigd voor $_[0]',
 				pingo => 'Ping gestart naar $_[0]',
 				pingi => 'Ping ontvangen van $_[0] $_[1] (Ave $_[2]) secs',
-				pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-				pr2 => '($_[0]) de $main::mycall $_[1] $[2] >',
 				priv => 'Privilege level gewijzigd op $_[0]',
 				prx => '$main::mycall >',
 				qll => 'Geef uw locator met set/location of set/qra',
@@ -645,8 +646,6 @@ package DXM;
 				pinge1 => 'Vous ne pouvez pas vous pinger vous-même !',
 				pingint => 'Intervalle de ping vers $_[0] fixé à $_[1] secondes',
 				'pos' => 'Indicatif source : latitude $_[0] : longitude $_[1] : $_[2]',
-				pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-				pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
 				prs => 'Prompt défini comme étant \"$_[0]\"',
 				pru => 'Prompt remis à sa valeur par défaut',
 				priv => 'Niveau de privilège changé en $_[0]',
@@ -945,8 +944,6 @@ package DXM;
 				pinge1 => 'No puedes enviarte un ping a ti mismo!',
 				pingint => 'Intervalo de ping para $_[0] ajustado a $_[1] segundos',
 				'pos' => 'Desde el indicativo: $_[0] Lat: $_[1] Long: $_[2]',
-				pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-				pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
 				prs => 'El Prompt ha sido cambiado a \"$_[0]\"',
 				pru => 'El Prompt vuelve a ser el normal por defecto',
 				priv => 'Nivel de privilegios modificado para $_[0]',
@@ -1235,8 +1232,6 @@ package DXM;
 				pinge1 => 'Du kannst Dich nicht selber pingen!',
 				pingint => 'Ping-Intervall zu $_[0] gesetzt auf $_[1] Sekunden',
 				'pos' => 'Von Rufzeichen: $_[0] Breite: $_[1] Laenge: $_[2]',
-				pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-				pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
 				prs => 'Prompt gesetzt auf \"$_[0]\"',
 				pru => 'Prompt jetzt zurueckgesetzt auf Default-Einstellung',
 				priv => 'Priviligierten Level geaendert auf $_[0]',
@@ -1505,8 +1500,6 @@ package DXM;
 				pinge1 => 'Non puoi far un ping su te stesso!',
 				pingint => 'Intervallo di ping per $_[0] impostato a $_[1] secondi',
 				'pos' => 'Dal nominativo: $_[0] Lat: $_[1] Long: $_[2]',
-				pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-				pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
 				priv => 'Privilegi cambiati per $_[0]',
 				prs => 'Prompt impostato a \"$_[0]\"',
 				pru => 'Prompt reimpostato al predefinito',
@@ -2085,8 +2078,6 @@ package DXM;
 				pinge1 => 'No pode fazer ping para si prprio!',
 				pingint => 'Intervalo de Ping em $_[0] definido para $_[1] segundos',
 				'pos' => 'Do indicativo: $_[0] Lat: $_[1] Long: $_[2]',
-				pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-				pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
 				prs => 'Prompt agora definida para \"$_[0]\"',
 				pru => 'Prompt agora regressou para a default',
 				priv => 'Nivel de privilgio alterado em $_[0]',