?? bzip2.pl
字號:
## -*- Perl -*-# $Id: bzip2.pl,v 1.16 2000/03/23 10:41:04 knok Exp $# Copyright (C) 2000 Namazu Project All rights reserved ,# This is free software with ABSOLUTELY NO WARRANTY.## This program is free software; you can redistribute it and/or modify# it under the terms of the GNU General Public License as published by# the Free Software Foundation; either versions 2, or (at your option)# any later version.# # This program is distributed in the hope that it will be useful# but WITHOUT ANY WARRANTY; without even the implied warranty of# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the# GNU General Public License for more details.## You should have received a copy of the GNU General Public License# along with this program; if not, write to the Free Software# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA# 02111-1307, USA## This file must be encoded in EUC-JP encoding#package bzip2;use strict;require 'util.pl';my $bzip2path = undef;sub mediatype() { return ('application/x-bzip2');}sub status() { $bzip2path = util::checkcmd('bzip2'); return 'no' unless (defined $bzip2path); return 'yes';}sub recursive() { return 1;}sub pre_codeconv() { return 0;}sub post_codeconv () { return 0;}sub add_magic ($) { return;}sub filter ($$$$$) { my ($orig_cfile, $cont, $weighted_str, $headings, $fields) = @_; my $tmpfile = util::tmpnam('NMZ.bzip2'); util::vprint("Processing bzip2 file ... (using '$bzip2path')\n"); { my $fh = util::efopen("|$bzip2path -d > $tmpfile"); print $fh $$cont; } { my $fh = util::efopen("$tmpfile"); my $size = util::filesize($fh); if ($size > $conf::FILE_SIZE_MAX) { return 'too_large_gzipped_file'; } $$cont = util::readfile($fh); } unlink($tmpfile); return undef;}1;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -