#!/usr/bin/perl
#######################################
#  File: netscapeL2kmail.cgi
#  By: Tim Coston
#  Date: 02 May 01
#  Last Modified:  02 May 01 tlc
#
#
# Coston Enterprises, Inc.
#  www.coston.net
########################################
$scriptname = "netscapeL2kmail.cgi";
$ver = "1.00";
########################################

###########################################
#  Change the below variables to suite your system
###########################################

        #  Absolute Path to Netscape ( Linux ) Directory
$netscapeL_dir = "/home/mike/mmail/Threads.sbd";

        #  Absolute Path to kMail Directory
$kmail_dir = "/home/mike/kmail";

        #  Absolute Path to this CGI Directory
$cgi_dir = "/home/mike/cei";


opendir(EVO, "$netscapeL_dir");
@net_files = readdir(EVO);
closedir(EVO);

$net_count = 0;
foreach (@net_files) {
        next if($_ eq "."||$_ eq "..");
        $net_count++;
} #foreach


opendir(KMA, "$kmail_dir");
@km_files = readdir(KMA);
closedir(KMA);

$km_count = 0;
foreach (@km_files) {
        next if($_ eq "."||$_ eq "..");
        $km_count++;
} #foreach





print qq~
CEIEvolution! kmail2eudora - Mail Conversion
Path Data:
    Netscape ( Linux )  Dir:  $netscapeL_dir
       File Count:  $net_count
    kMail Dir:   $kmail_dir
       File Count:  $km_count
    CEIEvolution Dir:  $cgi_dir

Conversion in Progress.......

~;


foreach $one (@net_files) {
        next if($one eq "." || $one eq ".." || $one =~ m#\.summary$#);
        if(-f "$netscapeL_dir/$one") { $type = "mail file"; }
        elsif (-d "$netscapeL_dir/$one") { $type = "directory"; }
        else { $type = "unknown"; }
        print "$one -$type\n";
        unless($one =~ m#^\.#) {
                if(-f "$netscapeL_dir/$one") {
                        next if($one =~ m#\.summary$#);
                         $newone = $one;
                        if($newone eq "Inbox") { $newone = "inbox";   }
                        if($newone eq "Trash") { $newone = "trash"; }
                        if($newone eq "Sent") { $newone = "sent-mail";  }

                        $new_file = "/$newone";
                        print "  -New MBOX:  $new_file\n";
                        open(ONE, "$netscapeL_dir/$one");
                        @orig_mbx = <ONE>;
                        close(ONE);

                        open(ONE2, ">>$kmail_dir/$newone");
                        print ONE2 @orig_mbx;
                        close(ONE2);
                        $mbx_files++;

                } #if
        } #unless

        if(-d "$netscapeL_dir/$one") {
                opendir(SUB, "$netscapeL_dir/$one");
                @sub_fil = readdir(SUB);
                closedir(SUB);

                foreach $two(@sub_fil) {
                        next if($two eq "." || $two eq ".." || $two =~ m#\.summary$# );
                        if(-f "$netscapeL_dir/$one/$two") {
                                $newone = "$one";
                                $newone =~ s#\.sbd$##;
                                $newone = "." . "$newone" . ".directory";
                                print "     - new file:  /$newone/$two\n";

                                open(TWO, "$netscapeL_dir/$one/$two");
                                @orig_mbx = <TWO>;
                                close(TWO);

                                unless(-d "$kmail_dir/$newone") { mkdir("$kmail_dir/$newone",0777);  chmod(0777, "$kmail_dir/$newone");  }
                                open(TWO2, ">>$kmail_dir/$newone/$two");
                                print TWO2 @orig_mbx;
                                close(TWO2);
                                $mbx_files++;

                         } #if
                } #foreach

        } #if


} #foreach


print qq~
$mbx_files files converted
----------------------
Comversion Complete

FREE TO DISTRIBUTE UNMODIFIED
Coston Enteprises, Inc.
www.coston.net
~;
exit;









#########################
# Header
#########################
sub ph {
unless($printed == 1) { print "Content-type:text/html\n\n"; print "<!---Dynamically created by another Great Script by Coston Enterprises! www.coston.net -->"; $printed = 1; }
} #sub ph