inncomm/inc/finger.inc

<?

// finger host to get full name

function finger($login) {

        $fp = fsockopen("intranet.pliva.hr", 79, &$errno, &$errstr, 30);
        if(!$fp) {
                return;
        } else {
                fputs($fp,"$login\n");
                $line=fgets($fp,128);
                ereg( "[^:][^:]*: ([^ ][^ ]*) *[^:][^:]*: (.*)", $line, $regs);
#               echo "$regs[1] -- $regs[2]\n";
                fclose($fp);
        }

        $out=trim($regs[2]);
        if ($out != "") {
                return($out);
        } else {
                return(0);
        }

}

?>
1	<?
2
3	// finger host to get full name
4
5	function finger($login) {
6
7	$fp = fsockopen("intranet.pliva.hr", 79, &$errno, &$errstr, 30);
8	if(!$fp) {
9	return;
10	} else {
11	fputs($fp,"$login\n");
12	$line=fgets($fp,128);
13	ereg( "[^:][^:]: ([^ ][^ ]) [^:][^:]: (.*)", $line, $regs);
14	# echo "$regs[1] -- $regs[2]\n";
15	fclose($fp);
16	}
17
18	$out=trim($regs[2]);
19	if ($out != "") {
20	return($out);
21	} else {
22	return(0);
23	}
24
25	}
26
27	?>