sqlrelay_query

来自「使用最广泛的radius的linux的源码」· 代码 · 共 16 行

#!/usr/bin/perl
$sqlrelay = '/usr/bin/query';
$host=shift;
$port=shift;
$socket=shift;
$user=shift;
$passwd=shift;
while(<>){
	chomp;
	`$sqlrelay '$host' '$port' '$socket' '$user' '$passwd' '$_'`;
	$exit = $? >> 8;
	if ($exit != 0){
		exit $exit;
	}
}