first initial

libsteffen-mojoplug-authorization-perl/DEBIAN/control

@@ -0,0 +1,9 @@
+Package: libsteffen-mojoplug-authorization-perl
+Version: 1.0
+Section: perl
+Priority: optional
+Architecture: all
+Depends: libmojolicious-plugin-authorization-perl
+Installed-Size: 94
+Maintainer: Steffen Junge <Steffen.Junge@mlands.com>
+Description: Steffens MOJO Plug Authorization

libsteffen-mojoplug-authorization-perl/pbuild.sh

@@ -0,0 +1,27 @@
+#!/bin/bash
+
+script=`echo $0 | sed 's/^.*\///'`
+echo "$script"
+if [ -e ./$script ]; then
+    workdir=/tmp/$USER\_`pwd | sed 's/^.*\///'`
+    rm -Rf $workdir/*
+    mkdir -p $workdir
+    rsync -Cav ./DEBIAN $workdir/
+
+    rsync -Cav ./usr $workdir/
+
+    # Version in die startup app.pm eintragen
+    VER=`grep Version $workdir/DEBIAN/control | cut -d ' ' -f2`
+    sed -i "s@__VERSION__@$VER@g" $workdir/usr/share/perl5/steffen/MojoPlug/Authorization.pm
+    echo "Version $VER"
+
+    chmod -R g-s $workdir
+    fakeroot dpkg-deb -b $workdir ./
+
+    echo "Installed-Size:"
+    du -h -k --max-depth=0 $workdir
+
+else
+    echo Das Script $script muss im aktuellen Verzeichnis liegen!
+    echo Bitte dorthin wechseln und nochmal probieren.
+fi

libsteffen-mojoplug-authorization-perl/usr/share/perl5/steffen/MojoPlug/Authorization.pm

@@ -0,0 +1,39 @@
+package steffen::MojoPlug::Authorization;
+use parent 'Mojolicious::Plugin::Authorization';
+
+our $VERSION = '__VERSION__';
+
+sub register {
+    my ($self, $app, $args) = @_;
+
+    my $verbose = $args->{verbose} || 0;
+
+    $args->{has_priv} = sub {
+        my ($self, $priv, $xtra) = @_;
+        #$self->app->log->debug('has_priv') if $verbose;
+        return grep { /$priv/ } @{$self->session->{privs}};
+    };
+
+    $args->{is_role} = sub {
+        my ($self, $role, $xtra) = @_;
+        #$self->app->log->debug('is_role') if $verbose;
+        return $role eq $self->session->{role};
+    };
+
+    $args->{user_privs} = sub {
+        my ($self, $xtra) = @_;
+        #$self->app->log->debug('user_privs') if $verbose;
+        return $self->session->{privs};
+    };
+
+    $args->{user_role} = sub {
+        my ($self, $xtra) = @_;
+        #$self->app->log->debug('user_role') if $verbose;
+        return $self->session->{role};
+    };
+
+    $self->SUPER::register($app, $args);
+    $app->log->info(sprintf('REGISTERED: %s %s', __PACKAGE__, q$Revision: 86 $)) if $verbose;
+}
+
+1;