2008年1月

http://zumomo.org/blog/linux/lolipop_log_dl.html
に感謝しつつ、wget+Perl に移植。

動作確認：Vine Linux 4.1

cronに入れとくと幸せになれそう。

#!/usr/bin/perl

# Usage:perl $0 [1..7]

#------------------------------------------------
# Setting
#------------------------------------------------

### lolipop User information
# plan
# sub-domain=0,mydomain=1
$DOMAIN_PLAN="1";

# sub-domain
$ACCOUNT="domain";
$DOMAIN_ID="500";#フォームのソースを見て、自分のサブドメインに対するIDを確認のこと。

# mydomain
$DOMAIN_NAME_2="more-pc";
$DOMAIN_NAME_3="net";

# lolipop log-in password
$PASSWD="xxxxxx";

# server name (ex.sv501)
$SERVER_NAME="sv501";

# domain want to download
@DOMAINS=("www.more-pc.net", "more-pc.net");


# save directory
$LOG_DIR="/home/user/lolipop/";


### log server
$ADMIN_SERVER="https://user.lolipop.jp";
$LOG_SERVER="http://logs5.lolipop.jp";

# debug mode (default=0,debug=1)
$DEBUG="0";

$TMP_PREFIX="/tmp/lolipo.$$";
$COOKIE_FILE="$TMP_PREFIX.cookie.txt";

#------------------------------------------------
# end of setting
#------------------------------------------------

if ($DEBUG ne 0 ) {
    $WGET_OPTION=" -v";
}

# day
$D=$ARGV[0];
if ( $#ARGV eq -1 ) {
    $D="1";
}
$DAY=`date --date="${D} days ago" +"%y/%m/%d"`;
chomp $DAY;
$DAY_FILE=`date --date="${D} days ago" +"%Y%m%d"`;
chomp $DAY_FILE;


### main
# 1) login form
$cmd="wget$WGET_OPTION -O $TMP_PREFIX.1.html --no-check-certificate --keep-session-cookies --save-cookies=\"${COOKIE_FILE}\" \"${ADMIN_SERVER}/\"";
if ( $DEBUG eq 1 ) {
print "------ 1) login form --------------------------------\n";
print "$cmd\n";
}
system($cmd);

# 2) login
$cmd="wget$WGET_OPTION -O $TMP_PREFIX.2.html --no-check-certificate --load-cookies=\"${COOKIE_FILE}\" --keep-session-cookies --save-cookies=\"${COOKIE_FILE}\" --referer=\"${ADMIN_SERVER}\/?\" --post-data=\'domain_plan=${DOMAIN_PLAN}&account=${ACCOUNT}&domain_id=${DOMAIN_ID}&domain_name_2=${DOMAIN_NAME_2}&domain_name_3=${DOMAIN_NAME_3}&passwd=${PASSWD}\' \"${ADMIN_SERVER}/?mode=login&exec=1\"";
if ( $DEBUG eq 1 ) {
print "------ 2) login -------------------------------------\n";
print "$cmd\n";
}
system($cmd);

# 3) access log form
$cmd="wget$WGET_OPTION -O $TMP_PREFIX.3.html --no-check-certificate --load-cookies=\"${COOKIE_FILE}\" --keep-session-cookies --save-cookies=\"${COOKIE_FILE}\" \"${ADMIN_SERVER}/?mode=aclog\"";
if ( $DEBUG eq 1 ) {
print "------ 3) access log form ---------------------------\n";
print "$cmd\n";
}
system($cmd);


foreach $DOMAIN (@DOMAINS) {
    # 4) $DOMAIN form
    $cmd="wget$WGET_OPTION -O $TMP_PREFIX.4.$DOMAIN.html --load-cookies=\"${COOKIE_FILE}\" --keep-session-cookies --save-cookies=\"${COOKIE_FILE}\" --referer=\"${ADMIN_SERVER}/?mode_aclog\" --post-data='server_domain=${SERVER_NAME}&select_domain_name=${DOMAIN}' \"${LOG_SERVER}/index.php?login=1\"";
    if ( $DEBUG eq 1 ) {
    print "------ 4) $DOMAIN form -------------------------------\n";
    print "$cmd\n";
    }
    system($cmd);
    
    # 5) download
    $cmd="wget$WGET_OPTION -O ${LOG_DIR}${DOMAIN}\.${DAY_FILE}\.gz --load-cookies=\"${COOKIE_FILE}\" --keep-session-cookies --save-cookies=\"${COOKIE_FILE}\" --referer=\"${LOG_SERVER}\/index.php?login=1\" --post-data=\'sltDate=${DAY}\' \"${LOG_SERVER}\/download.php\"";
    if ( $DEBUG eq 1 ) {
    print "------ 5) $DOMAIN download ---------------------------\n";
    print "$cmd\n";
    }
    system($cmd);
}


# remove tmp file
if ( $DEBUG eq 0 ) {
    $cmd="rm $COOKIE_FILE";
    system($cmd);
    $cmd="rm $TMP_PREFIX.\*.html";
    system($cmd);
}

exit(0);