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	<?
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	?>