AgentM Systems nor Nasca Enterprises nor Bone::Easy nor Macperl is responsible for the comments made by AgentM. Remember, you can build any logical system with NOR.

THX AgentM,
I think so, that problem is in forking into separate proces. And you'r right I running script under winnt4 an win9x platform. I use same technique which merlyn describe in his Web Techniques Column 20. But no succes.

Anybody had same problem with forking under win32?
Whole problem is that my webserver probably terminate both child and parent processes, so ftp transfer is interupted before it can end.

Any suggestions? I will be glad if there can be other way than using ext. ftp program.
I will try to separate script into two independent scripts and start ftp script by system call. This should work but this isn't purist solution.

Li Tin O've Weedle
mad Tsort's philosopher

#!/usr/local/bin/perl

# --------------------------------------------------------------------
+-----
#global config

$local_dir = "C:/Temp/";
$transfered_dir = "C:/Temp/Transfered/";
@file_types = ("\.doc", "\.pdf", "\.prn", "\.ps");

$ftp_site = "ftp.domain.com";
$ftp_timeout = 30;
$ftp_retry = 3;
$ftp_user = "test";
$ftp_pass = "1234";

$log = "1";
$log_file_path = "logs/ftp.log";
$file_lock = "";
$show_logs_lines = 20;

$ok_redirect_to = "modules/templates/template4.html";
$ko_redirect_to = "modules/templates/template3.html";
$run_redirect_to = "modules/templates/template2.html";
$indicator_file_path = "logs/ftptransfer.tmp";
$ftp_template[0] = "modules/templates/template1.html";

# --------------------------------------------------------------------
+-----
# main program body - no changes needed under this line

use Net::FTP;

use CGI;

$|++;

$query = new CGI;



if ( $query -> param('method') eq "generate" ) { &ftp_generate; }
elsif ( $query -> param('method') eq "transfer" ) { &ftp_transfer; }
else { die; }



# --------------------------------------------------------------------
+-----

sub ftp_generate {
    $html_template_path = $ftp_template[$query -> param('template')];
    if ( $html_template_path eq "" ) { $html_template_path = $ftp_temp
+late[0]; }
    &ftp_read_html;
    $ftp_html =~ s/<<log>>/&ftp_read_log/isge;
    $ftp_html =~ s/<<dir>>/&ftp_read_dir/isge;
    print $ftp_html."\n";
}

sub ftp_transfer {
    if ( &ftp_read_indicator ) {
    &ftp_write_indicator(1);
        &ftp_logging("#Transfer script started - from web"); 
    if ( &ftp_read_file ) {
        if ( fork() ) {
        print $query->redirect( -uri => $ok_redirect_to );
        exit;
        }
            else {
                close STDIN;
                close STDOUT;
                if ( &ftp_connect_to ) { &ftp_transfer_file; }
        }
    }
    else {
        &ftp_logging("No files to transfer!");
        print $query->redirect( -uri => $ko_redirect_to );
    }
    &ftp_write_indicator(0);
    }
}


# --------------------------------------------------------------------
+-----
# read file in dir and filter files to transfer
sub ftp_read_file {
    my ( $type, $name, $temp, @temp );

    if ( not opendir(DIR, $local_dir) ) {
    &ftp_logging("Can't open local dir");
    die;
    }
    @temp = readdir(DIR);
    closedir(DIR);

    foreach $name ( sort @temp ) {
    foreach $type ( @file_types ) {
         $temp = $local_dir . $name;
        if ( $name =~ /^[^\.]*($type)$/is and -f $temp ) {
        push( @files, $name );
        }
    }
    }
    $temp = @files;
    if ( $temp != 0 ) { return 1; }
    else { return 0; } 
}


# --------------------------------------------------------------------
+-----
# logging
sub ftp_logging {
    my ( @time, $i );
    if ( $log ne "" ) {
        if ( not open(LOG, ">>".$log_file_path) ) {
            die;
            }
        @time = localtime(time);
        $time[4] = $time[4] + 1;
        $time[5] = $time[5] + 1900;
    for ( $i=0; $i<@time; $i++ ) {
        if ( $time[$i] < 10 ) { $time[$i] = "0" . $time[$i]; }
    }
        if ( $file_lock ) { flock(LOG, 2); }
        print LOG "$time[3]/$time[4]/$time[5] $time[2]:$time[1]:$time[
+0]  \t @_ \r\n";
        close(LOG);
    }
}


# --------------------------------------------------------------------
+-----
# conect to ftp server
sub ftp_connect_to {

    if ( $ftp = Net::FTP->new($ftp_site) ) {
    &ftp_logging("Conected to $ftp_site");
    }
    else {
    &ftp_logging("Can't connect to $ftp_site");
    return 0;
    }
    if ( $ftp->login($ftp_user, $ftp_pass) and $ftp->binary() ) {
    &ftp_logging("Authentificated, transfer mode set");
    }
    else { return 0; }
    return 1;
}


# --------------------------------------------------------------------
+-----
# ftp transfer file
sub ftp_transfer_file {
    my ( $name, $counter, $attemp, $error );
    $counter = 0;

    &ftp_logging("Transfering files...");
    foreach $name ( @files ) {
    $error = 1;
    $attemp = 1;
    while ( $attemp <= $ftp_retry ) {
        if ( $ftp->put( $local_dir. $name ) and &ftp_sum_check($name) 
+) {
        $attemp = $ftp_retry + 1; 
        $counter++;
        if ( not -d "$transfered_dir" ) { mkdir( $transfered_dir ); }
        rename ( $local_dir. $name, $transfered_dir. $name );
        &ftp_logging("$name transfered");
        }
        else {
        &ftp_logging("$name not transfered - attemp $attemp");
        $attemp++;
                $ftp->quit;
                sleep 10;
                &ftp_connect_to;
        }
    }
    }

    $ftp->quit;
    &ftp_logging("Transfer complete, $counter file transfered");
}


# --------------------------------------------------------------------
+-----
# check transfered file
sub ftp_sum_check {
    my ( $name, @file );
    $name = @_[0];
    @file = stat( $local_dir. $name );

    if ( $ftp->size($name) == $file[7] ) { 
    &ftp_logging("Control size of file $name validated - $file[7] byte
+s");
    return 1; 
    }
    else {
    &ftp_logging("File $name has bad control size - should be $file[7]
+ bytes");
    return 0;
    }
}


# --------------------------------------------------------------------
+-----
# read data from log
sub ftp_read_log {
    my ( $line, $temp, $temp1, $html );
    if ( not open(FILE, $log_file_path) ) {
    &ftp_logging( "Can't open log file." ); 
    die;
    }
    if ( $file_lock ) { flock(FILE, 1); }
    @logdata = ();
    while ( $line = <FILE> ) {
    chomp($line);
    push(@logdata, $line);
    }
    close(FILE);

    if ( $query->param('log') > $show_logs_lines ) { $show_logs_lines 
+= $query->param('log'); }
    $temp = @logdata;
    if ( $temp > $show_logs_lines ) { $temp = $temp - $show_logs_lines
+; }
    splice ( @logdata, 1, $temp );

    foreach $line ( @logdata ) {
    $html .= $line."<br>";
    }
    return $html;
}


# --------------------------------------------------------------------
+-----
# read file in dir and filter files to transfer
sub ftp_read_dir {
    my ( $type, $name, $temp, @temp, $html );

    $html .= "<b>Files to transfer:</b><br>";
    if ( not opendir(DIR, $local_dir) ) { $html .= "nemohu otevrit adr
+esar<br>"; }
    @temp = readdir(DIR);
    closedir(DIR);
    foreach $name ( sort @temp ) {
    $temp = $local_dir . $name;
    if ( -f $temp ) { $html .= $name."<br>"; }
    }

    $html .= "<p><b>Transfer files:</b><br>";
    if ( not opendir(DIR, $transfered_dir) ) { $html .= "nemohu otevri
+t adresar<br>"; }
    @temp = readdir(DIR);
    closedir(DIR);
    foreach $name ( sort @temp ) {
    $temp = $transfered_dir . $name;
    if ( -f $temp ) { $html .= $name."<br>"; }
    }
    return $html;
}


# --------------------------------------------------------------------
+-----
# read indicatot file and check if scripts allready not running 
sub ftp_read_indicator {
    my ( $line );
    if ( not open(IND, $indicator_file_path) ) {
    &ftp_logging( "Can't open indicator file." ); 
    die;
    }
    if ( $file_lock ) { flock(IND, 1); }
    @logdata = ();
    $line = <IND>;
    close(IND);
    if ( $line eq "0" ) { return 1; }
    else { return 0; }
}


# --------------------------------------------------------------------
+-----
# write indicator to file
sub ftp_write_indicator {
    my ( $line ) = @_[0];
    if ( not open(IND, ">".$indicator_file_path) ) {
    &ftp_logging( "Can't open indicator file." ); 
    die;
    }
    if ( $file_lock ) { flock(IND, 2); }
    print IND "$line";
    close(IND);
}


# --------------------------------------------------------------------
+-----
# read html template file
sub ftp_read_html {
    my ( @html );
    if ( open(HTML, $html_template_path) ){
    @html=<HTML>;
    close(HTML);
    }
    else {
    &ftp_logging( "Can't open html read template file. file wasn't fou
+nd at $html_template_path." ); 
    die;
    }
    $ftp_html = join( "", @html );
}
[download]

I made some changes before posting, hope that code is fine.

Li Tin O've Weedle
mad Tsort's philosopher