view release on metacpan or  search on metacpan

lib/CTK/Plugin/SFTP.pm  view on Meta::CPAN

            if ($sftp->put($file, $name)) {
                $statput = 1;
            } else {
                $self->error(sprintf("Can't put file %s to %s: %s", $name, $wop, $sftp->error));
                return;
            }
        }

        # Get file size if put is success
        if ($statput == 1) {
            if (my $rstat = $sftp->stat($name)) {
                $fs_remote = $rstat->size || 0;
            } else {
                $self->error(sprintf("The stat() failed: %s", $sftp->error)) if $sftp->error;
            }
        }

        # Remove file
        if ($fs_remote == $fs_local) { # Ok
            $count++ if $statput == 1;
            if ($op =~ /^move/i) {
                unlink($name) or $self->error(sprintf("Can't delete file \"%s\": %s", $name, $!));
            }
        } else { # Error

lib/CTK/Util.pm  view on Meta::CPAN

sub eqtime {
    # Делаем файл такой же датой создания и модификации
    my $src = shift // '';
    my $dst = shift // '';
    return 0 unless length($src);
    return 0 unless length($dst);
    unless ($src && -e $src) {
        carp("eqtime: Can't open file to read \"$src\": $!");
        return 0;
    }
    unless (utime((stat($src))[8,9],$dst)) {
        carp("eqtime: Can't change access and modification times on file \"$dst\": $!");
        return 0;
    }
    return 1;
}
sub preparedir {
    my $din = shift // return 0;
    my $chmod = shift; # 0777

    my @dirs;