view release on metacpan or  search on metacpan

dbagent/net.c  view on Meta::CPAN

		if (!(pwp=getpwnam(crq.login_name))) {
			reterr("Invalid login name '%s'",crq.login_name);
			close_exit();
		}
		pwd=pwp->pw_passwd;
		if (strcmp(crypt(crq.passwd,pwd), pwd)) {
			reterr("Incorrect passwd");
			close_exit();
		}
		setuid(pwp->pw_uid);
		setgid(pwp->pw_gid);
		rep.res=connect_db(crq.dbname);
		if (!rep.res)
			puterr();
		else {
			rep.res=htonl(rep.res);
			netwrite(&rep,sizeof(RES));
		}
		continue;
	}
	case NET_PREPARE: