summaryrefslogtreecommitdiffstats
path: root/emacs.d/nxhtml/nxhtml/html-upl/ftpsync.pl
diff options
context:
space:
mode:
Diffstat (limited to 'emacs.d/nxhtml/nxhtml/html-upl/ftpsync.pl')
-rw-r--r--emacs.d/nxhtml/nxhtml/html-upl/ftpsync.pl700
1 files changed, 0 insertions, 700 deletions
diff --git a/emacs.d/nxhtml/nxhtml/html-upl/ftpsync.pl b/emacs.d/nxhtml/nxhtml/html-upl/ftpsync.pl
deleted file mode 100644
index 729d964..0000000
--- a/emacs.d/nxhtml/nxhtml/html-upl/ftpsync.pl
+++ /dev/null
@@ -1,700 +0,0 @@
-#!/usr/bin/perl
-#
-# ftpsync.pl
-#
-# See attached README file for any details, or call
-# ftpsync.pl -h
-# for quick start.
-#
-# LICENSE
-#
-# FTPSync.pl (ftpsync) is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-#
-# FTPSync.pl (ftpsync) is also eMail-Ware, which means that the initial author
-# (Christoph Lechleitner) would like to get an eMail at ftpsync@ibcl.at, if
-# - if anyone uses the script on production level,
-# - if anyone distributes or advertises it in any way,
-# - if anyone starts to (try to) improve it.
-#
-#
-################################################################################
-
-#
-# Options etc.
-#
-#print "Starting imports.\n"; # For major problem debugging
-printf STDERR "argv=@ARGV\n";
-
-use File::Find;
-use File::Listing;
-use Net::FTP;
-use strict;
-# flushing ...
-use IO::Handle;
-STDOUT->autoflush(1);
-STDERR->autoflush(1);
-
-sub dosync();
-sub print_syntax();
-sub print_options();
-sub buildremotetree();
-sub buildlocaltree();
-sub listremotedirs();
-sub parseRemoteURL();
-
-# Option Variables
-#print "Defining variables.\n"; # For major problem debugging
-# meta
-my $returncode=0;
-my $configfile=$ENV{"HOME"}."/.ftpsync";
-# basics
-my $localdir="";
-my $remoteURL="";
-my $syncdirection="";
-my $ftpuser="ftp";
-my $ftppasswd="anonymous";
-my $ftpserver="localhost";
-my $ftpdir="";
-my $ftptimeout=120;
-my $syncoff=0;
-# verbosity
-my $doverbose=1;
-my $dodebug=0;
-my $doquiet=0;
-my $doinfoonly=0;
-my $infotext="";
-my $docheckfirst=0;
-
-# Read command line options/parameters
-#print "Reading command line options.\n"; # For major problem debugging
-my $curopt;
-my @cloptions=();
-for $curopt (@ARGV) {
- if ($curopt =~ /^cfg=/) {
- $configfile=$';
- if (! -r $configfile) { print "Config file does not exist: ".$configfile."\n"; $returncode+=1; }
- } else {
- push @cloptions, $curopt;
- }
-}
-
-# Read Config File, if given
-my @cfgfoptions=();
-if ($configfile ne "") {
- if (-r $configfile) {
- #print "Reading config file.\n"; # For major problem debugging
- open (CONFIGFILE,"<$configfile");
- while (<CONFIGFILE>) {
- $_ =~ s/([ \n\r]*$|\.\.|#.*$)//gs;
- if ($_ eq "") { next; }
- if ( ($_ =~ /[^=]+=[^=]+/) || ($_ =~ /^-[a-zA-Z]+$/) ) { push @cfgfoptions, $_; }
- }
- close (CONFIGFILE);
- } # else { print "Config file does not exist.\n"; } # For major problem debugging
-} # else { print "No config file to read.\n"; } # For major problem debugging
-
-# Parse Options/Parameters
-print "Parsing all options.\n"; # For major problem debugging
-my $noofopts=0;
-for $curopt (@cfgfoptions, @cloptions) {
- if ($curopt =~ /^-[a-zA-Z]/) {
- my $i;
- for ($i=1; $i<length($curopt); $i++) {
- my $curoptchar=substr($curopt,$i,1);
- $noofopts++;
- if ($curoptchar =~ /[cC]/) { $docheckfirst=1; }
- elsif ($curoptchar =~ /[dD]/) { $dodebug=1; $doverbose=1; $doquiet=0; }
- elsif ($curoptchar =~ /[gG]/) { $syncdirection="get"; }
- elsif ($curoptchar =~ /[hH?]/) { print_syntax(); exit 0; }
- elsif ($curoptchar =~ /[iI]/) { $doinfoonly=1; }
- elsif ($curoptchar =~ /[pP]/) { $syncdirection="put"; }
- elsif ($curoptchar =~ /[qQ]/) { $dodebug=0; $doverbose=0; $doquiet=1; }
- elsif ($curoptchar =~ /[vV]/) { $doverbose++; }
- else { print "ERROR: Unknown option: \"-".$curoptchar."\"\n"; $returncode+=1; }
- }
- }
- elsif ($curopt =~ /^ftp:\/\/(([^@\/\\\:]+)(:([^@\/\\\:]+))?@)?([a-zA-Z01-9\.]+)\/(.*)/) {
- $remoteURL = $curopt;
- parseRemoteURL();
- if ( $syncdirection eq "" )
- { $syncdirection="get"; }
- }
- elsif ($curopt =~ /^[a-z]+=.+/) {
- my ($fname, $fvalue) = split /=/, $curopt, 2;
- if ($fname eq "cfg") { next; }
- elsif ($fname eq "ftpdir") { $ftpdir =$fvalue;
- if ($ftpdir ne "/") { $ftpdir=~s/\/$//; }
- if ( $syncdirection eq "" ) { $syncdirection="get"; }
- }
- elsif ($fname =~ m/ftppass(w(or)?d)?/i)
- { $ftppasswd=$fvalue;
- if ( $syncdirection eq "" ) { $syncdirection="get"; }
- }
- elsif ($fname eq "ftpserver") { $ftpserver =$fvalue;
- if ( $syncdirection eq "" ) { $syncdirection="get"; }
- }
- elsif ($fname eq "ftpuser") { $ftpuser =$fvalue;
- if ( $syncdirection eq "" ) { $syncdirection="get"; }
- }
- elsif ($fname eq "localdir") { $localdir =$fvalue; $localdir=~s/\/$//;
- if ( $syncdirection eq "" ) { $syncdirection="put"; }
- }
- elsif ($fname eq "timeout") { if ($fvalue>0) { $ftptimeout =$fvalue; } }
- }
- else {
- if ($localdir eq "") {
- $localdir = $curopt;
- if ( $syncdirection eq "" )
- { $syncdirection="put"; }
- } else {
- print "ERROR: Unknown parameter: \"".$curopt."\"\n"; $returncode+=1
- }
- }
-}
-if ($noofopts == 0) { print_syntax(); exit 0; }
-
-if($ftpuser eq "?") { print "User: "; $ftpuser=<STDIN>; chomp($ftpuser); }
-if($ftppasswd eq "?") { print "Password: "; $ftppasswd=<STDIN>; chomp($ftppasswd); }
-
-if ($dodebug) { print_options(); }
-# check options
-if ( ($localdir eq "") || (! -d $localdir) )
-{ print "ERROR: Local directory does not exist: ".$localdir."\n"; $returncode+=1; }
-#if ($localdir eq "") { print "ERROR: No localdir given.\n"; $returncode+=1; }
-#if ( ($remoteURL eq "") { print "ERROR: No remoteURL given.\n"; $returncode+=1; }
-if ($ftpserver eq "") { print "ERROR: No FTP server given.\n"; $returncode+=1; }
-if ($ftpdir eq "") { print "ERROR: No FTP directory given.\n"; $returncode+=1; }
-if ($ftpuser eq "") { print "ERROR: No FTP user given.\n"; $returncode+=1; }
-if ($ftppasswd eq "") { print "ERROR: No FTP password given.\n"; $returncode+=1; }
-if ($returncode > 0) { die "Aborting due to missing or wrong options! Call ftpsync -? for more information.\n"; }
-
-
-#print "Exiting.\n"; exit 0;
-
-if ($dodebug) { print "\nFind out if ftp server is online & accessible.\n"; }
-my $doftpdebug=($doverbose > 2);
-my $ftpc = Net::FTP->new($ftpserver,Debug=>$doftpdebug,Timeout=>$ftptimeout) || die "Could not connect to $ftpserver\n";
-if ($dodebug) { print "Logging in as $ftpuser with password $ftppasswd.\n" }
-$ftpc->login($ftpuser,$ftppasswd) || die "Could not login to $ftpserver as $ftpuser\n";
-my $ftpdefdir=$ftpc->pwd();
-if ($dodebug) { print "Remote directory is now ".$ftpdefdir."\n"; }
-if ($ftpdir !~ /^\//) # insert remote login directory into relative ftpdir specification
-{ if ($ftpdefdir eq "/")
- { $ftpdir = $ftpdefdir . $ftpdir; }
- else
- { $ftpdir = $ftpdefdir . "/" . $ftpdir; }
- if (!$doquiet)
- { print "Absolute remote directory is $ftpdir\n"; }
-}
-if (substr($ftpdir, -1) eq "/") {
- if (!$doquiet)
- { print " Remote directory ends in /, removing this\n"; }
- chop($ftpdir);
-}
-if ($dodebug) { print "Changing to remote directory $ftpdir.\n" }
-$ftpc->binary()
- or die "Cannot set binary mode :\n\t" . $ftpc->message;
-$ftpc->cwd($ftpdir)
- or die "Cannot cwd to $ftpdir :\n\t" . $ftpc->message;
-if ($ftpc->pwd() ne $ftpdir) {
- my $pwd = $ftpc->pwd();
- die "Could not change to remote base directory $ftpdir (at $pwd)\n"; }
-if ($dodebug) { print "Remote directory is now ".$ftpc->pwd()."\n"; }
-
-if (! $doquiet) { print "\nDetermine s offset.\n"; }
-if ($syncdirection eq "put") { clocksync($ftpc,"syncfile"); }
-
-# local & remote tree vars
-#chdir $localdir;
-my $ldl=length($localdir) + 1;
-#my $ldl=length($localdir);
-my %localfiledates=();
-my %localfilesizes=();
-my %localdirs=();
-my %locallinks=();
-
-my %remotefilesizes=();
-my %remotefiledates=();
-my %remotedirs=();
-my %remotelinks=();
-my $curremotesubdir="";
-
-# Build local & remote tree
-if (! $doquiet) { print "\nBuilding local file tree.\n"; }
-buildlocaltree();
-if (! $doquiet) { print "\nBuilding remote file tree.\n"; }
-buildremotetree();
-listremotedirs();
-#if ($dodebug) { print "Quitting FTP connection.\n" }
-#$ftpc->quit();
-
-#print "Exiting.\n"; exit 0;
-
-# Work ...
-if ($doinfoonly) { $docheckfirst=0; }
-if ($docheckfirst)
-{ print "Simulating synchronization.\n";
- $doinfoonly=1;
- dosync();
- $doinfoonly=0;
- print "\nOK to really update files? (y/n) [n] ";
- my $yn=<STDIN>;
- if ($yn =~ /^y/i)
- { print "OK, going to do it.\n";
- }
- else
- { print "OK, exiting without actions.\n";
- exit 1;
- }
-}
-if ($doinfoonly) { print "\nSimulating synchronization.\n"; }
-elsif (! $doquiet) { print "\nStarting synchronization.\n"; }
-dosync();
-
-if (!$doquiet) { print "Done.\n"; }
-
-if ($dodebug) { print "Quitting FTP connection.\n" }
-$ftpc->quit();
-
-exit 0;
-
-
-
-#
-# Subs
-#
-
-sub buildlocaltree() {
- find (\&noticelocalfile, $localdir."/");
- sub noticelocalfile {
- if ($ldl > length($File::Find::name)) { return; }
- #printf "name=%s, length(name)=%d, ldl=$ldl\n", $File::Find::name, length($File::Find::name);
- my $relfilename=substr($File::Find::name,$ldl);
- if (length($relfilename) == 0) { return; }
- if (-d $_) {
- if ($dodebug) { print "Directory: ".$File::Find::name."\n"; }
- elsif (! $doquiet) { print ":"; }
- $localdirs{$relfilename}="$relfilename";
- }
- elsif (-f $_) {
- #my @curfilestat=lstat $File::Find::name;
- my @curfilestat=lstat $_;
- my $curfilesize=$curfilestat[7];
- my $curfilemdt=$curfilestat[9];
- if ($dodebug) { print "File: ".$File::Find::name."\n";
- print "Modified ".$curfilemdt."\nSize ".$curfilesize." bytes\n"; }
- elsif (! $doquiet) { print "."; }
- $localfiledates{$relfilename}=$curfilemdt;
- $localfilesizes{$relfilename}=$curfilesize;
- }
- elsif (-l $_) {
- if ($dodebug) { print "Link: ".$File::Find::name."\n"; }
- elsif (! $doquiet) { print ","; }
- $locallinks{$relfilename}="$relfilename";
- } else {
- #print "u ".$File::Find::name."\n";
- if (! $doquiet) { print "Ignoring file of unknown type: ".$File::Find::name."\n"; }
- }
- #if (! ($doquiet || $dodebug)) { print "\n"; }
- #print "File mode is ".@curfilestat[2]."\n";
- }
- if ($dodebug) {
- print "Local dirs (relative to ".$localdir."/):\n";
- my $curlocaldir="";
- foreach $curlocaldir (keys(%localdirs))
- { print $curlocaldir."/\n"; }
- print "Local files (relative to ".$localdir."/):\n";
- my $curlocalfile="";
- foreach $curlocalfile (keys(%localfiledates))
- { print $curlocalfile."\n"; }
- }
-}
-
-
-sub buildremotetree() {
- my @currecursedirs=();
- #$ftpc->ls()
- # or die $ftpc->message . "\nCannot ls remote dir " . $ftpc->pwd();
- my @rfl = $ftpc->dir();
- # or @rfl=(); # we have to survive empty remote directories !!!
- my $currf="";
- my $curyear = (gmtime(time))[5] + 1900;
- my %monthtonr=();
- $monthtonr{"Jan"}=1; $monthtonr{"Feb"}=2; $monthtonr{"Mar"}=3; $monthtonr{"Apr"}=4; $monthtonr{"May"}=5; $monthtonr{"Jun"}=6;
- $monthtonr{"Jul"}=7; $monthtonr{"Aug"}=8; $monthtonr{"Sep"}=9; $monthtonr{"Oct"}=10; $monthtonr{"Nov"}=11; $monthtonr{"Dec"}=12;
- if ($dodebug) { print "Remote pwd is ".$ftpc->pwd()."\nDIRing.\n"; }
- my $curlsline;
- foreach $curlsline (parse_dir(\@rfl)) {
- my ($cfname,$cftype,$cfsize,$cftime,$mode)=@$curlsline;
- #if ($dodebug) { print "Analysing remote file/dir ".$currf."\n" };
- if ( $cftype ) {
- if ($cfname eq ".") { next; }
- if ($cfname eq "..") { next; }
- if (substr($cftype,0,1) eq 'l') { # link, rest of string = linkto
- my $curnrl;
- if ($curremotesubdir eq "") { $curnrl = $cfname; }
- else { $curnrl = $curremotesubdir."/".$cfname; }
- $remotelinks{$curnrl}=$cfname;
- if ($dodebug) { print "Link: ".$curnrl." -> ".$cfname."\n"; }
- }
- elsif ($cftype eq 'd') {
- my $curnewrsd;
- if ($curremotesubdir eq "") { $curnewrsd = $cfname; }
- else { $curnewrsd = $curremotesubdir."/".$cfname; }
- $remotedirs{$curnewrsd}=$curnewrsd;
- if ($dodebug) { print "Directory: ".$curnewrsd."\n"; }
- elsif (! $doquiet) { print ":"; }
- push @currecursedirs, $cfname;
- }
- elsif ($cftype eq 'f') { #plain file
- my $curnewrf;
- if ($curremotesubdir eq "") { $curnewrf = $cfname; }
- else { $curnewrf = $curremotesubdir."/".$cfname; }
- #$remotefiledates{$curnewrf}=$cftime;
- $remotefiledates{$curnewrf}=$ftpc->mdtm($cfname)+$syncoff;
- if ($remotefiledates{$curnewrf} le 0) { die "Timeout detecting modification time of $curnewrf\n"; }
- $remotefilesizes{$curnewrf}=$cfsize;
- if ($remotefilesizes{$curnewrf} lt 0) { die "Timeout detecting size of $curnewrf\n"; }
- if ($dodebug) { print "File: ".$curnewrf."\n"; }
- elsif (! $doquiet) { print "."; }
- }
- elsif (! $doquiet) { print "Unkown file: $curlsline\n"; }
- }
- elsif ($dodebug) { print "Ignoring.\n"; }
- }
- #recurse
- my $currecurseddir;
- foreach $currecurseddir (@currecursedirs)
- { my $oldcurremotesubdir;
- $oldcurremotesubdir=$curremotesubdir;
- if ($curremotesubdir eq "") { $curremotesubdir = $currecurseddir; }
- else { $curremotesubdir .= "/".$currecurseddir; }
- my $curcwddir="";
- if ($ftpdir eq "/")
- { $curcwddir=$ftpdir.$curremotesubdir; }
- else
- { $curcwddir=$ftpdir."/".$curremotesubdir; }
- if ($dodebug) { print "Change dir: ".$curcwddir."\n"; }
- $ftpc->cwd($curcwddir)
- or die "Cannot cwd to $curcwddir :\n\t" . $ftpc->message ;
- if ($ftpc->pwd() ne $curcwddir) {
- die "Could not cwd to $curcwddir :\n\t" . $ftpc->message ; }
- if (! $doquiet) { print "\n"; }
- buildremotetree();
- $ftpc->cdup();
- $curremotesubdir = $oldcurremotesubdir;
- }
-}
-
-
-# Synchronize clocks.
-sub clocksync {
- my $conn = shift @_;
- my $fn = shift @_;
- my $fndidexist=1;
-
- if(! -f $fn) {
- open(SF, ">$fn") or die "Cannot create $fn for time sync option";
- close(SF);
- $fndidexist=0;
- }
- -z $fn or
- die "File $fn for time sync must be empty.";
- my $putsyncok=1;
- $conn->put($fn) or $putsyncok=0;
- if (!$putsyncok)
- { unlink($fn); # cleanup!
- die "Cannot send timesync file $fn";
- }
-
- my $now_here1 = time();
- my $now_there = $conn->mdtm($fn) or
- die "Cannot get write time of timesync file $fn";
- my $now_here2 = time();
-
- if ($now_here2 < $now_there) # remote is in the future
- { $syncoff=($now_there - $now_here1);
- $syncoff -= $syncoff % 60;
- $syncoff = 0-$syncoff;
- }
- else
- #if ($now_here1 > $now_there) # remote is the past # or equal
- { $syncoff=($now_here2 - $now_there);
- $syncoff -= $syncoff % 60;
- }
-
- $conn->delete($fn);
-
- my $hrs = int(abs($syncoff)/3600);
- my $mins = int(abs($syncoff)/60) - $hrs*60;
- my $secs = abs($syncoff) - $hrs*3600 - $mins*60;
- if (! $doquiet) {
- printf("Clock sync offset: %d:%02d:%02d\n", $hrs, $mins, $secs);
- }
- unlink ($fn) unless $fndidexist;
-}
-
-
-sub dosync()
-{
- chdir $localdir || die "Could not change to local base directory $localdir\n";
- if ($syncdirection eq "put") {
- # create dirs missing at the target
- if ($doinfoonly) { print "\nWould create new remote directories.\n"; }
- elsif (! $doquiet) { print "\nCreating new remote directories.\n"; }
- my $curlocaldir;
- foreach $curlocaldir (sort { return length($a) <=> length($b); } keys(%localdirs))
- { if (! exists $remotedirs{$curlocaldir})
- { if ($doinfoonly) { print $curlocaldir."\n"; next; }
- if ($doverbose) { print $curlocaldir."\n"; }
- elsif (! $doquiet) { print "d"; }
- if ($ftpc->mkdir($curlocaldir) ne $curlocaldir) { die "Could not create remote subdirectory $curlocaldir\n"; }
- }
- }
- # copy files missing or too old at the target, synchronize timestamp _after_ copying
- if ($doinfoonly) { print "\nWould copy new(er) local files.\n"; }
- elsif (! $doquiet) { print "\nCopying new(er) local files.\n"; }
- my $curlocalfile;
- foreach $curlocalfile (sort { return length($b) <=> length($a); } keys(%localfiledates))
- { my $dorefresh=0;
- if (! exists $remotefiledates{$curlocalfile}) {
- $dorefresh=1;
- $infotext="New: ".$curlocalfile." (".$localfilesizes{$curlocalfile}." bytes)\n";
- if ($doinfoonly) { print $infotext; next; }
- elsif ($doverbose) { print $infotext; }
- elsif (! $doquiet) { print "n"; }
- }
- elsif ($remotefiledates{$curlocalfile} < $localfiledates{$curlocalfile}) {
- $dorefresh=1;
- $infotext="Newer: ".$curlocalfile." (".$localfilesizes{$curlocalfile}." bytes, ".$localfiledates{$curlocalfile}." versus ".$remotefiledates{$curlocalfile}.")\n";
- if ($doinfoonly) { print $infotext; next; }
- if ($doverbose) { print $infotext; }
- elsif (! $doquiet) { print "u"; }
- }
- elsif ($remotefilesizes{$curlocalfile} != $localfilesizes{$curlocalfile}) {
- $dorefresh=1;
- $infotext="Changed (different sized): ".$curlocalfile." (".$localfilesizes{$curlocalfile}." versus ".$remotefilesizes{$curlocalfile}." bytes)\n";
- if ($doinfoonly) { print $infotext; next; }
- if ($doverbose) { print $infotext; }
- elsif (! $doquiet) { print "u"; }
- }
- if (! $dorefresh) { next; }
- if ($dodebug) { print "Really PUTting file ".$curlocalfile."\n"; }
- if ($ftpc->put($curlocalfile, $curlocalfile) ne $curlocalfile)
- { print STDERR "Could not put localfile $curlocalfile\n"; }
- my $retries = 3;
- while ( ($ftpc->size($curlocalfile) != (lstat $curlocalfile)[7]) and ($retries-- > 0) )
- { if (! $doquiet) { print "Re-Transfering $curlocalfile\n"; }
- if ($ftpc->put($curlocalfile, $curlocalfile) ne $curlocalfile)
- { print STDERR "Could not re-put localfile $curlocalfile\n"; }
- }
- my $newremotemdt=$ftpc->mdtm($curlocalfile)+$syncoff;
- utime ($newremotemdt, $newremotemdt, $curlocalfile);
- }
- # delete files too much at the target
- if ($doinfoonly) { print "\nWould delete obsolete remote files.\n"; }
- elsif (! $doquiet) { print "\nDeleting obsolete remote files.\n"; }
- my $curremotefile;
- foreach $curremotefile (keys(%remotefiledates))
- { if (not exists $localfiledates{$curremotefile})
- { if ($doinfoonly) { print $curremotefile."\n"; next; }
- if ($doverbose) { print $curremotefile."\n"; }
- elsif (! $doquiet) { print "r"; }
- if ($ftpc->delete($curremotefile) ne 1) { die "Could not delete remote file $curremotefile\n"; }
- }
- }
- # delete dirs too much at the target
- if ($doinfoonly) { print "\nWould delete obsolete remote directories.\n"; }
- elsif (! $doquiet) { print "\nDeleting obsolete remote directories.\n"; }
- my $curremotedir;
- foreach $curremotedir (sort { return length($b) <=> length($a); } keys(%remotedirs))
- { if (! exists $localdirs{$curremotedir})
- { if ($doinfoonly) { print $curremotedir."\n"; next; }
- if ($doverbose) { print $curremotedir."\n"; }
- elsif (! $doquiet) { print "R"; }
- if ($ftpc->rmdir($curremotedir) ne 1) { die "Could not remove remote subdirectory $curremotedir\n"; }
- }
- }
- } else { # $syncdirection eq "GET"
- # create dirs missing at the target
- if ($doinfoonly) { print "\nWould create new local directories.\n"; }
- elsif (! $doquiet) { print "\nCreating new local directories.\n"; }
- my $curremotedir;
- foreach $curremotedir (sort { return length($a) <=> length($b); } keys(%remotedirs))
- { if (! exists $localdirs{$curremotedir})
- { if ($doinfoonly) { print $curremotedir."\n"; next; }
- if ($doverbose) { print $curremotedir."\n"; }
- elsif (! $doquiet) { print "d"; }
- mkdir($curremotedir) || die "Could not create local subdirectory $curremotedir\n";
- }
- }
- # copy files missing or too old at the target, synchronize timestamp _after_ copying
- if ($doinfoonly) { print "\nWould copy new(er) remote files.\n"; }
- elsif (! $doquiet) { print "\nCopying new(er) remote files.\n"; }
- my $curremotefile;
- foreach $curremotefile (sort { return length($b) <=> length($a); } keys(%remotefiledates))
- { my $dorefresh=0;
- if (! exists $localfiledates{$curremotefile}) {
- $dorefresh=1;
- $infotext="New: ".$curremotefile." (".$remotefilesizes{$curremotefile}." bytes)\n";
- if ($doinfoonly) { print $infotext; next; }
- if ($doverbose) { print $infotext; }
- elsif (! $doquiet) { print "n"; }
- }
- elsif ($remotefiledates{$curremotefile} > $localfiledates{$curremotefile}) {
- $dorefresh=1;
- $infotext="Newer: ".$curremotefile." (".$remotefilesizes{$curremotefile}." bytes, ".$remotefiledates{$curremotefile}." versus ".$localfiledates{$curremotefile}.")\n";
- if ($doinfoonly) { print $infotext; next; }
- if ($doverbose) { print $infotext; }
- elsif (! $doquiet) { print "u"; }
- }
- elsif ($remotefilesizes{$curremotefile} != $localfilesizes{$curremotefile}) {
- $dorefresh=1;
- $infotext="Changed (different sized): ".$curremotefile." (".$remotefilesizes{$curremotefile}." bytes)\n";
- if ($doinfoonly) { print $infotext; next; }
- if ($doverbose) { print $infotext; }
- elsif (! $doquiet) { print "c"; }
- }
- if (! $dorefresh) { next; }
- if ($dodebug) { print "Really GETting file ".$curremotefile."\n"; }
- my $rc=$ftpc->get($curremotefile, $curremotefile);
- if ( ($rc eq undef) or ($rc ne $curremotefile) )
- { print STDERR "Could not get file ".$curremotefile."\n"; }
- my $retries=3;
- while ( ($ftpc->size($curremotefile) != (lstat $curremotefile)[7]) and ($retries-- > 0) )
- { if (! $doquiet) { print "Re-Transfering $curremotefile\n"; }
- if ( ($rc eq undef) or ($rc ne $curremotefile) )
- { print STDERR "Could not get file ".$curremotefile."\n"; }
- }
- my $newlocalmdt=$remotefiledates{$curremotefile};
- utime ($newlocalmdt, $newlocalmdt, $curremotefile);
- }
- # delete files too much at the target
- if ($doinfoonly) { print "\nWould delete obsolete local files.\n"; }
- elsif (! $doquiet) { print "\nDeleting obsolete local files.\n"; }
- my $curlocalfile;
- foreach $curlocalfile (sort { return length($b) <=> length($a); } keys(%localfiledates))
- { if (not exists $remotefiledates{$curlocalfile})
- { if ($doinfoonly) { print $curlocalfile."\n"; next; }
- if ($doverbose) { print $curlocalfile."\n"; }
- elsif (! $doquiet) { print "r"; }
- if (unlink($curlocalfile) ne 1) { die "Could not remove local file $curlocalfile\n"; }
- }
- }
- # delete dirs too much at the target
- if ($doinfoonly) { print "\nWould delete obsolete local directories.\n"; }
- elsif (! $doquiet) { print "\nDeleting obsolete local directories.\n"; }
- my $curlocaldir;
- foreach $curlocaldir (keys(%localdirs))
- { if (! exists $remotedirs{$curlocaldir})
- { if ($doinfoonly) { print $curlocaldir."\n"; next; }
- if ($doverbose) { print $curlocaldir."\n"; }
- elsif (! $doquiet) { print "d"; }
- rmdir($curlocaldir) || die "Could not remove local subdirectory $curlocaldir\n";
- }
- }
- }
-}
-
-
-sub listremotedirs() {
- if ($dodebug) {
- print "Remote dirs (relative to ".$ftpdir."):\n";
- my $curremotedir="";
- foreach $curremotedir (keys(%remotedirs))
- { print $curremotedir."/\n"; }
- print "Remote files (relative to ".$ftpdir."):\n";
- my $curremotefile="";
- foreach $curremotefile (keys(%remotefiledates))
- { print $curremotefile."\n"; }
- print "Remote links (relative to ".$ftpdir."):\n";
- my $curremotelink="";
- foreach $curremotelink (keys(%remotelinks))
- { print $curremotelink." -> ".$remotelinks{$curremotelink}."\n"; }
- }
-}
-sub parseRemoteURL() {
- if ($remoteURL =~ /^ftp:\/\/(([^@\/\\\:]+)(:([^@\/\\\:]+))?@)?([a-zA-Z01-9\.]+)\/(.*)/) {
- #print "DEBUG: parsing ".$remoteURL."\n";
- #print "match 1 = ".$1."\n";
- #print "match 2 = ".$2."\n";
- #print "match 3 = ".$3."\n";
- #print "match 4 = ".$4."\n";
- #print "match 5 = ".$5."\n";
- #print "match 6 = ".$6."\n";
- #print "match 7 = ".$7."\n";
- if (length($2) > 0) { $ftpuser=$2; }
- if (length($4) > 0) { $ftppasswd=$4; }
- $ftpserver=$5;
- $ftpdir=$6;
- #if ($ftpdir eq "") { $ftpdir="/"; }
- }
-}
-
-
-sub print_syntax() {
- print "\n";
- print "FTPSync.pl 1.27 (2004-08-23)\n";
- print "\n";
- print " ftpsync [ options ] [ localdir remoteURL ]\n";
- print " ftpsync [ options ] [ remoteURL localdir ]\n";
- print " options = [-dgpqv] [ cfg|ftpuser|ftppasswd|ftpserver|ftpdir=value ... ] \n";
- print " localdir local directory, defaults to \".\".\n";
- print " ftpURL full FTP URL, scheme\n";
- print ' ftp://[ftpuser[:ftppasswd]@]ftpserver/ftpdir'."\n";
- print " ftpdir is relative, so double / for absolute paths as well as /\n";
- print " -c | -C like -i, but then prompts whether to actually do work\n";
- print " -d | -D turns debug output (including verbose output) on\n";
- print " -g | -G forces sync direction to GET (remote to local)\n";
- print " -h | -H turns debugging on\n";
- print " -i | -I forces info mode, only telling what would be done\n";
- print " -p | -P forces sync direction to PUT (local to remote)\n";
- print " -q | -Q turnes quiet operation on\n";
- print " -v | -V turnes verbose output on\n";
- print " cfg= read parameters and options from file defined by value.\n";
- print " ftpserver= defines the FTP server, defaults to \"localhost\".\n";
- print " ftpdir= defines the FTP directory, defaults to \".\" (/wo '\"') \n";
- print " ftpuser= defines the FTP user, defaults to \"ftp\".\n";
- print " ftppasswd= defines the FTP password, defaults to \"anonymous\".\n";
- print "\n";
- print " Later mentioned options and parameters overwrite those mentioned earlier.\n";
- print " Command line options and parameters overwrite those in the config file.\n";
- print " Don't use '\"', although mentioned default values might motiviate you to.\n";
- print "\n";
-}
-
-
-sub print_options() {
- print "\nPrinting options:\n";
- # meta
- print "returncode = ", $returncode , "\n";
- print "configfile = ", $configfile , "\n";
- # basiscs
- print "syncdirection = ", $syncdirection , "\n";
- print "localdir = ", $localdir , "\n";
- # FTP stuff
- print "remoteURL = ", $remoteURL , "\n";
- print "ftpuser = ", $ftpuser , "\n";
- print "ftppasswd = ", $ftppasswd , "\n";
- print "ftpserver = ", $ftpserver , "\n";
- print "ftpdir = ", $ftpdir , "\n";
- # verbsityosity
- print "doverbose = ", $doverbose , "\n";
- print "dodebug = ", $dodebug , "\n";
- print "doquiet = ", $doquiet , "\n";
- #
- print "doinfoonly = ", $doinfoonly , "\n";
- print "\n";
-}
generated by cgit v1.2.3-54-g00ecf (git 2.39.0) at 2024-07-06 03:49:56 +0000