plugins/password/drivers/vpopmaild.php

   1 <?php
   2
   3 /**
   4  * vpopmail Password Driver
   5  *
   6  * Driver to change passwords via vpopmaild
   7  *
   8  * @version 1.1
   9  * @author Johannes Hessellund
  10  *
  11  */
  12
  13 function password_save($curpass, $passwd)
  14 {
  15     $rcmail = rcmail::get_instance();
  16 //    include('Net/Socket.php');
  17     $vpopmaild = new Net_Socket();
  18
  19     if (PEAR::isError($vpopmaild->connect($rcmail->config->get('password_vpopmaild_host'),
  20             $rcmail->config->get('password_vpopmaild_port'), null))) {
  21         return PASSWORD_CONNECT_ERROR;
  22     }
  23
  24     $result = $vpopmaild->readLine();
  25     if(!preg_match('/^\+OK/', $result)) {
  26         $vpopmaild->disconnect();
  27         return PASSWORD_CONNECT_ERROR;
  28     }
  29
  30     $vpopmaild->writeLine("slogin ". $_SESSION['username'] . " " . $curpass);
  31     $result = $vpopmaild->readLine();
  32     if(!preg_match('/^\+OK/', $result) ) {
  33         $vpopmaild->writeLine("quit");
  34         $vpopmaild->disconnect();
  35         return PASSWORD_ERROR;
  36     }
  37
  38     $vpopmaild->writeLine("mod_user ". $_SESSION['username']);
  39     $vpopmaild->writeLine("clear_text_password ". $passwd);
  40     $vpopmaild->writeLine(".");
  41     $result = $vpopmaild->readLine();
  42     $vpopmaild->writeLine("quit");
  43     $vpopmaild->disconnect();
  44
  45     if (!preg_match('/^\+OK/', $result))
  46         return PASSWORD_ERROR;
  47
  48     return PASSWORD_SUCCESS;
  49 }
  50
  51 ?>