Category: FTP stuff
Author/Contact Info Leonid Mamtchenkov aka TVSET (
Description: Little thingy to watch over directory listing changes on the remoted FTP host. Spits out the differences in GNU diff format. All listings are stored in files. Works recursively down from the top directory specified in settings.
#!/usr/bin/perl -w

=head1 NAME - Simple reporting for updates on remote FTP server.


When run first time, this script generates a file with recursive listi
of some directory on remote FTP server.  Any other script execution wi
cause it to report differences in directory listing using GNU diff for


use Text::Diff;
use Net::FTP::Recursive;
use strict;

# Settings
my $host = 'ftp.linux.dom';         # Server
my $user = 'anonymous';             # Username
my $pass = '';           # Password
my $dir  = '/pub/people/leonid/';   # Top directory to monitor
my $listing_file = '/tmp/ftp.real'; # Keep listing in this file
my $listing_temp = '/tmp/ftp.temp'; # Temporary file

# Get FTP listing
open (OUT, ">$listing_temp") or die "Couldn't open $listing_temp ($@)"
my $ftp = new Net::FTP::Recursive($host) or die "Couldn't connect ($@)
$ftp->login($user,$pass) or die "Couldn't login ($@)";
$ftp->cwd($dir) or die "Couldn't change directory ($@)";
close (OUT);

# Create empty data file if does not exist
if (! -e $listing_file) {
    warn "No local listing...creating empty";
    open (OUT, ">$listing_file") or die "Couldn't open $listing_file($
    close (OUT);

# Compare
open (IN1, "<$listing_file") or die "Couldn't open $listing_file ($@)"
open (IN2, "<$listing_temp") or die "Couldn't open $listing_temp ($@)"
my $diff = diff \*IN1, \*IN2;
close (IN2);
close (IN1);

# Clean-up
rename ($listing_temp, $listing_file) or warn "Couldn't update info ($

# Output results
print $diff,"\n";

=head1 AUTHOR

Leonid Mamtchenkov <>