equal
deleted
inserted
replaced
1 #! /usr/bin/perl |
1 #! /usr/bin/perl |
2 # Eigentlich geht das selbe mit: |
2 # Eigentlich geht das selbe mit: |
3 # grep '^[[:space:]]*[[:digit:]]' IDX-file | tr -d | cut -f4 -d' ' | while read f; do |
3 # grep '^[[:space:]]*[[:digit:]]' IDX-file | tr -d | cut -f4 -d' ' | while read f; do |
4 # cat DATA/$f || zcat DATA/$f.gz |
4 # if test -f DATA/$f then cat $f |
5 # done |
5 # elif test -f DATA/$f.gz then zcat DATA/$f.gz |
6 # ODER |
6 # elif test -f DATA/$f.x then openssl aes-128-cbc -d -in DATA/$f.x |
7 # perl -ne '/^\s*\d/ and print "DATA/" . (split)[2] . "\n"' IDX-File | while read f; do |
7 # elif test -f DATA/$f.gz.x then openssl aes-128-cbc -d -in DATA/$f.gz.x | zcat |
8 # cat DATA/$f || zcat DATA/$f.gz |
8 # elif test -f DATA/$f.x.gz then zcat DATA/$f.x.gz | openssl aes-128-cbs -d |
|
9 # fi |
9 # done |
10 # done |
10 |
11 |
11 use 5.010; |
12 use 5.010; |
12 use strict; |
13 use strict; |
13 use warnings; |
14 use warnings; |
85 open($in, "openssl @{[CIPHER]} -d -pass $o{pass} -in '$data/$path.x'|"); |
86 open($in, "openssl @{[CIPHER]} -d -pass $o{pass} -in '$data/$path.x'|"); |
86 binmode($in); |
87 binmode($in); |
87 local $/ = undef; |
88 local $/ = undef; |
88 $buffer = <$in>; |
89 $buffer = <$in>; |
89 } |
90 } |
|
91 elsif (-f "$data/$path.gz.x") { |
|
92 open($in, "openssl @{[CIPHER]} -d -pass $o{pass} -in $data/$path.gz.x|"); |
|
93 binmode($in); |
|
94 gunzip($in => \$buffer) |
|
95 or die $GunzipError; |
|
96 } |
90 elsif (-f "$data/$path.x.gz") { |
97 elsif (-f "$data/$path.x.gz") { |
91 warn "$data/$path.x.gz: depreciated!\n"; |
98 warn "$data/$path.x.gz: depreciated!\n"; |
92 open($in, |
99 open($in, |
93 "gzip -d -c $data/$path.x.gz | openssl bf -d -pass $o{pass}|"); |
100 "gzip -d -c $data/$path.x.gz | openssl @{[CIPHER]} -d -pass $o{pass}|"); |
94 binmode($in); |
101 binmode($in); |
95 local $/ = undef; |
102 local $/ = undef; |
96 $buffer = <$in>; |
103 $buffer = <$in>; |
97 } |
|
98 elsif (-f "$data/$path.gz.x") { |
|
99 open($in, "openssl bf -d -pass $o{pass} -in $data/$path.gz.x|"); |
|
100 binmode($in); |
|
101 gunzip($in => \$buffer) |
|
102 or die $GunzipError; |
|
103 } |
104 } |
104 else { |
105 else { |
105 die ME . ": Can't open $data/$path: $!\n"; |
106 die ME . ": Can't open $data/$path: $!\n"; |
106 } |
107 } |
107 print {$out} $buffer; |
108 print {$out} $buffer; |