--schnipp
sub copyfile 
    {
        my $self     = shift;
        my $src        = $_[0];
        my $param     = $_[1];
        my $dest    = "left";
        my $file     = undef;
        my @data    = undef;
        my $srcfile  = "";
        my $destfile = "";

        if (defined($param))        
        {
            @data  &
nbsp; = @{$param};
        }

        if ($src eq "left") 
        {
            $dest = "right";
        }

        foreach $file (@data)
        {
            $srcfile     = $self->{$src."path"}.$file;
            $destfile     = $self->{$dest."path"}.$file;

            if (defined($self->{$src."ftp"}))
            {
               
 if (defined($self->{$dest."ftp"}))
               
 {    # ftp -> copy;
               
     $self->{$src."ftp"}->get  ($srcfile,          "c:/temp/".$file );
               
     $self->{$dest."ftp"}->put ("c:/temp/".$file, $destfile );
               
     unlink "c:/temp/".$file;             &nb
sp;      
               
 } else {    # ftp -> get;
               
     $self->{$src."ftp"}->get($srcfile, $destfile );
               
 }
            } else {
               
 if (defined($self->{$dest."ftp"}))
               
 {    # ftp -> put;
               
     $self->{$dest."ftp"}->put($srcfile, $destfile);
               
 } else {    # copy;
               
     copy ($srcfile, $destfile);
               
 }
            }
        }
        
        $self->reloaddir($src);
        $self->reloaddir($dest);
    }
schnapp--