Re: Re: Perl 5.8 and Neomail

David schrieb:
> 
> Hi Torsten,
> 
> Thanks for the script, but this is exactly the same script I found in the
> archives. My guess is that some "carrige returns" are messed up in this
> script. I can't apply this patch. I need the original file or a neomail.pl
> file where the patch is already applied.

You could make the modifications by hand, the patch is not as long,
right.
For the CR there is dos2unix filename, which removes the CRs for you.

Torsten

> 
>  TIA,
>  /David
> 
> ---
> 
> Taken from the mail from <EMAIL: PROTECTED>
> Mon, 26 Aug 2002 16:21:42 -0700
> 
> ###########################################
> <quoted>
> Turns out there's a bit more that broke...  Here's a patch file to be
> used against the neomail 1.25 base.
> 
> Dump the contents into a file called "neomail.pl.patch" into your
> neomail source directory.  Type "patch < neomail.pl.patch" and it will
> patch the "neomail.pl" file.  You can now either run "./setup.pl"
> again to reinstall or you can copy the file into your /cgi-bin
> directory and set appropriate ownership and permissions...
> 
> ### BEGIN of neomail.pl.patch ###
> --- neomail.pl  Mon Aug 26 15:46:56 2002
> +++ /usr/local/neomail/cgi-bin/neomail.pl       Mon Aug 26 16:01:31
> 2002
> @@ -20,7 +20,7 @@
> 
> use strict;
> no strict 'vars';
> -push (@INC, '/var/neomail');
> +unshift (@INC, '/var/neomail');
> use CGI qw(:standard);
> use CGI::Carp qw(fatalsToBrowser);
> use Fcntl qw(:DEFAULT :flock);
> @@ -196,9 +196,10 @@
>    my $isvalid = 0;
>    @validfolders = @{&getfolders()};
>    if (param("folder")) {
> -      $folder = param("folder");
> +      my $basketcase=param("folder");
>       foreach my $checkfolder (@validfolders) {
> -         if ($folder eq $checkfolder) {
> +         if ($basketcase eq $checkfolder) {
> +            $folder = $checkfolder;
>             $isvalid = 1;
>             last;
>          }
> @@ -407,6 +408,7 @@
>                   ($filename eq '.') ||
>                   ($filename eq '..')
>                 ) {
> +           $filename =~ /^(.*)$/; $filename = $1; # untaint folder
>             push (@folders, $filename);
>             $totalfoldersize += ( -s "$folderdir/$filename" );
>          }
> ### END of neomail.pl.patch ###
> 
> -Jonathan
> 
> </quoted>
> ##########################################
> 
> Torsten
> 
> -------------------------------------------------------
> This sf.net email is sponsored by: viaVerio will pay you up to
> $1,000 for every account that you consolidate with us.
> http://ad.doubleclick.net/clk;4749864;7604308;v?
> http://www.viaverio.com/consolidator/osdn.cfm
> _______________________________________________
> NeoMail-users mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/neomail-users


-------------------------------------------------------
This sf.net email is sponsored by: viaVerio will pay you up to
$1,000 for every account that you consolidate with us.
http://ad.doubleclick.net/clk;4749864;7604308;v?
http://www.viaverio.com/consolidator/osdn.cfm