#!/usr/bin/perl -w
#if($#ARGV lt 0) { die "Wrong parameter count.\n" }
#
# msgtypes(DEFAULT) "UNDUPE_NOTFOUND UNDUPE_SUCCESS UNDUPE_USAGE"
#
# set variables(UNDUPE_NOTFOUND)  "%file"
# set variables(UNDUPE_SUCCESS)   "%file"
# set variables(UNDUPE_USAGE)     "%dummy"
#
# announce.UNDUPE_NOTFOUND        = "%b{undupe} // %bold%file%bold was not found!"
# announce.UNDUPE_SUCCESS         = "%b{undupe} // File %bold%file%bold was successfully unduped"
# announce.UNDUPE_USAGE           = "%b{undupe} // Use it like !%boldundupe%bold <%boldfilename%bold>, mkay?"
#

if($#ARGV gt 0) { $TEST = 1; }

$USERNAME="username";
$PASSWORD="password";
$SITEADDR="127\.0\.0\.1";
$SITEPORT="21";

$LFTP = "/usr/local/bin/lftp";
$LOG  = "/glftpd/ftp-data/logs/glftpd.log";
$ARG  = $ARGV[0];
$DATE = `date \"+%a %b %d %T %Y\"`;
#$TEST = 1;
chomp $DATE;

if($#ARGV lt 0) {
        $MSG = "$DATE UNDUPE_USAGE: dummy\n";
        logit($MSG);
        exit 1;
}

$lftp=`$LFTP -d -e \"debug 0;set ftp:ssl-allow no;set ftp:passive-mode off;site undupe $ARG;exit\" -u $USERNAME,$PASSWORD -p $SITEPORT $SITEADDR`;
$lftp =~ /.*(\d+)\ dupes.*/g;
#print "$1\n";

if( $1 ge "1" ) {
        $MSG = "$DATE UNDUPE_SUCCESS: $ARG\n";
        logit($MSG);
}
else {
        $MSG = "$DATE UNDUPE_NOTFOUND: $ARG\n";
        logit($MSG);
}

sub logit {
        $MSG = shift;
        if($TEST) {
                print $MSG;
        }
        else {
                open(FH, ">>$LOG") or die "File $LOG not found!\n";
                print FH $MSG;
                close(FH);
        }
}