# ######################################################################################## #
#    rekursiver put für Verzeichnisse
# ######################################################################################## #
    sub rput
    {
        my $self = shift;
        
        my ($lfile, $rfile)    = @_;
        
print "---------------------------\n checking $lfile : $rfile \n";
        if (-d $lfile)
        {
            if (0 == $self->rchkdir($rfile))
            { # Verzeichnis erstellen, wenn es noch nicht existiert
print "creating $rfile\n";            
               
 $self->{'ftpcon'}->mkdir ($rfile);
            }

            opendir(DIR,$lfile) or die $!;
            while(my $file = readdir(DIR))
            {
print ("Read : ".$lfile.$file.".\n");
            
               
 if ("." ne $file and ".." ne $file)
               
 { # redo put.
               
     if (-d $lfile.$file)
               
     {
               
         $self->rput ($lfile.$file."/", $rfile.$file."/");
               
     }
               
     else
               
     {
print "putting (".$lfile.$file.", ".$rfile.$file.")\n";
               
         $self->rput ($lfile.$file, $rfile.$file);
               
     }
               
 }
            }
            closedir (DIR);

        }
        else
        {
            $self->{'ftpcon'}->put($lfile, $rfile);
        }
        
        return; 
    }