libtransport.git Files · msvc-deps/curl/tests/server/base64.pl

Files @ 79b50300351f

Branch filter:

Location: libtransport.git/msvc-deps/curl/tests/server/base64.pl

79b50300351f 152 B application/x-perl Show Annotation Show as Raw Download as Raw

Jan Kaluza

Check if the user is in room before sending information about nick change. Fixes bug when users have been added to all rooms when they changed their IRC nickname

#!/usr/bin/perl

use MIME::Base64 qw(encode_base64);

my $buf;
while(read(STDIN, $buf, 60*57)) {
    my $enc = encode_base64($buf);
    print "$enc";
}