-
my $hostname = shift;
-
-
my $s = NaServer->new ($hostname, 1, 3); #hostname或者IP
-
-
$s->set_transport_type("HTTP");
-
$s->set_style("LOGIN");
-
$s->set_admin_user($user,$pw); #用户名和密码
my $hostname = shift;
my $s = NaServer->new ($hostname, 1, 3); #hostname或者IP
$s->set_transport_type("HTTP");
$s->set_style("LOGIN");
$s->set_admin_user($user,$pw); #用户名和密码