… | |
… | |
883 | $::SERVER_INFO->set_markup ( |
883 | $::SERVER_INFO->set_markup ( |
884 | "server <tt>$self->{host}:$self->{port}</tt>\n" |
884 | "server <tt>$self->{host}:$self->{port}</tt>\n" |
885 | . "protocol version <tt>$self->{version}</tt>\n" |
885 | . "protocol version <tt>$self->{version}</tt>\n" |
886 | . "minimap support $yesno[$self->{setup}{mapinfocmd} > 0]\n" |
886 | . "minimap support $yesno[$self->{setup}{mapinfocmd} > 0]\n" |
887 | . "extended command support $yesno[$self->{setup}{extcmd} > 0]\n" |
887 | . "extended command support $yesno[$self->{setup}{extcmd} > 0]\n" |
|
|
888 | . "editor support $yesno[!!length $self->{cvs_root}]\n" |
|
|
889 | . "test server " . (length $self->{test_server} ? $self->{test_server} : $yesno[0]) . "\n" |
888 | . "map attributes $yesno[$self->{setup}{extmap} > 0]\n" |
890 | . "map attributes $yesno[$self->{setup}{extmap} > 0]\n" |
889 | . "cfplus support $yesno[$self->{cfplus_ext} > 0]" |
891 | . "cfplus support $yesno[$self->{cfplus_ext} > 0]" |
890 | . ($self->{cfplus_ext} > 0 ? ", version $self->{cfplus_ext}" : "") ."\n" |
892 | . ($self->{cfplus_ext} > 0 ? ", version $self->{cfplus_ext}" : "") ."\n" |
891 | . "map size $self->{mapw}×$self->{maph}\n" |
893 | . "map size $self->{mapw}×$self->{maph}\n" |
892 | ); |
894 | ); |
… | |
… | |
896 | my ($self) = @_; |
898 | my ($self) = @_; |
897 | |
899 | |
898 | $self->send_ext_req (cfplus_support => version => 1, sub { |
900 | $self->send_ext_req (cfplus_support => version => 1, sub { |
899 | $self->{cfplus_ext} = $_[0]{version}; |
901 | $self->{cfplus_ext} = $_[0]{version}; |
900 | $self->update_server_info; |
902 | $self->update_server_info; |
|
|
903 | |
|
|
904 | if ($self->{cfplus_ext} >= 2) { |
|
|
905 | $self->send_ext_req ("editor_support", sub { |
|
|
906 | $self->{cvs_root} = $_[0]{cvs_root}; |
|
|
907 | $self->{upload} = $_[0]{upload}; |
|
|
908 | $self->{test_server} = $_[0]{server}; |
|
|
909 | $self->update_server_info; |
|
|
910 | |
|
|
911 | 0 |
|
|
912 | }); |
|
|
913 | } |
901 | |
914 | |
902 | 0 |
915 | 0 |
903 | }); |
916 | }); |
904 | |
917 | |
905 | $self->update_server_info; |
918 | $self->update_server_info; |