[ViewVC] Diff of: cvs/deliantra/maps/perl/schmorp-clientchk.ext

Comparing deliantra/maps/perl/schmorp-clientchk.ext (file contents):
Revision 1.1 by root, Mon Aug 21 06:47:53 2006 UTC vs.
Revision 1.2 by root, Mon Aug 21 07:13:54 2006 UTC

 sub on_login {
    my ($pl, $host) = @_;
    my $client = $pl->client;
-   my $is_cf = $client =~ /^(?:GTK|X11) (?:Unix|Win32) Client ([.0-9]+)/ && $1;
+   my $is_cf = $client =~ /^(?:GTK|X11) (?:Unix|Win32) Client ([.0-9]+)/
-   warn "$client> is_cf is <$is_cf>\n";#d#
+               ? join "", map chr, split /\./, $1
+               : undef;
-   if ($is_cf && (join "", map chr, split /\./, $is_cf) lt v1.9.1) {
+   if ($is_cf && $is_cf lt v1.9.2) {
+      $pl->ob->message ("(enabling workaround for client buffer overflow)", cf::NDI_RED | cf::NDI_UNIQUE);
+      $pl->buggy_mapscroll;
+   }
+   if ($is_cf && $is_cf lt v1.9.1) {
       $pl->ob->message (<<EOF, cf::NDI_RED | cf::NDI_UNIQUE);
 *** *** *** *** *** *** *** *** *** *** *** *** *** ***
 *** *** *** *** *** *** *** *** *** *** *** *** *** ***
 *** WARNING: Your client is BUGGY
 *** *** *** *** *** *** *** *** *** *** *** *** *** ***
 *** *** *** *** *** *** *** *** *** *** *** *** *** ***
-Your client ($client) is known to be buggy. If you experience crashes, strange lockups or other problems, consider upgrading to the current version.
+Your client ($client) is known to be buggy. Upgrading is highly recommended, otherwise you may experience crashes, strange lockups or other problems.
 EOF
    }
    ()

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines