maps/perl/schmorp-clientchk.ext

#! perl

# check client version and string for old clients and possibly issue warnings for them

cf::attach_to_players
   on_login => sub {
      my ($pl) = @_;

      my $client = $pl->client;

      my $is_cf = $client =~ /^(?:GTK|X11) (?:Unix|Win32) Client ([.0-9]+)/
                  ? join "", map chr, split /\./, $1
                  : undef;

      my $is_jx = $client =~ /^JCrossclient 1.0 alpha-(\d+)/
                  ? join "", map chr, split /\./, $1
                  : undef;

      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_jx) {
         $pl->ob->message ("(enabling buggy map scroll workaround)", cf::NDI_RED | cf::NDI_UNIQUE);
         $pl->buggy_mapscroll;
      }

      if ($is_jx) {
         $pl->ob->message ("You are using a known to be buggy client (an alpha version, too). "
                           . "If you encounter map freezes or other bugs, consider using a more stable client "
                           . "such as CFPlus or gcfclient or gcfclient2");
      }

      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. Upgrading is highly recommended, otherwise you may experience crashes, strange lockups or other problems.

EOF
      }
   },
;

Revision:	1.4
Committed:	Mon Oct 2 21:19:17 2006 UTC (17 years, 7 months ago) by root
Branch:	MAIN
Changes since 1.3:	+16 -1 lines
Log Message:	1.0 \!= _alpha_ version
#	User	Rev	Content
1	root	1.1	#! perl
2
3			# check client version and string for old clients and possibly issue warnings for them
4
5	root	1.3	cf::attach_to_players
6			on_login => sub {
7			my ($pl) = @_;
8
9			my $client = $pl->client;
10
11			my $is_cf = $client =~ /^(?:GTK\|X11) (?:Unix\|Win32) Client ([.0-9]+)/
12			? join "", map chr, split /\./, $1
13			: undef;
14
15	root	1.4	my $is_jx = $client =~ /^JCrossclient 1.0 alpha-(\d+)/
16			? join "", map chr, split /\./, $1
17			: undef;
18
19			if ($is_cf) { # && $is_cf lt v1.9.2) {
20	root	1.3	$pl->ob->message ("(enabling workaround for client buffer overflow)", cf::NDI_RED \| cf::NDI_UNIQUE);
21			$pl->buggy_mapscroll;
22			}
23	root	1.1
24	root	1.4	if ($is_jx) {
25			$pl->ob->message ("(enabling buggy map scroll workaround)", cf::NDI_RED \| cf::NDI_UNIQUE);
26			$pl->buggy_mapscroll;
27			}
28
29			if ($is_jx) {
30			$pl->ob->message ("You are using a known to be buggy client (an alpha version, too). "
31			. "If you encounter map freezes or other bugs, consider using a more stable client "
32			. "such as CFPlus or gcfclient or gcfclient2");
33			}
34
35	root	1.3	if ($is_cf && $is_cf lt v1.9.1) {
36			$pl->ob->message (<<EOF, cf::NDI_RED \| cf::NDI_UNIQUE);
37	root	1.1
38			* * * * * * * * * * * * * *
39			* * * * * * * * * * * * * *
40			*** WARNING: Your client is BUGGY
41			* * * * * * * * * * * * * *
42			* * * * * * * * * * * * * *
43
44	root	1.2	Your client ($client) is known to be buggy. Upgrading is highly recommended, otherwise you may experience crashes, strange lockups or other problems.
45	root	1.1
46			EOF
47	root	1.3	}
48			},
49			;
50	root	1.1