X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FWizard.pm;fp=perl%2FSesse%2Fpr0n%2FWizard.pm;h=929b7dbe78095d951a4c899cf5ddab288164e1ab;hp=0000000000000000000000000000000000000000;hb=437c5df6373cbf14cdaaa927655abe06f78b6d27;hpb=9e55351cd6b7618026477ab7d0d674af6cc8322a

diff --git a/perl/Sesse/pr0n/Wizard.pm b/perl/Sesse/pr0n/Wizard.pm
new file mode 100644
index 0000000..929b7db
--- /dev/null
+++ b/perl/Sesse/pr0n/Wizard.pm
@@ -0,0 +1,45 @@
+package Sesse::pr0n::Wizard;
+use strict;
+use warnings;
+
+use Sesse::pr0n::Common qw(error dberror);
+use Apache2::Request;
+
+sub handler {
+	my $r = shift;
+	my $apr = Apache2::Request->new($r);
+	my $dbh = Sesse::pr0n::Common::get_dbh();
+
+        # Internal? (Ugly?)
+	if ($r->get_server_name =~ /internal/ || $r->get_server_name =~ /skoyen\.bilder\.knatten\.com/) {
+		my $user = Sesse::pr0n::Common::check_access($r);
+		if (!defined($user)) {
+			return Apache2::Const::OK;
+		}
+	}
+
+	# Find events
+	my $q = $dbh->prepare('SELECT id,date,name FROM events e JOIN last_picture_cache c ON e.id=c.event WHERE vhost=? ORDER BY last_picture DESC')
+		or dberror($r, "Couldn't list events");
+	$q->execute($r->get_server_name)
+		or dberror($r, "Couldn't get events");
+
+	$r->content_type('text/html; charset=utf-8');
+	$r->print(Sesse::pr0n::Templates::fetch_template($r, 'wizard-header'));
+	
+	while (my $ref = $q->fetchrow_hashref()) {
+		my $id = $ref->{'id'};
+		my $date = $ref->{'date'};
+		my $name = $ref->{'name'};
+		
+		$r->print("              <option value=\"$id\">$name</option>\n");
+	}
+
+	$r->print(Sesse::pr0n::Templates::fetch_template($r, 'wizard-footer'));
+
+	return Apache2::Const::OK;
+}
+	
+1;
+
+