#!/usr/bin/perl

use GD;
require "../cgi-lib.pl";
ReadParse(*params);

%factions = (
	     classic => { str => [ "classic", ], },
	     crusaders => { str => [ "crusader", "lion" ], },
	     blackfalcons => { str => [ "falcon", ], },
	     forestmen => { str => [ "forestmen", ], },
	     blackknights => { str => [ "blackknight", ], },
	     wolfpack => { str => [ "wolfpack", ], },
	     dragonmasters => { str => [ "dragon", ], },
	     royalknights => { str => [ "royal", ], },
	     frightknights => { str => [ "fright", ], },
	     knightskingdom => { str => [ "knightskingdom", "kk1", ], },
	     bulls => { str => [ "bull", ], },
	     shadowknights => { str => [ "shadow", "vladek", "scorpion", ], },
	     vikings => { str => [ "viking", ], },
	     );

$scale_area = $params{scale} || 50;
my(%groups);
foreach my $group (split /\0/,$params{groups}) {
    if($params{"$group\_cnt"}) {
	$groups{$group}{cnt} = $params{"$group\_cnt"};
	$groups{$group}{area} = $params{"$group\_cnt"}*$scale_area;
	$groups{$group}{radius} = int sqrt($groups{$group}{area}/3.14159);
	$groups{$group}{name} = $params{"$group\_name"} || "?";
	my $fcheck = lc $groups{$group}{name};
	$fcheck =~ s/\W+//g;
	if($params{icons} && $fcheck =~ /\w/) {
	    foreach my $faction (keys %factions) {
		foreach my $str (@{$factions{$faction}{str}}) {
		    if($fcheck =~ /$str/) {
			$groups{$group}{faction} = $faction;
		    }
		}
	    }
	}
	#$groups{$group}{name} = $groups{$group}{radius};
	$groups{$group}{width} =
	    (5*length($groups{$group}{name}) > 2*$groups{$group}{radius}) ?
	    5*length($groups{$group}{name}) :
	    2*$groups{$group}{radius};
	$groups{$group}{height} = 2*$groups{$group}{radius} + 10;
	if(exists($groups{$group}{faction})) {
	    my($faction) = $groups{$group}{faction};
	    if(!exists($factions{$faction}{img})) {
		my($GIF);
		my $gif_file = "/home/dave/public_html/images/shields/$faction\.gif";
		my $outp = `identify $gif_file`;
		if($outp =~ /gif\s+gif\s+(\d+)x(\d+)\s+/i) {
		    $factions{$faction}{x} = $1;
		    $factions{$faction}{y} = $2;
		    $factions{$faction}{radius} = int(sqrt(($factions{$faction}{x}/2)**2 + ($factions{$faction}{y}/2)**2));
		    $factions{$faction}{radius}+=2; #cuttin' it close!
		}
		if(open($GIF,$gif_file)) {
		    $factions{$faction}{img} = newFromGif GD::Image($GIF);
		    close $GIF;
		}
	    }
	}
    }
}
my($width) = 3;
my($height) = 0;
foreach my $group (keys %groups) {
    $width += 3;
    $width += $groups{$group}{width};
    if($groups{$group}{height} > $height) { $height = $groups{$group}{height}; }
}
$height += 6;
if($width > 2000 || $height > 2000) {
    error("Sorry, that's too big!");
}
$img = new GD::Image($width,$height,1);
$img->fill(1,1,color(255,255,255));
$xpos = 2;
foreach my $group (sort {$groups{$a}{cnt} <=> $groups{$b}{cnt}} (keys %groups)) {
    $grp = $groups{$group};
    $grp->{color} = color($params{"$group\_r"},$params{"$group\_g"},$params{"$group\_b"});
    if($params{filled}) {
	$grp->{inv} = inv_color($params{"$group\_r"},$params{"$group\_g"},$params{"$group\_b"});
    } else {
	#sneaky!
	$grp->{inv} = $grp->{color};
    }
    if(2.5*length($grp->{name}) > $grp->{radius}) {
	$img->string(gdTinyFont,$xpos,3,$grp->{name},$grp->{color});
	if($params{filled}) {
	    $img->filledArc($xpos+int(2.5*length($grp->{name})),12+$grp->{radius},2*$grp->{radius},2*$grp->{radius},0,360,$grp->{color});
	} else {
	    if($grp->{faction} && $grp->{radius} >= $factions{$grp->{faction}}{radius}) {
		$img->copy(
			   $factions{$grp->{faction}}{img},
			   $xpos+int(2.5*length($grp->{name}))-int(0.5*$factions{$grp->{faction}}{x}),
			   12+$grp->{radius}-int(0.5*$factions{$grp->{faction}}{y}),
			   0,
			   0,
			   $factions{$grp->{faction}}{x},
			   $factions{$grp->{faction}}{y});
	    } elsif($grp->{faction}) {
		my $mult = $grp->{radius} / $factions{$grp->{faction}}{radius};
		$img->copyResized(
				  $factions{$grp->{faction}}{img},
				  $xpos+int(2.5*length($grp->{name}))-int(0.5*$factions{$grp->{faction}}{x}*$mult),
				  12+$grp->{radius}-int(0.5*$factions{$grp->{faction}}{y}*$mult),
				  0,
				  0,
				  int($factions{$grp->{faction}}{x}*$mult),
				  int($factions{$grp->{faction}}{y}*$mult),
				  $factions{$grp->{faction}}{x},
				  $factions{$grp->{faction}}{y});

	    }
	    $img->arc($xpos+int(2.5*length($grp->{name})),12+$grp->{radius},2*$grp->{radius},2*$grp->{radius},0,360,$grp->{color});
	}
    } else {
	if($params{filled}) {
	    $img->filledArc($xpos+$grp->{radius},12+$grp->{radius},2*$grp->{radius},2*$grp->{radius},0,360,$grp->{color});
	} else {
	    if($grp->{faction} && $grp->{radius} >= $factions{$grp->{faction}}{radius}) {
		$img->copy(
			   $factions{$grp->{faction}}{img},
			   $xpos+$grp->{radius}-int(0.5*$factions{$grp->{faction}}{x}),
			   12+$grp->{radius}-int(0.5*$factions{$grp->{faction}}{y}),
			   0,
			   0,
			   $factions{$grp->{faction}}{x},
			   $factions{$grp->{faction}}{y});
	    } elsif($grp->{faction}) {
		my $mult = $grp->{radius} / $factions{$grp->{faction}}{radius};
		$img->copyResized(
				  $factions{$grp->{faction}}{img},
				  
				  $xpos+$grp->{radius}-int(0.5*$factions{$grp->{faction}}{x}*$mult),
				  12+$grp->{radius}-int(0.5*$factions{$grp->{faction}}{y}*$mult),
				  0,
				  0,
				  int($factions{$grp->{faction}}{x}*$mult),
				  int($factions{$grp->{faction}}{y}*$mult),
				  $factions{$grp->{faction}}{x},
				  $factions{$grp->{faction}}{y});
	    }
	    $img->arc($xpos+$grp->{radius},12+$grp->{radius},2*$grp->{radius},2*$grp->{radius},0,360,$grp->{color});
	}
	if(($params{filled} || !$grp->{faction}) && 5*length($grp->{name})+6 < 2*$grp->{radius}) {
	    $img->string(gdTinyFont,$xpos+$grp->{radius}-(5*length($grp->{name})/2),8+$grp->{radius},$grp->{name},$grp->{inv});
	} else {
	    $img->string(gdTinyFont,$xpos+$grp->{radius}-(5*length($grp->{name})/2),3,$grp->{name},$grp->{color});
	}
    }
    $xpos+=$grp->{width}+3;
}

print "Content-Type: image/png\n\n";
binmode STDOUT;
print $img->png;

sub color {
    my($r,$g,$b) = @_;
    $r||=0;
    $g||=0;
    $b||=0;
    if(!defined($pal{"$r\_$g\_$b"})) {
        $pal{"$r\_$g\_$b"} = $img->colorAllocate($r,$g,$b);
    }
    return $pal{"$r\_$g\_$b"};
}

sub inv_color {
    my($r,$g,$b) = @_;
    $r += 127;
    $g += 127;
    $b += 127;
    $r = $r % 255;
    $g = $g % 255;
    $b = $b % 255;
    return color($r,$g,$b);
}

sub error {
    my($str) = @_;
    if(!$img) {
	$img = new GD::Image(6+5*length($str),23,1);
	$img->fill(1,1,color(223,223,223));
    }
    $img->string(gdTinyFont,3,4,"Error:",color(255,0,0));
    $img->string(gdTinyFont,3,12,$str,color(0,0,0));
    print "Content-Type: image/png\n\n";
    binmode STDOUT;
    print $img->png;
    exit(0);
}