+ $contentSub = sub {
+ #
+ # Because the content might be large, we use
+ # a sub to return the data in 64K chunks.
+ #
+ my($skipped, $c, $s);
+ while ( length($c) < 65536 ) {
+ $s = $fh->readLine();
+ if ( $s eq "" ) {
+ $c .= eval("qq{$Lang->{skipped__skipped_lines}}")
+ if ( $skipped );
+ last;
+ }
+ $s =~ s/[\n\r]+//g;
+ if ( $s =~ /smb: \\>/
+ || $s =~ /^\s*(\d+) \(\s*\d+\.\d kb\/s\) (.*)$/
+ || $s =~ /^tar: dumped \d+ files/
+ || $s =~ /^\s*added interface/i
+ || $s =~ /^\s*restore tar file /i
+ || $s =~ /^\s*restore directory /i
+ || $s =~ /^\s*tarmode is now/i
+ || $s =~ /^\s*Total bytes written/i
+ || $s =~ /^\s*Domain=/i
+ || $s =~ /^\s*Getting files newer than/i
+ || $s =~ /^\s*Output is \/dev\/null/
+ || $s =~ /^\s*\([\d.,]* kb\/s\) \(average [\d\.]* kb\/s\)$/
+ || $s =~ /^\s+directory \\/
+ || $s =~ /^\s*Timezone is/
+ || $s =~ /^\s*creating lame (up|low)case table/i
+ || $s =~ /^\.\//
+ || $s =~ /^ / ) {
+ $skipped++;
+ next;
+ }
+ $c .= eval("qq{$Lang->{skipped__skipped_lines}}")
+ if ( $skipped );
+ $skipped = 0;
+ $c .= ${EscHTML($s)} . "\n";