文件操作 - nogo.pm
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/perl5/LWP/Protocol/nogo.pm
编辑文件内容
package LWP::Protocol::nogo; # If you want to disable access to a particular scheme, use this # class and then call # LWP::Protocol::implementor(that_scheme, 'LWP::Protocol::nogo'); # For then on, attempts to access URLs with that scheme will generate # a 500 error. use strict; our $VERSION = '6.68'; require HTTP::Response; require HTTP::Status; use parent qw(LWP::Protocol); sub request { my($self, $request) = @_; my $scheme = $request->uri->scheme; return HTTP::Response->new( HTTP::Status::RC_INTERNAL_SERVER_ERROR, "Access to \'$scheme\' URIs has been disabled" ); } 1;
修改文件时间
将文件时间修改为当前时间的前一年
删除文件