X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMessages;h=98a1cb11844cca517a9d9e8b7de6584cf070811b;hb=6d56cd879560a16b952a938fc47eee420511e628;hp=2cdae3387184b0e966e426091757bbeb8a6b476d;hpb=575a26ea68a641f895f68ed28391962d92bf1912;p=spider.git

diff --git a/perl/Messages b/perl/Messages
index 2cdae338..98a1cb11 100644
--- a/perl/Messages
+++ b/perl/Messages
@@ -69,6 +69,7 @@ package DXM;
 				e21 => '$_[0] not numeric',
 				e22 => '$_[0] not a callsign',
 				e23 => '$_[0] not a range (eg 0/30000)', 
+				e24 => 'Sorry, Internet access is not enabled',
 
 				echoon => 'Echoing enabled',
 				echooff => 'Echoing disabled',
@@ -166,8 +167,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 $main::cldate $main::ztime >',
-				pr2 => '($_[0]) de $main::mycall $main::cldate $main::ztime >',
+				pr => '$_[0] de $main::mycall $_[1] $_[2] >',
+				pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
 				priv => 'Privilege level changed on $_[0]',
 				prx => '$main::mycall >',
 				qll => 'Please enter your location with set/location or set/qra',
@@ -291,8 +292,8 @@ 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 $main::cldate $main::ztime >',
-		 pr2 => '($_[0]) de $main::mycall $main::cldate $main::ztime >',
+		 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',