view release on metacpan or  search on metacpan

lib/HTTP/DownloadLimit.pm  view on Meta::CPAN

	$$self{'FILE_SIZE'} = -s "$$self{'PATH'}/$$self{'FILE_NAME'}";
	
	## ìÏÇÉÒÏ×ÁÎÉÅ *Options
	$self->_logwrite("Connected") if $$self{'DEBUG'};
	
	# ÏÐÒÅÄÅÌÉÔØ ÄÏÓÔÕÐ Ë ÆÁÊÌÕ ÄÌÑ ÏÄÎÁÇÏ ÉÌÉ ÎÅÓËÏÌØËÉÈ ËÌÉÅÎÔÏ× ( *Option )
	if( $self->_check_pid && ! $$self{'MULTI'} )
	{
	    print $self->_http_status_403;
	    
	    $self->_logwrite("403 file is busy $$self{'FILE_NAME'}") if $$self{'DEBUG'};
	}
	else
	{
	    ## ÐÒÏ×ÅÒÉÔØ ÓÏÏÔ×ÅÃÔ×ÉÅ ÚÁÐÒÁÛÉ×ÁÅÍÏÇÏ ÆÁÊÌÁ ÄÏÐÕÓÔÉÍÙÍ ÆÏÒÍÁÔÁÍ
	    unless( $self->_permission )
	    {
		print $self->_http_status_403;
		
		$self->_logwrite("403 type file $$self{'FILE_NAME'}") if $$self{'DEBUG'};
	    }