From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SYBER / UniEvent-1.2.14 / misc / jopa.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103

              
use 5.020;
use UE;
require POSIX;
use Net::SSLeay ();
#my $t = PE::Timer->new; $t->start(2); $t->callback(sub {
my $ctx = Net::SSLeay::CTX_new;
Net::SSLeay::CTX_use_certificate_file($ctx, 't/cert/cert.pem', Net::SSLeay::FILETYPE_PEM());
Net::SSLeay::CTX_use_RSAPrivateKey_file($ctx, 't/cert/key.pem', Net::SSLeay::FILETYPE_PEM());
#Net::SSLeay::SSL_CTX_set_options($ctx, Net::SSLeay::SSL_OP_NO_RENEGOTIATION());
$SIG{PIPE} = 'IGNORE';
$0 = 'jsrc';
my ($foo, @foo);
    my $t = UniEvent::Timer->new; $t->start(0.2); $t->callback(sub {
        $_->reset for (splice @foo);
        do {my$foo=$_, $_->write("shit", sub {undef $foo}), $_->reset} for (splice @foo);
    });
warn $$;
my $sock = UE::Tcp->new;
$sock->use_ssl($ctx);
$sock->bind('*', 6669);
$sock->listen(sub {
    my (undef, $cli) = @_;
push @foo, $cli;
=cut
$cli->write("shit", sub {
    shift->write("shit", sub {
        shift->reset;
        undef $cli;
        #shift->write("shit");
    });
});
=cut
$cli->write("shit", sub{
    $cli->write("jopa", sub {
#warn "@_";
        $cli->reset;
    });
#    $cli->reset;
    #undef $cli;
});
return;
    $cli->write("shit", sub {
        $cli->write("shit", sub {
            $cli->reset;
            undef $cli;
        });
    });
=cut
    $cli->read_start;
    $cli->read_callback(sub {
$foo = !$foo;
        #$cli->write("HTTP/1.0 301 Moved Permanently\r\nLocation: http://93.159.239.44:6666/\r\nConnection: close\r\n\r\n") if $foo;
        $cli->write("HTTP/1.0 301 Moved Permanently\r\nLocation: http://dev.crazypanda.ru:6666/\r\nConnection: close\r\n\r\n");
        #$cli->write("HTTP/1.0 302 Found\r\nLocation: http://ya.ru/\r\nConnection: close\r\n\r\n");
        $cli->shutdown;
        $cli->disconnect;
        undef $cli;
#use Devel::Peek ; Dump $_[0];
#        use DDP; p \@_; 1
    });
=cut
=cut
    $cli->write("OK");
    my $t = UniEvent::Timer->new; $t->start(1); $t->callback(sub {
        undef $t;
        $cli->reset;
#        $cli->shutdown;
#        $cli->disconnect;
#        undef $cli;
    });
=cut
} => 666);
UE::Loop->default->run;