login.cgi

   1 #!/usr/bin/perl
   2
   3 # $Id: login.cgi,v 1.10 2006/12/22 08:58:50 rmurray Exp $
   4 # (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
   5 # (c) 2006 Ryan Murray. Licensed under the GPL. <rmurray@debian.org>
   6 # Copyright (c) 2008, 2011, 2015 Peter Palfrader
   7
   8 use lib '.';
   9 use strict;
  10 #use Apache::Registry;
  11 use CGI;
  12 use Util;
  13 use URI::Escape;
  14 use Net::LDAP qw(LDAP_SUCCESS LDAP_PROTOCOL_ERROR);
  15
  16 my %config = &Util::ReadConfigFile;
  17
  18 my $query = new CGI;
  19 my $proto = ($ENV{HTTPS} ? "https" : "http");
  20
  21 if ($proto eq "http" || !($query->param('username')) || !($query->param('password'))) {
  22   print "Location: https://$ENV{SERVER_NAME}/$config{webloginhtml}\n\n";
  23   exit;
  24 }
  25
  26 my $ldap = Net::LDAP->new($config{ldaphost}) || &Util::HTMLError($!);
  27 &Util::UpgradeConnection($ldap) unless $config{usessl} eq 'False';
  28
  29 my $username = $query->param('username');
  30 my $password = $query->param('password');
  31 my $binddn = "uid=$username,$config{basedn}";
  32
  33 my $mesg = $ldap->bind($binddn, password => $password);
  34 $mesg->sync;
  35
  36 if ($mesg->code == LDAP_SUCCESS) {
  37   # HACK HACK HACK
  38   # Check for md5 password, and update as necessary
  39   $mesg = $ldap->search(base   => $config{basedn},
  40                         filter => "(uid=$username)");
  41   $mesg->code && &Util::HTMLError($mesg->error);
  42   my $entries = $mesg->as_struct;
  43   my $dn = (keys %$entries)[0];
  44   my $oldpassword = $entries->{$dn}->{userpassword}->[0];
  45   if ($oldpassword !~ /^{crypt}\$1\$/) {
  46     # Update their password to md5
  47     open (LOG, ">>$config{weblogfile}");
  48     print LOG scalar(localtime);
  49     print LOG ": Updating MD5 password for $dn\n";
  50     close LOG;
  51     my $newpassword = '{crypt}'.crypt($password, &Util::CreateCryptSalt(1));
  52     &Util::LDAPUpdate($ldap, $dn, 'userPassword', $newpassword);
  53   }
  54   ## END HACK HACK HACK
  55
  56   my $authtoken = &Util::SavePasswordToFile($username, $password);
  57
  58   if ($query->param('update')) {
  59     my $url = "$proto://$ENV{SERVER_NAME}/$config{webupdateurl}?id=$username;authtoken=$authtoken";
  60     print "Location: $url\n\n";
  61   } else {
  62     my $url = "$proto://$ENV{SERVER_NAME}/$config{websearchurl}?id=$username;authtoken=$authtoken";
  63     print "Location: $url\n\n";
  64   }
  65
  66   $ldap->unbind;
  67 } else {
  68   print "Content-type: text/html; charset=utf-8\n\n";
  69   print "<html><body><h1>Not authenticated</h1></body></html>\n";
  70 }
  71