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

Files @ 098f8b6684cb

Branch filter:

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

098f8b6684cb 152 B application/x-perl Show Source Show as Raw Download as Raw

Jan Kaluza

Backend logs are not created using 'backend-N.log' pattern where N is ID of the backend (1, 2, 3, 4, ...) according to the backends number

8fbdd54451c0
8fbdd54451c0
8fbdd54451c0
8fbdd54451c0
8fbdd54451c0
8fbdd54451c0
8fbdd54451c0
8fbdd54451c0
8fbdd54451c0

#!/usr/bin/perl

use MIME::Base64 qw(encode_base64);

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