]>
git.proxmox.com Git - mirror_novnc.git/blob - utils/b64-to-binary.pl
5 unless (/^'([{}])(\d+)\1(.+?)',$/) {
10 my ($dir, $amt, $b64) = ($1, $2, $3);
12 my $decoded = MIME
::Base64
::decode
($b64) or die "Could not base64-decode line `$_`";
14 my $decoded_escaped = join "", map { "\\x$_" } unpack("(H2)*", $decoded);
16 print "'${dir}${amt}${dir}${decoded_escaped}',\n";