# infoboxes!!!!!!!!!!!!

our $BPOD_COLOR_UI_GRADIENT_1 = "0xF8F8D7"; 
our $BPOD_COLOR_UI_GRADIENT_2 = "0xF0F0E6";
our $BPOD_COLOR_UI_STROKE = "0x000000";

my $DEBUG_FORM_STRING = $DEBUG ? qq(<input type="hidden" name="debug" value="1">) : '';

use RGB;

sub alerts
	{
	my $newmsg = count_new_messages($USER->{username});
	if ($newmsg > 0)
		{
		my $s = courtesy_s($newmsg);
		alert_box("$BUCKY/inbox", "You have $newmsg new message$s!");
		}
	}

sub alert_box
	{
	my ($url, $msg) = @_;
	print qq(<div class="message" style="background-color: #ff6666; font-family: georgia, garamond, serif;">\n);
	print qq(<br><a href="$url" style="font-family: georgia, garamond, serif; color: #000;"><b><u>);
	print $msg;
	print qq(</b></u></a><br><br>);
	print qq(</div>\n);
	}

sub welcome_box
	{
	my ($files, $size) = count_user_files($USER->{username});
	print qq(<div class="message">\n);
	print qq(<b><big>$BUCKY_LOGIN_WELCOME</big></b><br>\n);
	print qq(<small>you are using ),hushsize($size,2),qq( in $files files</small>);
	print qq(</div>\n);
	}
sub search_box
	{
	print <<__SEARCH__;
<div class="message">
<table width=100% border=0 cellpadding=0 cellspacing=0 style="margin: 0px;">
<script type="text/javascript">window.onload = function(){ document.getElementById("q").focus() }</script>
<form action="$BUCKY/2/search" method="get" enctype="multipart/form-data">
$DEBUG_FORM_STRING
<tr><td height=$AVATAR_MED_WIDTH>
<table width=100% cellpadding=0 cellspacing=0 border=0>
<tr><td style="text-align: center; vertical-align: middle;">
<input id="q" name="q" value="" maxlength=1024 style="font-size: 10px; font-family: Trebuchet MS, Helvetica, Arial, sans-serif;
                            color: #140A0A; border: 1px #140A0A solid; padding: 1px; margin: 0px 0px 0px 0px; width: 100%;"> 
</td>
<td style="text-align: center; vertical-align: middle;">
<input type="submit" value="SEARCH" class="clicky" style="margin: 0px 0px 0px 0px;">
</td></tr></table>
</td></tr></table>
</div>
</form>
__SEARCH__
	}
sub bPod_box
	{
	my ($color) = @_;
	$color = get_color_from_time() || "plain";
	$color = $COLORS{$color} if exists $COLORS{$color};
    my $rgb = RGB->new($color);
    $rgb->perturb([4,4,8]);
    my $gradient1 = $rgb->hex();
    $rgb->add(nighttime_quotient());
    my $background = $rgb->hex();
	$gradient1 =~ s/^\#/0x/;
	$BPOD_COLOR_UI_GRADIENT_1 = $gradient1; # "0xF8F8D7"; 
	print <<bPod;

<!-- bPod -->
<div style="padding-left: 1px;" id = "bPod"></div><center>
<script type="text/javascript" src="/js/swfobject.js"></script>
<script type="text/javascript">
  // <![CDATA[
  var so = new SWFObject ("/bPod.swf", "bPod", 215, 210, 8, "$background" );
  so.addParam ("scale", "noscale");
bPod
  print qq!  so.addVariable("activeUser",  "$USER->{username}" );\n! if ($USER != -1);
  print qq!  so.addVariable("uiGradient1", "$BPOD_COLOR_UI_GRADIENT_1" );\n!;
  print qq!  so.addVariable("uiGradient2", "$BPOD_COLOR_UI_GRADIENT_2" );\n!;
  print qq!  so.addVariable("uiStroke", "$BPOD_COLOR_UI_STROKE" );\n!;

  print qq!  so.addVariable("keywords", "$BPOD_URL_SERVICES_KEYWORDS" );\n!;
  print qq!  so.addVariable("files", "$BPOD_URL_SERVICES_FILES" );\n!;
  print qq!  so.addVariable("threads", "$BPOD_URL_SERVICES_THREADS" );\n!;
  print qq!  so.addVariable("singleFilePath", "$BPOD_URL_PREAMBLE_FILES" );\n!;
  print qq!  so.addVariable("singleThreadPath", "$BPOD_URL_DETAILS" );\n!;
	print <<bPod;
  so.write("bPod");
  // ]]>  
</script>
<!-- end bPod -->
bPod
	}

sub radio_box
	{
	my $radio = get_radio_info();

	if ($radio == -1)
		{
		#return;
		print qq!<div class="message">\n!;
                print qq[<small><b>RADIO: GOING DARK</b><br>\n];
                print qq!<a href="http://radiofreehanoi.com/HOWTO">click here for broadcast instructions</a>\n</small>!;
		print qq!</div>\n!;
		}
	else
		{
		print qq!<div class="message">\n!;
		print qq!<b>$radio->{station}</b><br>\n!;
		print qq!<small>$radio->{nowplaying}</small><br>\n!;
		print qq!<a href="$radio->{tunein}"><small>$radio->{tunein}</small></a>\n!;
		print qq!</div>\n!;
		}
	}

sub hoot_box
	{
	my $hoot = uc( get_random_line("hoots") );
print qq(<div align="left");
    print qq(<div class="message2">\n);
  print qq(<form action="$BUCKY/comment" method="post" enctype="multipart/form-data">);
	print qq(<input type=hidden name="debug" value=1">\n) if ($DEBUG);
print qq(<table width=100% border=0 cellpadding=3 cellspacing=0 style="margin: 0px;">);
    print <<END;
<tr><td colspan=2 height=$AVATAR_MED_WIDTH>
<input type="hidden" name="id" value="1">

<table width=100% cellpadding=0 cellspacing=0 border=0>
<tr>
<td style="text-align: center; vertical-align: middle;">
<input name="comment" value="" maxlength=1024 style="font-size: 10px; font-family: Trebuchet MS, Helvetica, Arial, sans-serif;
                            color: #140A0A; border: 1px #140A0A solid; padding: 1px; margin: 0px 0px 0px 0px; width: 100%;">
</td>
<td style="text-align: center; vertical-align: middle;">
<input type="submit" value="$hoot" class="clicky" style="margin: 0px 5px 0px 5px;">
</td></tr></table>
</form>
</td></tr>
<!-- PRINTING COMMENTS -->
END
                       # <hr color="$BUCKY_COLOR_HR">
  my $comments = get_comments(1, 15);
	sideshow_comments({ comments => $comments, thread => -1, keyword => -1, noreply => 1, hootbox => 1, order => "asc", shorturl => 1 });
print "</table>";
print <<__DUH__;
<br><big>~&gt;{ <a href="$BUCKY/details/1">GLIMPSE THE PAST</a> }&lt;~</big>
__DUH__
	print qq!</div>!;
	}
sub svn_box
	{
	use lib "../../bucky2/lib";
	use Bucky::SVN;
	my $svn = new Bucky::SVN;
	print $svn->query_list;
	}

1;