# script that comes with wuftpd
#
# Andrew Tridgell, October 1998
-# rsync-bugs@samba.anu.edu.au
+# rsync-bugs@samba.org
#
# ---------------------------------------------------------------------------
$file = $module . "/" . $file;
+ $file =~ s|//|/|mg;
+
@path = split(/\//, $file);
$pathkey = "";
exit(0);
sub datecompare {
- $a lt $b;
+ $a gt $b;
}
sub domnamcompare {