bucky2

1 files changed, 103 insertions, 0 deletions

diff --git a/bucky2/lib/Bucky/SVN.pm b/bucky2/lib/Bucky/SVN.pm
new file mode 100644
index 0000000..ef04464
--- /dev/null
+++ b/bucky2/lib/Bucky/SVN.pm
@@ -0,0 +1,103 @@
+package Bucky::SVN;
+use base "Bucky";
+use Bucky::Session;
+sub svn_secret
+	{ return shift->config("SVN_SECRET"); }
+sub list
+	{
+	my ($self, $count) = @_;
+	$count ||= 7;
+	return $self->db->select("svn", "ORDER BY date DESC LIMIT $count");
+	}
+sub query_incoming
+	{
+	my ($self) = @_;
+	my $session = new Bucky::Session;
+	error() unless scalar $session->q->param && length $session->q->param("secret") && $session->q->param("secret") eq $self->svn_secret();
+	if ($session->q->param("user"))
+		{
+		print $self->query_add($session);
+		}
+	else
+		{
+		print "Content-type: text/html\n\n";
+		print $self->query_list;
+		}
+	}
+sub query_list
+	{
+	my ($self) = @_;
+	my $svns = $self->list;
+	my $out .= <<__HEAD__;
+<table cellpadding=0 cellspacing=0 style="border: 1px solid #333;">
+__HEAD__
+	my $r = 0;
+	foreach my $svn (@$svns)
+		{
+		$r = $r ? 0 : 1;
+		my $user = $svn->{'user'};
+		$user = "default" if $user eq "root";
+		my $user_profile = "/cgi-bin/bucky/profile/$user";
+		my $user_img = "/bucky/data/profile/.thumb/am.$user.jpg";
+		my $date = $self->show_date($svn->{'date'});
+		my $revision = $svn->{'revision'};
+		my $comment = $svn->{'comment'};
+		$out .= <<__SVN__;
+<tr>
+<td style="border: 1px solid #333;" align="center">
+<a href="$user_profile"><img src="$user_img" border=0></a><!--<br><small>$user</small>-->
+</td>
+<td style="border: 1px solid #333; padding: 3px" class="r$r">
+<small>$revision: $comment</small>
+</td>
+</small>
+</tr>
+__SVN__
+		}
+	$out .= <<__FOOT__;
+</table>
+__FOOT__
+	return $out;
+	}
+sub query_add
+	{
+	my ($self, $session) = @_;
+
+	my $user = $session->q->param("user");
+	my $revision = $session->q->param("revision");
+	my $comment = $session->q->param("comment");
+	my $date = time;
+
+	error("missing some parameters\npossible: secret, user, revision, comment\n")
+		unless $user && $comment && $revision
+			&& $self->is_number($revision) && length $user && length $comment;
+
+	my $query =
+		{
+		user => $user,
+		comment => $comment,
+		revision => $revision,
+		date => $date,
+		};
+
+	if (my $id = $self->db->insert("svn", $query))
+		{ success("Successfully inserted $id"); }
+	else
+		{ error("Unable to insert!"); }
+	}
+sub success
+	{
+	my ($success) = @_;
+	$success ||= "NICE ONE";
+	print "Content-type: text/plain\n\nSUCCESS: $success";
+	exit;
+	}
+sub error
+	{
+	my ($error) = @_;
+	$error ||= "SORRY GUY";
+	print "Content-type: text/plain\n\nERROR: $error";
+	exit;
+	}
+
+1;