1244 |
"perl -MMIME::Base64 -0777 -ne 'print encode_base64($_)'" |
"perl -MMIME::Base64 -0777 -ne 'print encode_base64($_)'" |
1245 |
"Perl program to use for encoding a file. |
"Perl program to use for encoding a file. |
1246 |
Escape sequence %s is replaced with name of Perl binary. |
Escape sequence %s is replaced with name of Perl binary. |
1247 |
|
This string is passwd to `format', so percent characters need to be doubled. |
1248 |
This implementation requires the MIME::Base64 Perl module to be installed |
This implementation requires the MIME::Base64 Perl module to be installed |
1249 |
on the remote host.") |
on the remote host.") |
1250 |
|
|
1252 |
"perl -MMIME::Base64 -0777 -ne 'print decode_base64($_)'" |
"perl -MMIME::Base64 -0777 -ne 'print decode_base64($_)'" |
1253 |
"Perl program to use for decoding a file. |
"Perl program to use for decoding a file. |
1254 |
Escape sequence %s is replaced with name of Perl binary. |
Escape sequence %s is replaced with name of Perl binary. |
1255 |
|
This string is passwd to `format', so percent characters need to be doubled. |
1256 |
This implementation requires the MIME::Base64 Perl module to be installed |
This implementation requires the MIME::Base64 Perl module to be installed |
1257 |
on the remote host.") |
on the remote host.") |
1258 |
|
|
1262 |
# Copyright (C) 2002 Free Software Foundation, Inc. |
# Copyright (C) 2002 Free Software Foundation, Inc. |
1263 |
use strict; |
use strict; |
1264 |
|
|
1265 |
my %trans = do { |
my %%trans = do { |
1266 |
my $i = 0; |
my $i = 0; |
1267 |
map {(substr(unpack(q(B8), chr $i++), 2, 6), $_)} |
map {(substr(unpack(q(B8), chr $i++), 2, 6), $_)} |
1268 |
split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/); |
split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/); |
1279 |
|
|
1280 |
# Only for the last chunk, and only if did not fill the last three-byte packet |
# Only for the last chunk, and only if did not fill the last three-byte packet |
1281 |
if (eof) { |
if (eof) { |
1282 |
my $mod = length($data) % 3; |
my $mod = length($data) %% 3; |
1283 |
$pad = q(=) x (3 - $mod) if $mod; |
$pad = q(=) x (3 - $mod) if $mod; |
1284 |
} |
} |
1285 |
|
|
1295 |
} |
} |
1296 |
'" |
'" |
1297 |
"Perl program to use for encoding a file. |
"Perl program to use for encoding a file. |
1298 |
Escape sequence %s is replaced with name of Perl binary.") |
Escape sequence %s is replaced with name of Perl binary. |
1299 |
|
This string is passwd to `format', so percent characters need to be doubled.") |
1300 |
|
|
1301 |
(defvar tramp-perl-decode |
(defvar tramp-perl-decode |
1302 |
"%s -e ' |
"%s -e ' |
1304 |
# Copyright (C) 2002 Free Software Foundation, Inc. |
# Copyright (C) 2002 Free Software Foundation, Inc. |
1305 |
use strict; |
use strict; |
1306 |
|
|
1307 |
my %trans = do { |
my %%trans = do { |
1308 |
my $i = 0; |
my $i = 0; |
1309 |
map {($_, sprintf(q(%06b), $i++))} |
map {($_, sprintf(q(%%06b), $i++))} |
1310 |
split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/) |
split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/) |
1311 |
}; |
}; |
1312 |
|
|
1313 |
my %bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 .. 255; |
my %%bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 .. 255; |
1314 |
|
|
1315 |
binmode(\*STDOUT); |
binmode(\*STDOUT); |
1316 |
|
|
1339 |
} |
} |
1340 |
'" |
'" |
1341 |
"Perl program to use for decoding a file. |
"Perl program to use for decoding a file. |
1342 |
Escape sequence %s is replaced with name of Perl binary.") |
Escape sequence %s is replaced with name of Perl binary. |
1343 |
|
This string is passwd to `format', so percent characters need to be doubled.") |
1344 |
|
|
1345 |
; These values conform to `file-attributes' from XEmacs 21.2. |
; These values conform to `file-attributes' from XEmacs 21.2. |
1346 |
; GNU Emacs and other tools not checked. |
; GNU Emacs and other tools not checked. |