#!/usr/bin/perl

use warnings;
use strict;
use CGI;

my $q = CGI->new;
my $adnum    = $q->param('adnum');    # 掲載広告数
my $adids    = $q->param('adids');    # 掲載広告ID列（カンマ区切）
my $admax    = $q->param('admax');    # 最大掲載数
my $interval = $q->param('interval'); # 更新間隔
my $testmode = $q->param('testmode'); # テストモード

my $addata = set_demo_data();
my $i = int ( rand(4) );

print "Content-type: text/html\n\n";
print '<?xml verion="1.0" encodeing="utf-8"?>'."\n";
if ($testmode){
	print make_config_header(adnum => $adnum,
							 admax => $admax,
							 interval => $interval);
}
print $addata->[$i];

sub make_config_header {
	my %hash = @_;
	my $adnum    = $hash{adnum};
	my $admax    = $hash{admax};
	my $interval = $hash{interval};

	return if (bad_params(\%hash));

	my $ret = "<config>";
    # admaxの変更
	if ($adnum == $admax) {
		if ($admax <= 7){
			$admax++;
		}else{
			$admax = 2;
		}
		$ret .= "<admax>$admax</admax>";
	}
	# intervalの変更
	if ($interval > 5){
		$interval = 1;
	}else{
		$interval++;
	}
	if (int (rand (2)) == 1){
		$ret .= "<interval>$interval</interval>";
	}
	$ret .= "</config>";
	return $ret;
}

sub bad_params {
   my $hash = shift;
   my $adnum    = $hash->{adnum};
   my $admax    = $hash->{admax};
   my $interval = $hash->{interval};
   return 1 unless $adnum =~ /^\d+$/;
   return 1 unless $admax =~ /^\d+$/;
   return 1 unless $interval =~ /^\d+$/;
   return 0;
}

sub set_demo_data {
	my @addata;
	$addata[0]=<<EOF;
<div class="adOne adStyle01" id="adId01">
  <div class="catchcopy">
    <a href="http://www.navel-y.jp" target="_blank" >ネーベルが熱い！</a>
  </div>
  <div class="line_a">参加してみる？</div>
  <div class="line_b">やってみる？</div>
  <div class="url">
    <a href="http://www.navel-y.jp" target="_blank" >www.navel-y.jp</a>
  </div>
</div>
EOF

	$addata[1]=<<EOF;
<div class="adOne adStyle02" id="adId02">
  <div class="catchcopy">
    <a href="http://www.youtube.com" target="_blank" >YouTubeが熱い！</a>
  </div>
  <div class="line_a">見てみる？</div>
  <div class="line_b">投稿してみる？</div>
  <div class="url">
    <a href="http://www.youtube.com" target="_blank" >www.youtube.com</a>
  </div>
</div>
EOF
	$addata[2]=<<EOF;
<div class="adOne adStyle03" id="adId03">
  <div class="catchcopy">
    <a href="http://www.eejanaika.jp" target="_blank" >ええじゃないか！</a>
  </div>
  <div class="line_a">ギネス認定！総回転数世界一</div>
  <div class="line_b">☆☆ローラーコースター☆☆</div>
  <div class="url">
    <a href="http://www.fujikyu.co.jp/fuji-q/" target="_blank" >富士急ハイランド</a>
  </div>
</div>
EOF

	$addata[3]=<<EOF;
<div class="adOne adStyle04" id="adId04">
  <div class="catchCopy">
    <a href="http://beta.chobi2.jp" target="_blank" >chobi2ってどうよ</a>
  </div>
  <div class="line_a">あと、ひとふんばり</div>
  <div class="line_b">頑ガレ＞自分</div>
  <div class="url">
    <a href="http://beta.chobi2.jp" target="_blank">CHOBI2</a>
  </div>
</div>
EOF
	return \@addata;
}