html/inc/poppassd.inc

<?

// poppassd -- change password

// input: login, password, new password
// returns: array ( return code, message )


function poppassd($login,$passwd,$newpasswd) {

        function gronk($fp,$command) {
                fputs($fp,"$command\r\n");
                $line=fgets($fp,255);
                if (substr($line,0,3) == "200") {
                        return(array(1,$line));
                } else {
                        return(array(0,$line));
                }
        }

        $host="intranet.pliva.hr";

        $fp = fsockopen($host, 106, &$errno, &$errstr, 30);
        if(!$fp) {
                return(array(0,"can't connect to $host port 106"));
        } else {
                $line=fgets($fp,255);           # skip welcome
                $out=gronk($fp,"user $login");
                if (! $out[0]) return($out);
                $out=gronk($fp,"pass $passwd");
                if (! $out[0]) return($out);
                $out=gronk($fp,"newpass $newpasswd");
                fclose($fp);
        }

        return($out);

}

?>
1	dpavlin	1.1	<?
2
3			// poppassd -- change password
4
5			// input: login, password, new password
6			// returns: array ( return code, message )
7
8
9			function poppassd($login,$passwd,$newpasswd) {
10
11			function gronk($fp,$command) {
12			fputs($fp,"$command\r\n");
13			$line=fgets($fp,255);
14			if (substr($line,0,3) == "200") {
15			return(array(1,$line));
16			} else {
17			return(array(0,$line));
18			}
19			}
20
21			$host="intranet.pliva.hr";
22
23			$fp = fsockopen($host, 106, &$errno, &$errstr, 30);
24			if(!$fp) {
25			return(array(0,"can't connect to $host port 106"));
26			} else {
27			$line=fgets($fp,255); # skip welcome
28			$out=gronk($fp,"user $login");
29			if (! $out[0]) return($out);
30			$out=gronk($fp,"pass $passwd");
31			if (! $out[0]) return($out);
32			$out=gronk($fp,"newpass $newpasswd");
33			fclose($fp);
34			}
35
36			return($out);
37
38			}
39
40			?>