|
棚橋文嘉堂
社長！商売する気があるのですか！
驚きの還元率99％
同士１００名募集
|
#!/usr/bin/perl
require './jcode.pl';
require './set.pl';
require './mimew.pl';
use DBI;
&db_connect;
&decode;
&in_cookie;
&idcheck;
if (!$f) { &error("ログインしていません","会員ページからアクセスしてください"); }
if ($value{'stop'}) { &stop; }
elsif ($value{'mode'} eq "start") { &start; }
elsif ($value{'mode'} eq "reg") { ® }
else { &frame; }
&db_disconnect;
exit;
# ------------------------------------------------------------------------------
sub frame {
&in_check;
if ($c_surf) { &error2("同時閲覧はできません","$c_surf"); }
$c_surf = "";
&ot_check;
$memb_mid = $value{'mid'};
$where = qq( WHERE `memb_mid` = "$memb_mid");
&memb_select;
&memb_split;
$memb_current = $memb_plus - $memb_minus - $memb_payout - $memb_wait;
$memb_acnt = 0;
&memb_update;
print "Content-type: text/html\n\n";
print "\n";
print "
$htitle\n";
print "\n";
print "
\n";
print "\n";
}
# ------------------------------------------------------------------------------
sub start {
&url_get;
&loop;
&disp;
}
# ------------------------------------------------------------------------------
sub stop {
$memb_mid = $value{'mid'};
$where = qq( WHERE `memb_mid` = "$memb_mid");
&memb_select;
&memb_split;
$memb_current = $memb_plus - $memb_minus - $memb_payout - $memb_wait;
$memb_acnt = 0;
&memb_update;
$point = $memb_current / 100;
$murl_mid = $value{'tid'};
$murl_key = $value{'key'};
$where = qq( WHERE `murl_mid` = "$murl_mid" and `murl_key` = "$murl_key");
&murl_select;
&murl_split;
$url = qq(
$murl_url);
$load = "";
$auto_body = 0;
$value{'auto'} = "";
$c_surf = "";
&ot_check;
&loop;
&disp;
}
# ------------------------------------------------------------------------------
sub reg {
&in_check;
if ($c_surf eq "1") { &error2("同時閲覧はできません","$c_surf"); }
$c_surf = "1";
&ot_check;
$memb_mid = $value{'mid'};
$where = qq( WHERE `memb_mid` = "$memb_mid");
&memb_select;
&memb_split;
$memb_current = $memb_plus - $memb_minus - $memb_payout - $memb_wait;
$smem_key = $memb_flg;
$where = qq( WHERE `smem_key` = "$smem_key");
&smem_select;
&smem_split;
if ($value{'auto'}) { $pnt = int($sset_asfr * 100 * $smem_sf2); }
else { $pnt = int($sset_msfr * 100 * $smem_sf1); }
$memb_plus = $memb_plus + $pnt;
$memb_current = $memb_current + $pnt;
if ($value{'auto'}) { $memb_acnt = $memb_acnt + 1; }
$where = qq( WHERE `memb_mid` = "$memb_mid");
&memb_update;
$point = $memb_current / 100;
$acnt = $memb_acnt;
$upid = $memb_upid;
foreach ( 0 .. $sset_down-1 ) {
if (!$upid) { last; }
$memb_mid = $upid;
$where = qq( WHERE `memb_mid` = "$memb_mid");
&memb_select;
&memb_split;
$memb_current = $memb_plus - $memb_minus - $memb_payout - $memb_wait;
$smem_key = $memb_flg;
$where = qq( WHERE `smem_key` = "$smem_key");
&smem_select;
&smem_split;
@per = split(/,/,$smem_per);
$memb_plus = $memb_plus + int($pnt * $per[$_] / 100);
$memb_current = $memb_current + int($pnt * $per[$_] / 100);
$where = qq( WHERE `memb_mid` = "$memb_mid");
&memb_update;
$upid = $memb_upid;
}
$murl_mid = $value{'tid'};
$murl_key = $value{'key'};
$where = qq( WHERE `murl_mid` = "$murl_mid" and `murl_key` = "$murl_key");
&murl_select;
&murl_split;
$murl_cnt = $murl_cnt + 1;
$murl_upddt = $time;
&murl_update;
$url = qq(
$murl_url);
$memb_mid = $value{'tid'};
$where = qq( WHERE `memb_mid` = "$memb_mid");
&memb_select;
&memb_split;
$memb_current = $memb_plus - $memb_minus - $memb_payout - $memb_wait;
$memb_minus = $memb_minus + $pnt;
$memb_current = $memb_current - $pnt;
$where = qq( WHERE `memb_mid` = "$memb_mid");
&memb_update;
if ($value{'auto'}) {
if (($sset_acnt) && ($acnt >= $sset_acnt)) {
&stop;
}
else {
&url_get;
&loop;
&disp;
}
}
else {
&loop;
&disp;
}
}
# ------------------------------------------------------------------------------
sub url_get {
$memb_mid = $value{'mid'};
$where = qq( WHERE `memb_mid` = "$memb_mid");
&memb_select;
&memb_split;
$memb_current = $memb_plus - $memb_minus - $memb_payout - $memb_wait;
$point = $memb_current / 100;
$murl_mid = $value{'mid'};
if ($value{'auto'}) { $aa = qq( and `murl`.`murl_sf` = "1"); }
else { $aa = ""; }
$where = qq( WHERE `murl`.`murl_mid` <> "$murl_mid" and `murl`.`murl_mid` = `memb`.`memb_mid` and `murl`.`murl_cnt` < `murl`.`murl_mcnt` and `memb`.`memb_current` > 100$aa order by `murl_upddt` LIMIT 1);
&murl_select2;
&murl_split2;
$url = "";
if ($murl_rows > 0) {
if ($value{'auto'}) {
$load = qq( onLoad="Start()");
$auto_body = 1;
}
else {
if ($value{'mode'} eq "start") {
$load = qq( onLoad="Start()");
$auto_body = 1;
}
elsif ($value{'mode'} eq "reg") {
$load = "";
$auto_body = 0;
}
}
$c_surf = "2";
&ot_check;
$url = qq(
$murl_url);
}
else {
$load = "";
$auto_body = 1;
$murl_url = $nodisp;
$c_surf = "";
&ot_check;
}
}
# ------------------------------------------------------------------------------
sub loop {
if ($sset_asf) {
if ($value{'auto'}) {
$c = " checked";
if ($murl_rows > 0) { $stop = qq(
); }
}
else { $c = ""; }
$auto .= qq(
オートサーフ$stop);
}
$loop = qq(
);
if ($auto_body) {
$body = qq(
);
}
else { $body = ""; }
}
# ------------------------------------------------------------------------------
sub disp {
if (!open(HTM,"$tempfile")) { &error("テンプレートファイルが開けません",""); }
@htm =
;
close(HTM);
$html = qq(Content-type: text/html\n\n);
foreach $htm (@htm) {
$htm =~ s/ op/$loop/g;
$htm =~ s/
to/$auto/g;
$htm =~ s/ dy/$body/g;
$htm =~ s/ ad/$load/g;
$htm =~ s/ url/g;
$htm =~ s/ int/$point/g;
$html .= $htm;
}
print $html;
}
#--------------------------------------------------------------------------
sub in_check {
$name = ""; $value = "";
@pairs = split(/\;/,$ENV{'HTTP_COOKIE'});
foreach $pair (@pairs) {
local($name, $value) = split(/\=/, $pair,2);
$name =~ s/ //g;
$DUMMY{$name} = $value;
}
@pairs = split(/\,/,$DUMMY{"SBNEXTOP"});
foreach $pair (@pairs) {
local($name, $value) = split(/\:/, $pair);
$COOKIE{$name} = $value;
}
$c_surf = $COOKIE{'surf'};
}
sub ot_check {
($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg)
= gmtime(time + 20);
$yearg += 1900;
if ($secg < 10) { $secg = "0$secg"; }
if ($ming < 10) { $ming = "0$ming"; }
if ($hourg < 10) { $hourg = "0$hourg"; }
if ($mdayg < 10) { $mdayg = "0$mdayg"; }
$mong = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep',
'Oct','Nov','Dec') [$mong];
$youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday',
'Friday','Saturday') [$wdayg];
$date_gmt = "$youbi, $mdayg\-$mong\-$yearg $hourg:$ming:$secg GMT";
$cook = "surf\:$c_surf";
print "Set-Cookie: SBNEXTOP=$cook; expires=$date_gmt\n";
}
#----------------------------------------------------------------------
sub error2 {
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "$_[0]\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "
\n";
print " \n";
print " \n";
print " \n";
print " \n";
print " | $_[0] | \n";
print " \n";
print " \n";
print " | \n";
print "
\n";
print " \n";
print " \n";
print "
\n";
print " \n";
print " \n";
print " \n";
print " | \n";
print " $_[1]\n";
print " | \n";
print " \n";
print " \n";
print " \n";
print " | \n";
print "
\n";
print "
\n";
print "
ブラウザの戻るボタンで戻ってください
\n";
print "
