Re: Perl 5.8 and Neomail

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.

 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