viewvc.cgi/synchroedit/espi.cgi

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp 'fatalsToBrowser';

use Data::Dump qw/dump/;

$| = 1;

my $admins = {
        'dpavlin' => 'my admin secret',
};

my $espi_hook = {
#       'authenticate-user' => 'ACCESS GRANTED ADMIN',
#       'authenticate-user' => 'ACCESS GRANTED',
        'authenticate-user' => sub {
                my $param = shift;
                warn "param = ",dump( $param );
                my $ret = 'ACCESS GRANTED';
                $ret .= ' ADMIN' if defined( $admins->{ $param->{uid} } ) && $admins->{ $param->{uid} } eq $param->{pwd};
                return $ret;
        }
};

my $cgi = new CGI;

print $cgi->header();

my $v = $cgi->Vars;

warn dump( $v );

my $hook = $v->{espi_hook} || die "no espi_hook?";

die "can't find hook for $hook" unless defined( $espi_hook->{ $hook } );

if ( ref( $espi_hook->{ $hook } ) eq 'CODE' ) {
        print $espi_hook->{ $hook }->( $v );
} else {
        print $espi_hook->{ $hook }
};
print "\n";
1	dpavlin	1	#!/usr/bin/perl
2
3			use strict;
4			use warnings;
5			use CGI;
6			use CGI::Carp 'fatalsToBrowser';
7
8			use Data::Dump qw/dump/;
9
10			$\| = 1;
11
12	dpavlin	2	my $admins = {
13			'dpavlin' => 'my admin secret',
14			};
15
16	dpavlin	1	my $espi_hook = {
17			# 'authenticate-user' => 'ACCESS GRANTED ADMIN',
18			# 'authenticate-user' => 'ACCESS GRANTED',
19			'authenticate-user' => sub {
20			my $param = shift;
21			warn "param = ",dump( $param );
22			my $ret = 'ACCESS GRANTED';
23	dpavlin	2	$ret .= ' ADMIN' if defined( $admins->{ $param->{uid} } ) && $admins->{ $param->{uid} } eq $param->{pwd};
24	dpavlin	1	return $ret;
25			}
26			};
27
28			my $cgi = new CGI;
29
30			print $cgi->header();
31
32			my $v = $cgi->Vars;
33
34			warn dump( $v );
35
36			my $hook = $v->{espi_hook} \|\| die "no espi_hook?";
37
38			die "can't find hook for $hook" unless defined( $espi_hook->{ $hook } );
39
40			if ( ref( $espi_hook->{ $hook } ) eq 'CODE' ) {
41			print $espi_hook->{ $hook }->( $v );
42			} else {
43			print $espi_hook->{ $hook }
44			};
45			print "\n";