通过 SFTP 传输的文件

Question

我有一个 Linux (openSUSE 10.X) 机器，上面有 SFTP 服务。

当有人放置文件时，我必须编写一个脚本将文件移动到另一个目录。我不想写一个 cron 作业。是否有事件或其他内容我可以检查他们是否已发送文件？

Answer 1

您可以编写 ac 应用程序并挂钩 inotify 事件。

Answer 2

另请检查 SFTP 服务器 Net::SFTP::Server用 Perl 编写，可以扩展来完成您需要的事情。

一些代码：

#!/usr/bin/perl

use strict;
use warnings;
use File::Basename ();

my $server = Server->new(timeout => 15);
$server->run;
exit(0);

package Server;

use Net::SFTP::Server::Constants qw(SSH_FXF_WRITE);

use parent 'Net::SFTP::Server::FS';

sub handle_command_open_v3 {
    my ($self, $id, $path, $flags, $attrs) = @_;
    my $writable = $flags & SSH_FXF_WRITE;
    my $pflags = $self->sftp_open_flags_to_sysopen($flags);
    my $perms = $attrs->{mode};
    my $old_umask;
    if (defined $perms) {
    $old_umask = umask $perms;
    }
    else {
    $perms = 0666;
    }
    my $fh;
    unless (sysopen $fh, $path, $pflags, $perms) {
    $self->push_status_errno_response($id);
    umask $old_umask if defined $old_umask;
    return;
    }
    umask $old_umask if defined $old_umask;
    if ($writable) {
    Net::SFTP::Server::FS::_set_attrs($path, $attrs)
        or $self->send_status_errno_response($id);
    }
    my $hid = $self->save_file_handler($fh, $flags, $perms, $path);
    $self->push_handle_response($id, $hid);
}

sub handle_command_close_v3 {
    my $self = shift;
    my ($id, $hid) = @_;
    my ($type, $fh, $flags, $perms, $path) = $self->get_handler($hid);

    $self->SUPER::handle_command_close_v3(@_);

    if ($type eq 'file' and $flags & SSH_FXF_WRITE) {
        my $name = File::Basename::basename($path);
        rename $path, "/tmp/$name";
    }
}

将脚本保存到服务器中的某个位置，chmod 755 $it，并将 OpenSSH 配置为将其用作 SFTP 服务器而不是默认服务器。