| … | |
… | |
| 95 | remove Glib::Source delete $self->{timeout} if $self->{timeout}; |
95 | remove Glib::Source delete $self->{timeout} if $self->{timeout}; |
| 96 | } |
96 | } |
| 97 | |
97 | |
| 98 | |
98 | |
| 99 | package main; |
99 | package main; |
| 100 | use lib 'igsueme/'; |
100 | |
| 101 | use lib 'lib/'; |
|
|
| 102 | use Glib; |
101 | use Glib; |
| 103 | use Gtk2 -init; |
102 | use Gtk2 -init; |
| 104 | use Gtk2::Helper; |
103 | use Gtk2::Helper; |
| 105 | use Gtk2::SimpleList; |
104 | use Gtk2::SimpleList; |
| 106 | use Gtk2::GoBoard; |
105 | use Gtk2::GoBoard; |
| 107 | use Games::Go::SimpleBoard; |
106 | use Games::Go::SimpleBoard; |
| 108 | use IO::Socket::INET; |
107 | use IO::Socket::INET; |
| 109 | use IGS; |
108 | use Net::IGS; |
| 110 | use strict; |
109 | use strict; |
|
|
110 | |
| 111 | require Data::Dumper; |
111 | require Data::Dumper; |
| 112 | |
112 | |
| 113 | my %games; |
113 | my %games; |
| 114 | |
114 | |
| 115 | my @timers; |
115 | my @timers; |
| … | |
… | |
| 314 | |
314 | |
| 315 | ################################################################################# |
315 | ################################################################################# |
| 316 | ################################################################################# |
316 | ################################################################################# |
| 317 | ################################################################################# |
317 | ################################################################################# |
| 318 | |
318 | |
| 319 | my $igs = IGS::Protocol->new (); |
319 | my $igs = new Net::IGS; |
| 320 | |
320 | |
| 321 | $igs->init ("elmex", "lolfe123"); |
321 | $igs->init ("elmex", "lolfe123"); |
| 322 | |
322 | |
| 323 | my $sck = con ("igs.joyjoy.net", 6969); |
323 | my $sck = con ("igs.joyjoy.net", 6969); |
| 324 | |
324 | |
