From owner-svn-src-user@FreeBSD.ORG  Wed Apr 16 21:10:37 2014
Return-Path: <owner-svn-src-user@FreeBSD.ORG>
Delivered-To: svn-src-user@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org [8.8.178.115])
 (using TLSv1 with cipher ADH-AES256-SHA (256/256 bits))
 (No client certificate requested)
 by hub.freebsd.org (Postfix) with ESMTPS id 5D382E7E;
 Wed, 16 Apr 2014 21:10:37 +0000 (UTC)
Received: from svn.freebsd.org (svn.freebsd.org
 [IPv6:2001:1900:2254:2068::e6a:0])
 (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits))
 (Client did not present a certificate)
 by mx1.freebsd.org (Postfix) with ESMTPS id 4B703116F;
 Wed, 16 Apr 2014 21:10:37 +0000 (UTC)
Received: from svn.freebsd.org ([127.0.1.70])
 by svn.freebsd.org (8.14.8/8.14.8) with ESMTP id s3GLAbLk039283;
 Wed, 16 Apr 2014 21:10:37 GMT (envelope-from des@svn.freebsd.org)
Received: (from des@localhost)
 by svn.freebsd.org (8.14.8/8.14.8/Submit) id s3GLAb8f039282;
 Wed, 16 Apr 2014 21:10:37 GMT (envelope-from des@svn.freebsd.org)
Message-Id: <201404162110.s3GLAb8f039282@svn.freebsd.org>
From: Dag-Erling Smørgrav <des@FreeBSD.org>
Date: Wed, 16 Apr 2014 21:10:37 +0000 (UTC)
To: src-committers@freebsd.org, svn-src-user@freebsd.org
Subject: svn commit: r264557 - user/des/fbp/lib/FBP
X-SVN-Group: user
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-BeenThere: svn-src-user@freebsd.org
X-Mailman-Version: 2.1.17
Precedence: list
List-Id: "SVN commit messages for the experimental &quot; user&quot;
 src tree" <svn-src-user.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/options/svn-src-user>,
 <mailto:svn-src-user-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/svn-src-user/>
List-Post: <mailto:svn-src-user@freebsd.org>
List-Help: <mailto:svn-src-user-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/svn-src-user>,
 <mailto:svn-src-user-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Wed, 16 Apr 2014 21:10:37 -0000

Author: des
Date: Wed Apr 16 21:10:36 2014
New Revision: 264557
URL: http://svnweb.freebsd.org/changeset/base/264557

Log:
  (and the rest of the controller)

Added:
  user/des/fbp/lib/FBP/Controller.pm   (contents, props changed)

Added: user/des/fbp/lib/FBP/Controller.pm
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ user/des/fbp/lib/FBP/Controller.pm	Wed Apr 16 21:10:36 2014	(r264557)
@@ -0,0 +1,52 @@
+use utf8;
+package FBP::Controller;
+use Moose;
+use namespace::autoclean;
+
+BEGIN { extends 'Catalyst::Controller'; }
+
+=encoding utf8
+
+=head1 NAME
+
+FBP::Controller - Superclass for FBP controllers
+
+=head1 DESCRIPTION
+
+This class provides common code for FBP controllers.
+
+=head1 METHODS
+
+=head2 require_user
+
+Verifies that the client is authenticated, and if not, redirects to
+the login page.
+
+=cut
+
+sub require_user($$) {
+    my ($self, $c) = @_;
+
+    if (!$c->user_exists) {
+	$c->response->redirect($c->uri_for_action('/login'));
+	$c->detach();
+    }
+    return $c->user;
+}
+
+=head1 AUTHOR
+
+Dag-Erling Smørgrav <des@freebsd.org>
+
+=head1 LICENSE
+
+This library is free software. You can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+__PACKAGE__->meta->make_immutable;
+
+1;
+
+# $FreeBSD$