/[synchroedit]/espi.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /espi.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1 by dpavlin, Sun Apr 15 22:45:14 2007 UTC revision 2 by dpavlin, Sun Apr 15 23:10:09 2007 UTC
# Line 9  use Data::Dump qw/dump/; Line 9  use Data::Dump qw/dump/;
9    
10  $| = 1;  $| = 1;
11    
12    my $admins = {
13            'dpavlin' => 'my admin secret',
14    };
15    
16  my $espi_hook = {  my $espi_hook = {
17  #       'authenticate-user' => 'ACCESS GRANTED ADMIN',  #       'authenticate-user' => 'ACCESS GRANTED ADMIN',
18  #       'authenticate-user' => 'ACCESS GRANTED',  #       'authenticate-user' => 'ACCESS GRANTED',
# Line 16  my $espi_hook = { Line 20  my $espi_hook = {
20                  my $param = shift;                  my $param = shift;
21                  warn "param = ",dump( $param );                  warn "param = ",dump( $param );
22                  my $ret = 'ACCESS GRANTED';                  my $ret = 'ACCESS GRANTED';
23  #               $ret .= ' ADMIN';                  $ret .= ' ADMIN' if defined( $admins->{ $param->{uid} } ) && $admins->{ $param->{uid} } eq $param->{pwd};
24                  return $ret;                  return $ret;
25          }          }
26  };  };
Legend:
Removed from v.1  
changed lines
  Added in v.2
  ViewVC Help
Powered by ViewVC 1.1.26