Christian Lackas <delta@lackas.net> schrieb in im Newsbeitrag:
3A8D4B03.ADC5C330@lackas.net...
> Michael Siepmann wrote:
>
> Hallo Michael,
>
> > > MD5 ist veraltet und wurde durch Digest::MD5 ersetzt. Bei Imperia ist
> > > eine "pure perl" Variante des Moduls unter dem Namen Digest::Perl::MD5
> > > schon mit dabei.
> > Wird diese Version schon mit Imperia 5 installiert? Wenn ja, warum
meldet
> > die site_search_makeindex.pl mir dann immer noch, daß es keine
PDF-Plugins
> > gefunden hat?
>
> Ja (zumindest i5.02). Aber leider verwendet(e) pdf2txt aber ja noch das
> MD5-Modul.
>
> Es kommt bei Euch so eine Fehlermeldung, ja (bitte sowas mit angeben,
> dann muss ich nicht raten)?
> !! PDF-Converter:  MD5 Module missing.

sorry, ich wußte die Fehlermeldung nicht auswendig, sonst hätte ich sie
mitgegeben.

Steht das irgendwann mal in der Techieworld?

>
> Dann koennt ihr einfach in der Datei
> /site/modules/core/search/pdf/pdf2txt.pm
> das verwendete Modul an zwei Stellen aendern.
> Zum einen (um Zeile 129+/-10):
> eval 'use MD5';
> in
> eval 'require Digest::MD5';
>
> und um Zeile 511 herum:
> $encrypt{'MD'} = new MD5;
> in
> $encrypt{MD} = new Digest::MD5;
>
> dann sollte es eigentlich gehen (kann das aber im Moment nicht testen).
> Angehaengt ist auch noch ein Patch, der das ganze automatisiert.
>
> Die XS-Variante von Digest::MD5 ist aber natuerlich um einiges schneller
> als der reine Perl-Code. Ich wuerde also (wenn es denn geht) Digest::MD5
> aus dem CPAN installieren und die Perl-Variante aus
> /site/modules/collection/Digest loeschen.
>
> Desweiteren muss ja offenbar noch Compress::Zlib installiert sein (ist
> auch bei aktuellem ActivePerl dabei und unter Linux ist die Installation
> meist kein Problem, weil ja zumindest die zlib schon vorhanden sein
> wird).
>
> Gruss
>  Christian
>
> --
> http://www.lackas.net/


----------------------------------------------------------------------------
----


> Index: pdf2txt.pm
> ===================================================================
> RCS file:
/home/cvsroot/master/i5/site/modules/core/search/pdf/pdf2txt.pm,v
> retrieving revision 1.1
> diff -u -r1.1 pdf2txt.pm
> --- pdf2txt.pm 2000/08/14 13:40:28 1.1
> +++ pdf2txt.pm 2001/02/16 15:35:41
> @@ -30,7 +30,7 @@
>  # . zlib http://www.cdrom.com/pub/infozip/zlib/
>  # . Compress::Zlib CPAN
>  # . uncompress UNIX uncompress command
> -# . MD5 CPAN
> +# . Digest::MD5 CPAN (or pure perl solutin Digest::Perl::MD5)
>  #
>  # Supported decoding methods:
>  # /ASCIIHexDecode
> @@ -126,12 +126,12 @@
>  }
>  # $Module_Error_Compress_Zlib = 1;
>
> -eval 'use MD5';
> -if ( $@ ){
> - print "!! PDF-Converter:  MD5 Module missing.\n";
> +eval 'require Digest::MD5';
> +if ($@) {
> + print "!! PDF-Converter:  Digest::MD5 Module missing.\n";
>   $Module_Error_MD5 = 1;
>  }
> -# $Module_Error_MD5 = 1;
> +
>
>  # ! use search::pdf::pdflzw;
>
> @@ -508,7 +508,8 @@
>
>   seek(PDFFH, 0, 0);
>
> - $encrypt{'MD'} = new MD5;
> +# $encrypt{'MD'} = new MD5;
> + $encrypt{MD} = new Digest::MD5;
>   $encrypt{'MD'}->reset;
>   $encrypt{'MD'}->add($passwd_pad);
>   $encrypt{'MD'}->add($encrypt{'O'});
> @@ -1285,4 +1286,4 @@
>   -1;
>  }
>
> -1;
> \ No newline at end of file
> +1;
>

© 2001, 2002 marchive.pl Christian Lackas

[HOME]   [MARCHIVE]   [INDEX]   [IMPERIA]   [IMPRESSUM]   [DELTA]