From e9192b3d42660a5781101df4357d276318151e8a Mon Sep 17 00:00:00 2001
From: Jules Laplace <carbon@melanarchy.org>
Date: Fri, 2 Aug 2013 17:14:41 -0500
Subject: cgi-bin & lib

---
 lib/boxes.pm | 165 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 165 insertions(+)
 create mode 100644 lib/boxes.pm

(limited to 'lib/boxes.pm')

diff --git a/lib/boxes.pm b/lib/boxes.pm
new file mode 100644
index 0000000..8c29644
--- /dev/null
+++ b/lib/boxes.pm
@@ -0,0 +1,165 @@
+# 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;">
+<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 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;
+
-- 
cgit v1.2.3-70-g09d2