[- $escmode=0; $optRawInput=1; use mmm_vars; use mmm_util; use comics; use comics_data; $debug=0; $cols=5; $source_dir="/www/perl/comics.dinorcia.net"; $path=""; #$path=$source_dir; #$path=~s/^$mmm_vars::webroot//; -] [- $page_title="comics.diNorcia.net"; if(defined($fdat{title})) { $disp_title=$fdat{title}; $disp_title=~s/\./ /g; if(defined($fdat{issue})) { $disp_title.=" #".$fdat{issue}; } $page_title=$disp_title." @ ".$page_title; } $yesr=`date +'%Y'`; print OUT "\n"; print OUT "\n"; print OUT "\n"; print OUT "".$page_title."\n"; print OUT "\n"; print OUT "\n"; print OUT "\n"; print OUT "\n"; print OUT "\n"; print OUT "\n"; print OUT "\n"; print OUT "\n"; print OUT "
\n"; if($fdat{title}) { $title=$fdat{title}; $src=$source_dir."/titles/".$title.".jpg"; $disp_title=$title; $disp_title=~s/\./ /g; if(-s $src ) { $src=~s/^$source_dir//; $src="\"$disp_title\""; print OUT $src."
\n"; } if(defined($fdat{issue})) { $issue=$fdat{issue}; $dir_issue=$issue; $dir_issue=~s/\-//g; $dir=mmm_util::laststr($dir_issue,2); $img_path=$path."/".substr($dir,length($dir)-1,1)."/".substr($dir,length($dir)-2,-1); if(${"comics_data::prices_$title"}{$issue}) { #print OUT ${"comics_data::prices_$title"}{$issue}=~s/\$/\\\$/g; ($date,$avg_text,$url,@analisys)=split(/\n/,${"comics_data::prices_$title"}{$issue}); @avgs=split(/ /,$avg_text); if($avgs[2] && $avgs[2] ne "0.00") { $price_text="Ebay Auction Prices :
\n  Avg \$$avgs[2]
\n  Max \$$avgs[0]
\n  Min \$$avgs[1]
\n"; foreach(@analisys) { $price_text.=$_."
\n"; } $price_text.="
\n"; $max_total+=$avgs[0]; $max_count++; $min_total+=$avgs[1]; $min_count++; $avg_total+=$avgs[2]; $avg_count++; } else { $price_text="Check Ebay

\n"; } } $temp="$source_dir$img_path/$title.$issue.jpg"; $temp_size=-s $temp; #print OUT "temp=$temp, temp_size=$temp_size,
\n"; if($temp_size>0) { print OUT "".$disp_title." #".$issue."
\"".$disp_title.""; if($price_text) { #print OUT "
".$price_text; } } elsif(${"comics_data::issues_$title"}{$issue}) { print OUT "".$disp_title." #".$issue."
\"missing\""; if($price_text) { #print OUT "
".$price_text; } } else { print OUT "
\"\"\n"; } print OUT "
\n"; } @issues=sort {$a <=> $b} keys %{"comics_data::issues_$title"}; print OUT "".@issues." issues scanned for ".$disp_title.".
\n"; print OUT "\n"; $x=1; $y=0; $end=$issues[0]+9; while($y<$end %$cols) { if($x==1) { $row_data=0; $row_text=""; $row_text.=""; } $row_text.="\n"; $row_data++; if($x>=$cols) { $row_text.="\n"; if($row_data) { print OUT $row_text; } $row_data=0; $row_text=""; $x=1; } else { $x++; } $y++; } print OUT $row_text; $count=@issues-1; if($debug) { print OUT "issues[0]=$issues[0], issues[$count]=".$issues[$count].", x-$x, y=$y, row_data=$row_data,
\n"; } $y=$issues[0]; $max_total=0; $max_count=0; $min_total=0; $min_count=0; $avg_total=0; $avg_count=0; while($y<=$issues[$count]) { $issue=$y; $dir_issue=$issue; $dir_issue=~s/\-//g; $dir=mmm_util::laststr($dir_issue,2); $img_path=$path."/".substr($dir,length($dir)-1,1)."/".substr($dir,length($dir)-2,-1); if(${"comics_data::prices_$title"}{$issue}) { ($date,$avg_text,$url,@analisys)=split(/\n/,${"comics_data::prices_$title"}{$issue}); @avgs=split(/ /,$avg_text); if($avgs[2] && $avgs[2] ne "0.00") { $price_text="Ebay Auction Prices :
\n  Avg \$$avgs[2]
\n  Max \$$avgs[0]
\n  Min \$$avgs[1]

\n"; $max_total+=$avgs[0]; $max_count++; $min_total+=$avgs[1]; $min_count++; $avg_total+=$avgs[2]; $avg_count++; } else { $price_text="Check Ebay

\n"; } } if($x==1) { $row_data=0; $row_text=""; $row_text.=""; } $temp="$source_dir$img_path/s_$title.$issue.jpg"; $temp_size=-s $temp; if($temp_size>0) { } if($temp_size>0) { $row_text.="\n"; $row_data++; } elsif(${"comics_data::issues_$title"}{$issue}) { $row_text.="\n"; $row_data++; } else { $row_text.="\n"; } if($x>=$cols) { $row_text.="\n"; if($row_data) { print OUT $row_text; } $row_data=0; $row_text=""; $x=1; } else { $x++; } $y++; } if($x && $x<=$cols) { while($x<$cols) { $row_text.="\n"; $x++; } $row_text.="\n"; if($row_data) { print OUT $row_text; } } $avg_count=0; if($avg_count) { $max_total=sprintf("%.2f",$max_total); $min_total=sprintf("%.2f",$min_total); $avg_avg=sprintf("%.2f",$avg_total); print OUT "\n"; } print OUT "
 
".$disp_title." #".$issue."
\"".$disp_title.""; if($price_text) { #$row_text.="
".$price_text; } $row_text.="		".$disp_title." #".$issue."
\"missing\""; if($price_text) { #$row_text.="
".$price_text; } $row_text.="		 
\"\"
 
\n"; print OUT "On Average, the ".$avg_count." auctioned issue(s) of ".@issues." available ".$title." issues could be actioned for \$".$avg_avg.".
\n"; print OUT "At Maximum, the ".$avg_count." auctioned issue(s) of ".@issues." available ".$title." issues could be actioned for \$".$max_total.".
\n"; print OUT "At Minimum, the ".$avg_count." auctioned issue(s) of ".@issues." available ".$title." issues could be actioned for \$".$min_total.".
\n"; print OUT "
\n"; print OUT "
\n"; } print OUT "This site has ".$comics_data::total_issues." issues scanned over ".@comics_data::titles." titles.
\n"; print OUT "
\n"; foreach $title (sort {$a cmp $b} @comics_data::titles) { $src=$source_dir."/titles/".$title.".jpg"; $disp_title=$title; $disp_title=~s/\./ /g; if(-s $src) { $src=~s/^$source_dir//; $text_title=$disp_title; $disp_title="\"$disp_title\""; } @count=sort{$a <=> $b} keys %{"comics_data::issues_".$title}; print OUT "
$disp_title
\n$text_title : ".@count." issue"; if(@count>1) { print OUT "s"; } print OUT " [ ".$count[0]." "; if(@count>1) { print OUT "- ".$count[@count-1]." "; } print OUT "]

\n"; } print OUT "
\n"; print OUT "\n"; print OUT "\n"; exit; 1; -]