server/ext/schmorp-clientchk.ext

#! perl # MANDATORY

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

cf::client->attach (
   on_addme => sub {
      my ($ns) = @_;

      my $client = $ns->version;

      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) {
         $ns->send_drawinfo ("(enabling workaround for client buffer overflow)", cf::NDI_RED);
         $ns->buggy_mapscroll (1);
         $ns->send_drawinfo ("(enabling workaround for broken face caching)", cf::NDI_RED);
         $ns->force_bad_checksum (1);
      }

      if ($is_jx) {
         $ns->send_drawinfo ("(enabling buggy map scroll workaround)", cf::NDI_RED);
         $ns->buggy_mapscroll (1);
      }

      if ($is_jx) {
         $ns->send_drawinfo ("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", cf::NDI_RED);
      }

      if ($is_cf && $is_cf lt v1.9.1) {
         $ns->send_drawinfo (<<EOF, cf::NDI_RED);

*** *** *** *** *** *** *** *** *** *** *** *** *** ***
*** *** *** *** *** *** *** *** *** *** *** *** *** ***
*** 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.8
Committed:	Wed Mar 14 00:04:58 2007 UTC (17 years, 2 months ago) by root
Branch:	MAIN
Changes since 1.7:	+6 -6 lines
Log Message:	- rewrote smooth face handling, as a side-effect, smoothing seems to work again and smooth faces can be reloaded. - the server now sends the full animation for an object the first time it is seen, this uses slightly more bandwidth initially, but avoids the flickering for objects change their face later.
#	User	Rev	Content
1	root	1.6	#! perl # MANDATORY
2	root	1.1
3			# check client version and string for old clients and possibly issue warnings for them
4
5	root	1.7	cf::client->attach (
6			on_addme => sub {
7			my ($ns) = @_;
8	root	1.1
9	root	1.7	my $client = $ns->version;
10	root	1.1
11			my $is_cf = $client =~ /^(?:GTK\|X11) (?:Unix\|Win32) Client ([.0-9]+)/
12			? join "", map chr, split /\./, $1
13			: undef;
14
15			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.8	$ns->send_drawinfo ("(enabling workaround for client buffer overflow)", cf::NDI_RED);
21	root	1.7	$ns->buggy_mapscroll (1);
22	root	1.8	$ns->send_drawinfo ("(enabling workaround for broken face caching)", cf::NDI_RED);
23	root	1.7	$ns->force_bad_checksum (1);
24	root	1.1	}
25
26			if ($is_jx) {
27	root	1.8	$ns->send_drawinfo ("(enabling buggy map scroll workaround)", cf::NDI_RED);
28	root	1.7	$ns->buggy_mapscroll (1);
29	root	1.1	}
30
31			if ($is_jx) {
32	root	1.8	$ns->send_drawinfo ("You are using a known to be buggy client (an alpha version, too). "
33	root	1.1	. "If you encounter map freezes or other bugs, consider using a more stable client "
34	root	1.8	. "such as CFPlus or gcfclient or gcfclient2", cf::NDI_RED);
35	root	1.1	}
36
37			if ($is_cf && $is_cf lt v1.9.1) {
38	root	1.8	$ns->send_drawinfo (<<EOF, cf::NDI_RED);
39	root	1.1
40			* * * * * * * * * * * * * *
41			* * * * * * * * * * * * * *
42			*** WARNING: Your client is BUGGY
43			* * * * * * * * * * * * * *
44			* * * * * * * * * * * * * *
45
46			Your client ($client) is known to be buggy. Upgrading is highly recommended, otherwise you may experience crashes, strange lockups or other problems.
47
48			EOF
49			}
50			},
51	root	1.4	);
52	root	1.1