mirror of
https://github.com/kasmtech/KasmVNC.git
synced 2024-11-23 16:43:15 +01:00
18 lines
396 B
Raku
Executable File
18 lines
396 B
Raku
Executable File
#!/usr/bin/env perl
|
|
use MIME::Base64;
|
|
|
|
for (<>) {
|
|
unless (/^'([{}])(\d+)\1(.+?)',$/) {
|
|
print;
|
|
next;
|
|
}
|
|
|
|
my ($dir, $amt, $b64) = ($1, $2, $3);
|
|
|
|
my $decoded = MIME::Base64::decode($b64) or die "Could not base64-decode line `$_`";
|
|
|
|
my $decoded_escaped = join "", map { "\\x$_" } unpack("(H2)*", $decoded);
|
|
|
|
print "'${dir}${amt}${dir}${decoded_escaped}',\n";
|
|
}
|