72 |
;; In the Tramp CVS repository, the version numer is auto-frobbed from |
;; In the Tramp CVS repository, the version numer is auto-frobbed from |
73 |
;; the Makefile, so you should edit the top-level Makefile to change |
;; the Makefile, so you should edit the top-level Makefile to change |
74 |
;; the version number. |
;; the version number. |
75 |
(defconst tramp-version "2.0.6" |
(defconst tramp-version "2.0.8" |
76 |
"This version of tramp.") |
"This version of tramp.") |
77 |
|
|
78 |
(defconst tramp-bug-report-address "tramp-devel@mail.freesoftware.fsf.org" |
(defconst tramp-bug-report-address "tramp-devel@mail.freesoftware.fsf.org" |
1268 |
split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/); |
split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/); |
1269 |
}; |
}; |
1270 |
|
|
1271 |
binmode(\*STDIN); |
binmode(\\*STDIN); |
1272 |
|
|
1273 |
# We read in chunks of 54 bytes, to generate output lines |
# We read in chunks of 54 bytes, to generate output lines |
1274 |
# of 72 chars (plus end of line) |
# of 72 chars (plus end of line) |
1275 |
$/ = \54; |
$/ = \\54; |
1276 |
|
|
1277 |
while (my $data = <STDIN>) { |
while (my $data = <STDIN>) { |
1278 |
my $pad = q(); |
my $pad = q(); |
1291 |
map($trans{$_}, |
map($trans{$_}, |
1292 |
(substr(unpack(q(B*), $data) . q(00000), 0, 432) =~ /....../g)), |
(substr(unpack(q(B*), $data) . q(00000), 0, 432) =~ /....../g)), |
1293 |
$pad, |
$pad, |
1294 |
qq(\n); |
qq(\\n); |
1295 |
} |
} |
1296 |
'" |
'" |
1297 |
"Perl program to use for encoding a file. |
"Perl program to use for encoding a file. |
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 |
|
|
1317 |
# We are going to accumulate into $pending to accept any line length |
# We are going to accumulate into $pending to accept any line length |
1318 |
# (we do not check they are <= 76 chars as the RFC says) |
# (we do not check they are <= 76 chars as the RFC says) |