CGI.pm에서 사용자 정의 코드 가져 오기

Question

CGI.pm의 약간 수정 된 버전을 사용하는 Perl로 작성된 사용자 정의 사이트가 있습니다. 서버 업데이트 중에 CGI.pm이 업데이트되면 덮어 쓸 수 있습니다. 내 목표는 사이트에 영향을주지 않고 서버를 업데이트 할 수있게하는 것입니다. 즉, 수정 된 CGI.pm에 의존하는 코드를 변경하는 것입니다. 불행하게도 나는 펄 구문이나 모범 사례에 익숙하지 않다.

이

--- CGI.pm.orig Tue Nov 7 12:14:09 2006 
+++ CGI.pm  Tue Nov 7 12:13:29 2006 
@@ -3386,7 +3386,7 @@ sub read_multipart { 
       if (defined $self->{'.upload_hook'}) 
       { 
        $totalbytes += length($data); 
-     &{$self->{'.upload_hook'}}($filename ,$data, $totalbytes, $self->{'.upload_data'}); 
+     &{$self->{'.upload_hook'}}($filename ,$data, $totalbytes, $self->{'.upload_data'}, $param, $header{'Content-Type'}); 
       } 
       print $filehandle $data if ($self->{'use_tempfile'}); 
      } 

이 DIFF에 의존하는 코드는 다음과 같습니다 :

my %file_hash =(); 
my $page = new CGI(\&file_reader, \%file_hash, 0); 

my $session = &get_session($page); 


foreach my $param_name (keys %file_hash) { 
     my $notes_param = $param_name . "_notes"; 
     &store_file($file_hash{$param_name}, $page->param($notes_param), 
        &get_session_name($session)); 
} 

여기

수정 된 CGI.pmn의 DIFF (줄 번호는 CGI.pm의 최신 버전에서 꺼져)입니다

diff가 없으면 파일을 저장할 때 $ param_name 변수가 비어있는 것으로 보입니다.

이 문제를 해결하는 가장 좋은 방법은 무엇입니까? 이전에 말했듯이 내 주요 목표는 서버 업데이트를 단순화하는 것입니다. 어떤 방법이에 하나

A) (바람직))) CGI.pm B의 수정 된 버전없이 제대로 작동하려면 %의 file_hash를 얻을 수 CGI.pm 업데이트를 방지 (이것은 나쁜 생각

Answer 1

원하는 개선 사항으로 CGI RT에 제출해 보셨습니까? 콜백에 및 \%header ($header{'Content-Type'} 대신)을 전달하는 것이 합당한 것으로 보입니다.

질문에 대답하려면 CGI를 로컬 디렉토리에 설치할 수 있습니다. PERL5LIB env var의 디렉토리가 먼저 검색되므로 우분투가 설치 한 디렉토리 대신 CGI 버전이 검색됩니다.

Answer 2

저는 CGI.pm 관리자입니다. CGI의 로컬 복사본을 사용하는 것보다 더 나은 옵션이 있다고 생각합니다. 대신 하위 클래스를 만들고 응용 프로그램에서 my 하위 클래스를 사용하십시오.

package My::CGI; 
use parent 'CGI'; 

sub my_sub_that_modified { 
    ... 
} 

1; 

그래서 수정 한 서브 루틴을 복사하면됩니다. CGI.pm을 업그레이드 할 때 수정 된 서브 루틴이 변경되지 않으면 응용 프로그램을 만질 필요가 없습니다.

"로컬 lib"옵션을 사용하면 보안 업데이트와 로컬 복사본에 추가 할 수있는 다른 변경 내용을 수동으로 병합해야합니다. 서브 클래스 라우트는이를 최소화합니다.

이 접근법의 예는 서브 클래스에서 몇 가지 변경을 수행하는 Bugzilla::CGI입니다.