#!/usr/bin/perl use CGI; use DBI; print "Content-type:text/html\r\n\r\n"; $buffer=$ENV{'QUERY_STRING'}; ($start,$end,$next)=split(/&/,$buffer); if($next > 0){$next1=$next+1;} $dbuser="root"; $dbpass="root"; $dsn="DBI:mysql:backupprocess;host=localhost"; $mysql->disconnect if $mysql; $mysql=DBI->connect($dsn,$dbuser,$dbpass); $sth2=$mysql->prepare("select * from subscribermis"); $sth2->execute(); $rv = $sth2->rows; if($buffer=~/MM/){$sth1=$mysql->prepare("select * from subscribermis limit $start,$end");} else{$start=0;$end=2;$sth1=$mysql->prepare("select * from subscribermis limit $start,$end");} $sth1->execute(); print "
"; while(@arr=$sth1->fetchrow_array()) { print ""; } print"
DateCount utlceltel
".$arr[$i]." ".$arr[$i+1]." ".$arr[$i+2]." ".$arr[$i+3]."



"; $ss=$rv/2; $i = 0; $j = 0; for($j=1;$j<=($ss);$j++){ $i=$i+2; $end=$i; $end1=2; $start=$end-2; print "$j"; #### Date Count utl celtel 1 364922200 1 1 2 74902999 1 1 1234567 #### Date Count utl celtel 1 364922200 1 1 2 74902999 1 1 <<12345>>