Sorry

This feed does not validate.

In addition, interoperability with the widest range of feed readers could be improved by implementing the following recommendation.

Source: http://www.seawave.jp/cgi/adult/rank.cgi?mode=link&id=3965&url=https%3A//trackcn.online/service/UG.html

  1. #!/usr/bin/perl
  2.  
  3. #??perl?̃p?X?????̊\x8b??ɍ??킹?ď????????܂??B
  4. #???́A?u#!/usr/bin/perl?v?@???@?u#!/usr/local/bin/perl?v?ł??B
  5. #???Ȃ??ꍇ?̓T?[?o?[?Ǘ???(??????̓v???o?C?_?[)??
  6. #?m?F???Ă????????B
  7.  
  8. require 'pl/jcode.pl';
  9. require 'pl/cfg.cgi';
  10. require 'pl/temp.cgi';
  11.  
  12. ##?ڎ?##
  13. #(1)?l?C(OUT)?????L???O?\?????(&PR_rank)
  14. #(1.1)?A?N?Z?X(IN)?????L???O?\?????(&PR_rev)
  15. #(1.1.1)?A?N?Z?X?????L???O??X?V(&make_rev)
  16. #(1.1.2)?݌v?l?C?????L???O??X?V(&make_rank_rui)
  17. #(2)?????N?W?????v????(&link)
  18. #(2.1)?A?N?Z?X?W?????v????(&r_link)
  19. #(3)?L?[???[?h?????L???O?\?????(&PR_keyrank)
  20.  
  21. $rank_flag = 1; #?????L???O???s?t???O
  22.  
  23. &form_decode();
  24. if(!$FORM{page}){$FORM{page}=1;}
  25. if($FORM{mode} eq "link"){&link;}
  26. elsif($FORM{mode} eq "r_link"){&r_link_enter;}
  27. elsif($FORM{mode} eq "r_enter"){&r_link;}
  28. elsif($FORM{mode} eq "keyrank"){&PR_keyrank;}
  29. elsif($FORM{mode} eq "rev" || $FORM{mode} eq "rev_bf" || $FORM{mode} eq "rev_rui"){&PR_rev;}
  30. else{&PR_rank;} #?l?C?????L???O
  31. exit;
  32.  
  33. sub PR_rank{
  34. #(1)?l?C?????L???O?\?????(&PR_rank)
  35. if(!$EST{rank_fl}){&mes("?l?C?????L???O?͎??{???Ȃ??ݒ?ɂȂ??Ă??܂?","?G???[","java");}
  36. if(!$FORM{mode}){$FORM{mode}="rank";}
  37. require "$EST{temp_path}rank.html";
  38.  
  39. print "Content-type: text/html\n\n";
  40. &print_rank($FORM{kt},$FORM{mode},$FORM{page});
  41. }
  42.  
  43. sub PR_rev{
  44. #(1.1)?A?N?Z?X(IN)?????L???O?\?????(&PR_rev)
  45. if(!$EST{rev_fl}){&mes("?A?N?Z?X?????L???O?͎??{???Ȃ??ݒ?ɂȂ??Ă??܂?","?G???[","java");}
  46. require "$EST{temp_path}rev_rank.html";
  47.  
  48. print "Content-type: text/html\n\n";
  49. &print_rank($FORM{kt},$FORM{mode},$FORM{page});
  50. }
  51.  
  52. sub make_rev{
  53. #(1.1.1)?A?N?Z?X?????L???O??X?V(&make_rev)
  54. #$arg[0]=> ???݂̃????L???O??X?V(rev)/?݌v?????L???O??X?V(rev_rui)/??????(format)
  55. ##???݂̃????L???O??X?V&?{?̃t?@?C???ɔ??f(rev)
  56. if($_[0] eq "rev"){
  57. close(IN);
  58. &lock(); #???b?N
  59. @log_lines=();
  60. local(@rank,%pt,%time_fl,$day=0,$st,@Slog,$line,%line,$i=0);
  61. open(IN,"$EST{log_path}rev_temp.cgi");
  62. while(<IN>){
  63. chop;
  64. @rank=split(/<>/,$_); #ID<>time?`??<>IP\n
  65. if(!$day){$st=$rank[1];}
  66. if($st-$rank[1]>3600*$EST{rank_time}){$st=$rank[1];%time_fl=();}
  67. if(!$time_fl{"$rank[0]_$rank[2]"}){$pt{$rank[0]}++;}
  68. $time_fl{"$rank[0]_$rank[2]"}=1;
  69. }
  70. close(IN);
  71. undef %time_fl;
  73. open(OUT,">$EST{log_path}rev_temp.cgi");
  74. close(OUT);
  76. open(IN,"$EST{log_path}$EST{logfile}");
  77. while($line=<IN>){
  78. @Slog=split(/<>/,$line);
  79. local(@pt); @pt=split(/_/,$Slog[13]);
  80. if($pt{$Slog[0]}){
  81. $pt[2]+=$pt{$Slog[0]};
  82. $pt[3]+=$pt{$Slog[0]};
  83. $Slog[13]=join("_",@pt);
  84. $line=join("<>",@Slog);
  85. }
  86. $line{$i}=$pt[2];
  87. push(@log_lines,$line);
  88. $i++;
  89. }
  90. close(IN);
  91.  
  92. $i=1;
  93. open(OUT,">$EST{log_path}rev_ys.cgi");
  94. print OUT time() . "_" . $last_time[1] . "\n";
  95. foreach $line(sort{$line{$b} <=> $line{$a}} keys %line){
  96. if($i<=$EST{rev_best} && $line{$line}>=$EST{rev_min}){print OUT $log_lines[$line];}
  97. else{last;}
  98. $i++;
  99. }
  100. close(OUT);
  102. open(OUT,">$EST{log_path}$EST{logfile}");
  103. print OUT @log_lines;
  104. close(OUT);
  105. @log_lines=();
  107. $i=1;
  108. open(IN,"$EST{log_path}rev_ys.cgi");
  109. $last_time=<IN>;
  110. while(<IN>){
  111. @Slog=split(/<>/,$_);
  112. local(@pt,$kt_fl=0,$pt,$kt);
  113. @pt=split(/_/,$Slog[13]); $pt=$pt[2];
  114. if(!$LC_kt){$kt_fl=1;} #?J?e?S???w??Ȃ?
  115. else{
  116. local(@kt); @kt=split(/&/,$Slog[10]);
  117. foreach $kt(@kt){
  118. if($kt eq $LC_kt){$kt_fl=1; last;}
  119. }
  120. }
  121. if($kt_fl){
  122. if($pt ne $bf_pt){$rank=$rank_z;}
  123. if($str_no<=$i && $i<=$end_no){
  124. if($pre_pt_fl){$pre_pt=$bf_pt; $pre_rank=$rank; $pre_rank_z=$rank_z; $pre_pt_fl=0;}
  125. push(@log_lines,$_);
  126. }
  127. $i++;$Clog++;
  128. $rank_z++;
  129. $bf_pt=$pt;
  130. }
  131. }
  132. close(IN);
  134. &unlock(); #???b?N??
  135. }
  136. ##?݌v?̃????L???O??X?V(rev_rui)
  137. elsif($_[0] eq "rev_rui"){
  138. close(IN);
  139. &lock_rev(); #???b?N
  140. @log_lines=();
  141. local(@rank,%pt,%time_fl,$day=0,$st,@Slog,$line,%line,$i=0);
  143. open(IN,"$EST{log_path}$EST{logfile}");
  144. while($line=<IN>){
  145. @Slog=split(/<>/,$line);
  146. local(@pt); @pt=split(/_/,$Slog[13]);
  147. $line{$i}=$pt[3];
  148. push(@log_lines,$line);
  149. $i++;
  150. }
  151. close(IN);
  152.  
  153. $i=1;
  154. open(OUT,">$EST{log_path}rev_rui.cgi");
  155. print OUT time() . "\n";
  156. foreach $line(sort{$line{$b} <=> $line{$a}} keys %line){
  157. if($i<=$EST{rev_best} && $line{$line}>=$EST{rev_min}){print OUT $log_lines[$line];}
  158. else{last;}
  159. $i++;
  160. }
  161. close(OUT);
  163. @log_lines=();
  165. $i=1;
  166. open(IN,"$EST{log_path}rev_rui.cgi");
  167. $last_time=<IN>;
  168. while(<IN>){
  169. @Slog=split(/<>/,$_);
  170. local(@pt,$kt_fl=0,$pt,$kt);
  171. @pt=split(/_/,$Slog[13]); $pt=$pt[3];
  172. if(!$LC_kt){$kt_fl=1;} #?J?e?S???w??Ȃ?
  173. else{
  174. local(@kt); @kt=split(/&/,$Slog[10]);
  175. foreach $kt(@kt){
  176. if($kt eq $LC_kt){$kt_fl=1; last;}
  177. }
  178. }
  179. if($kt_fl){
  180. if($pt ne $bf_pt){$rank=$rank_z;}
  181. if($str_no<=$i && $i<=$end_no){
  182. if($pre_pt_fl){$pre_pt=$bf_pt; $pre_rank=$rank; $pre_rank_z=$rank_z; $pre_pt_fl=0;}
  183. push(@log_lines,$_);
  184. }
  185. $i++;$Clog++;
  186. $rank_z++;
  187. $bf_pt=$pt;
  188. }
  189. }
  190. close(IN);
  192. &unlock_rev(); #???b?N??
  193. }
  194. ##??????(format)
  195. elsif($_[0] eq "format"){
  196. close(IN);
  197. &lock(); #???b?N
  198. open(IN,"$EST{log_path}rev_ys.cgi");
  199. open(OUT,">$EST{log_path}rev_bf.cgi");
  200. $last_time=<IN>; @last_time=split(/_/,$last_time);
  201. while(<IN>){
  202. print OUT $_;
  203. }
  204. close(OUT);
  205. close(IN);
  206. open(OUT,">$EST{log_path}rev_ys.cgi");
  207. print OUT $last_time[0] . "_" . time() . "\n";
  208. close(OUT);
  210. #?{?̃??O??????
  211. @log_lines=(); local($line);
  212. open(IN,"$EST{log_path}$EST{logfile}");
  213. while($line=<IN>){
  214. @Slog=split(/<>/,$line);
  215. @pt=split(/_/,$Slog[13]);
  216. if($pt[2]){
  217. $pt[2]=0;
  218. $Slog[13]=join("_",@pt);
  219. $line=join("<>",@Slog);
  220. }
  221. push(@log_lines,$line);
  222. }
  223. close(IN);
  224. open(OUT,">$EST{log_path}$EST{logfile}");
  225. print OUT @log_lines;
  226. close(OUT);
  227. @log_lines=();
  229. &unlock(); #???b?N??
  230. }
  231. else{&mes("&make_rev?̈??????s???ł?","?G???[","java");}
  232.  
  233.  
  234.  
  235. }
  236.  
  237. sub make_rank_rui{
  238. #(1.1.2)?݌v?l?C?????L???O??X?V(&make_rank_rui)
  239. close(IN);
  240. &lock_rev(); #???b?N
  241. @log_lines=();
  242. local(@rank,%pt,%time_fl,$day=0,$st,@Slog,$line,%line,$i=0);
  244. open(IN,"$EST{log_path}$EST{logfile}");
  245. while($line=<IN>){
  246. @Slog=split(/<>/,$line);
  247. local(@pt); @pt=split(/_/,$Slog[13]);
  248. $line{$i}=$pt[1];
  249. push(@log_lines,$line);
  250. $i++;
  251. }
  252. close(IN);
  253.  
  254. $i=1;
  255. open(OUT,">$EST{log_path}rank_rui.cgi");
  256. print OUT time() . "\n";
  257. foreach $line(sort{$line{$b} <=> $line{$a}} keys %line){
  258. if($i<=$EST{rank_best} && $line{$line}>=$EST{rank_min}){print OUT $log_lines[$line];}
  259. else{last;}
  260. $i++;
  261. }
  262. close(OUT);
  264. @log_lines=();
  266. $i=1;
  267. open(IN,"$EST{log_path}rank_rui.cgi");
  268. $last_time=<IN>;
  269. while(<IN>){
  270. @Slog=split(/<>/,$_);
  271. local(@pt,$kt_fl=0,$pt,$kt);
  272. @pt=split(/_/,$Slog[13]); $pt=$pt[1];
  273. if(!$LC_kt){$kt_fl=1;} #?J?e?S???w??Ȃ?
  274. else{
  275. local(@kt); @kt=split(/&/,$Slog[10]);
  276. foreach $kt(@kt){
  277. if($kt eq $LC_kt){$kt_fl=1; last;}
  278. }
  279. }
  280. if($kt_fl){
  281. if($pt ne $bf_pt){$rank=$rank_z;}
  282. if($str_no<=$i && $i<=$end_no){
  283. if($pre_pt_fl){$pre_pt=$bf_pt; $pre_rank=$rank; $pre_rank_z=$rank_z; $pre_pt_fl=0;}
  284. push(@log_lines,$_);
  285. }
  286. $i++;$Clog++;
  287. $rank_z++;
  288. $bf_pt=$pt;
  289. }
  290. }
  291. close(IN);
  293. &unlock_rev(); #???b?N??
  294.  
  295. }
  296.  
  297. sub link{
  298. #(2)?????N?W?????v????(&link)
  299. $FORM{id}=~s/\D//g;
  300. if($FORM{id}){
  301. local($fl=0,@ref_list);
  302. #referer?`?F?b?N
  303. if(!$ENV{'HTTP_REFERER'}){$fl=1;} #referer???????Ƃ??ɃJ?E???g???Ȃ??ꍇ?ɂ͂??̍s??폜
  304. @ref_list=split(/,/,$EST{rank_ref});
  305. if(!$EST{rank_ref}){$fl=1;}
  306. else{
  307. foreach(@ref_list){
  308. if(index($ENV{'HTTP_REFERER'},$_)>=0){$fl=1;}
  309. }
  310. }
  311. if($fl){
  312. $FORM{id}=~s/\n//g;
  313. &lock_rank();
  314. open(OUT,">>$EST{log_path}rank_temp_ys.cgi");
  315. print OUT "$FORM{id}<>" . time() . "<>$ENV{'REMOTE_ADDR'}\n";
  316. close(OUT);
  317. &unlock_rank();
  318. }
  319. }
  320. if($FORM{url}){&location($FORM{url});}
  321. else{ #???O?t?@?C??????URL????????(Ver3?ƌ݊?)
  322. open(IN,"$EST{log_path}$EST{logfile}");
  323. my $link_fl=0; my($link);
  324. while(<IN>){
  325. @Slog=split(/<>/,$_,4);
  326. if($Slog[0] eq $FORM{id}){$link=$Slog[2];$link_fl=1;last;}
  327. }
  328. close(IN);
  329. if(!$link_fl){&mes("?Y??????f?[?^?????\x82???܂???","?G???[","java");}
  330. else{&location($link);}
  331. }
  332.  
  333. }
  334.  
  335. sub r_link{
  336. #(2.1)?A?N?Z?X?W?????v????(&r_link)
  337. if($EST{rev_fl}){
  338. $FORM{id}=~s/\D//g;
  339. if($FORM{id}){
  340. local($fl=0,@ref_list);
  341. $FORM{id}=~s/\n//g;
  342. &lock_rev();
  343. open(OUT,">>$EST{log_path}rev_temp.cgi");
  344. print OUT "$FORM{id}<>" . time() . "<>$ENV{'REMOTE_ADDR'}\n";
  345. close(OUT);
  346. &unlock_rev();
  347. }
  348. }
  349. $EST{location}=0; #refresh?W?????v?ɂ???
  350. &location($EST{rev_url});
  351. }
  352.  
  353. #(3)?L?[???[?h?????L???O?\?????(&PR_keyrank)
  354. sub PR_keyrank{
  355. require "$EST{log_path}task_ys.cgi";
  356. print "Content-type: text/html\n\n";
  357. require "$EST{temp_path}keyrank.html";
  358. &print_keyrank;
  359. }
  360.  
  361. #(t1)???b?Z?[?W??ʏo??(&mes)
  362. #????:&mes($arg1,$arg2,$arg3);
  363. #?@?\:???b?Z?[?W??ʂ?o?͂???
  364. #????:$arg1=>?\?????郁?b?Z?[?W
  365. #     $arg2=>?y?[?W?̃^?C?g??(?ȗ????́u???b?Z?[?W??ʁv)
  366. #     $arg3=>?EJavaScript?ɂ??u?߂?v?{?^???\??=java
  367. #            ?E$ENV{'HTTP_REFERER'}??g???ꍇ=env
  368. #            ?E?Ǘ????ւ̃{?^??=kanri
  369. #            ?E?ʏ??URL???̓p?X??w?肷??ꍇ?ɂ͂???URL???̓p?X??L??
  370. #            ?E?ȗ????͔?\??
  371. #     $arg4=>???b?N??=unlock
  372. #?߂?l:?Ȃ?
  373. sub mes{
  374. local($MES,$Munlock,$BACK_URL,);
  375. print "Content-type: text/html\n\n";
  376. $Munlock=$_[3];
  377. if($Munlock eq "unlock"){&unlock();}
  378. $MES=$_[0];
  379. if($_[1]){$TITLE=$_[1];}
  380. else{$TITLE="???b?Z?[?W???";}
  381. if($_[2] eq "java"){
  382. $BACK_URL="<form><input type=button value=\"&nbsp;&nbsp;&nbsp;&nbsp;?߂?&nbsp;&nbsp;&nbsp;&nbsp;\" onClick=\"history.back()\"></form>"
  383. }
  384. elsif($_[2] eq "env"){
  385. $BACK_URL="?y<a href=\"$ENV{'HTTP_REFERER'}\">?߂?</a>?z";
  386. }
  387. elsif(!$_[2]){$BACK_URL="";}
  388. else{$BACK_URL="?y<a href=\"$_[2]\">?߂?</a>?z";}
  389.  
  390. require "$EST{temp_path}mes.html";
  391.  
  392. exit;
  393. }
  394.  
  395.  
  396. #(7)?t?H?[???f?[?^?̃f?R?[?h(&form_decode)
  397. #????:&form_decode($arg1,$arg2);
  398. #?@?\:?t?H?[???f?[?^??f?R?[?h????
  399. #????:$arg1=>?u>?v?Ɓu<?v??i?????ɂ???(?ȗ???)=0/?L???ɂ???=1?j
  400. #     $arg2=>?u\n?v?Ɓu\r?v??i?????ɂ???(?ȗ???)=0/?L???ɂ???=1?j
  401. #?߂?l:?Ȃ?
  402. sub form_decode{
  403. $arg1=$_[0];
  404. $arg2=$_[1];
  405.   if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $form, $ENV{'CONTENT_LENGTH'}); }
  406.   else { $form = $ENV{'QUERY_STRING'}; }   @pairs = split(/&/,$form);
  407.   foreach $pair (@pairs) {           ($name, $value) = split(/=/, $pair);
  408.           $value =~ tr/+/ /;
  409.           $value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
  410.           $name =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
  411. if(!$arg1){
  412.   $value =~ s/>/&gt;/g;
  413.   $value =~ s/</&lt;/g;
  414.   }
  415. if(!$arg2){
  416.   if(!$EST{syoukai_br}){$value =~ s/\n//g;}
  417.   else{$value =~ s/\n/<br>/g;}
  418.   $value =~ s/\r//g;
  419.   }
  420.           &jcode'convert(*value,'sjis');
  421.           &jcode'convert(*name,'sjis'); $FORM{$name} = $value;
  422.   }
  423. }
  424.  
  425. #
  426. #?A?N?Z?X?????L???OEnter??ʁB
  427. #
  428. sub r_link_enter {
  429.  
  430. #?ꉞ?w?b?_???i?V?t?gJIS?p?ł??j
  431. print "Content-type: text/html; charset=Shift_JIS\n";
  432. print "Pragma: no-cache\n\n";
  433.  
  434. print<<"EOM";
  435. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  436. <html lang="ja">
  437. <head>
  438. <meta http-equiv="Pragma" content="no-cache">
  439. <meta http-equiv="Content-Language" content="ja">
  440. <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
  441. <meta name="ROBOTS" content="NOINDEX, NOFOLLOW">
  442. <meta name="ROBOTS" content="NOARCHIVE">
  443. <title>?A?_???g?T?C?g?A?????߃????N?^?A?N?Z?X?????L???O???????</title>
  444. </head>
  445. <body onContextmenu="return false" background="http://www.seawave.jp/images/adult_bg.jpg" style="font-family: ?l?r ?o????">
  446.  
  447. <!-- ???̂?????ɓK????Enter??ʂ̃^?O?????܂??B -->
  448. <center>
  449.  
  450. <p align="center"><b><span STYLE="width: 80%; filter: Shadow(color=black); letter-spacing: 6pt"><font color="#808000"><font size="4">?A?_???g???????A?_???g?????L???O</font><font size="5"><br>
  451. </font><font size="6">?A?_???g?T?C?g?A?????߃????N</font></font></span></b></p>
  452. <hr width="90%" size="7">
  453. <p align="center">?A?_???g???????A?_???g?????L???O?^?A?_???g?T?C?g?A?????߃????N?ֈړ????܂?<br>
  454. ???L?́u?d?m?s?d?q?v??N???b?N???Ă???????</p>
  455. <p align="center">?A?N?Z?X?????L???O??W?v???Ă??܂??̂ł????͂????????E?E?E</p>
  456.  
  457. <H1>
  458. <a href=\"$EST{cgi_path_url}$EST{rank}?mode=r_enter&id=$FORM{id}" onMouseOver="status=''; return true" onMouseOut="status=''; return true">
  459. Enter
  460. </a>
  461. </H1>
  462.  
  463. <hr width="90%" size="7">
  464. <p align="center"><IFRAME frameBorder="0" name="sample" WIDTH="920" HEIGHT="860" SRC="http://www.seawave.jp/adult/cariv.htm" SCROLLING="AUTO" border="0"></IFRAME></p>
  465. <hr width="90%" size="7">
  466. <p align="center"><font color="#666666" size="2"><img src="http://www.seawave.jp/apps/count/62/Count.cgi?dd=E&amp;md=7&amp;pad=n">&nbsp;&nbsp;&nbsp;&copy; 2003 Web Guide all rights reserved.&nbsp;&nbsp;&nbsp;&nbsp;<img src="http://www.seawave.jp/apps/count/45/Count.cgi?dd=E&amp;md=7&amp;pad=n"> / <img src="http://www.seawave.jp/apps/count/28/Count.cgi?dd=E&amp;md=7&amp;pad=n"></font></p>
  467. </center>
  468.  
  469. </body>
  470. </html>
  471.  
  472. EOM
  473. }
  474.  
  475.  
  476.  
  477.  

Home · About · News · Docs · Terms

 
Copyright © 2002-9 Sam Ruby, Mark Pilgrim, Joseph Walton, and Phil Ringnalda