Lines Matching refs:fh
62 open(my $fh, '>', $self->{conffile})
65 print $fh "\$ModLoad imudp\n";
66 print $fh "\$UDPServerRun $listenport\n";
69 print $fh "\$ModLoad imtcp\n";
70 print $fh "\$InputTCPServerRun $listenport\n";
73 print $fh "\$DefaultNetstreamDriver gtls\n";
81 print $fh "\$DefaultNetstreamDriver${k}File $v\n";
83 print $fh "\$ModLoad imtcp\n";
84 print $fh "\$InputTCPServerStreamDriverMode 1\n";
85 print $fh "\$InputTCPServerStreamDriverAuthMode anon\n";
86 print $fh "\$InputTCPServerRun $listenport\n";
89 print $fh "*.*\t\@$connectaddr:$connectport\n";
92 print $fh "*.*\t\@\@$connectaddr:$connectport\n";
95 print $fh "\$DefaultNetstreamDriver gtls\n";
101 print $fh "\$DefaultNetstreamDriver${k}File $v\n";
103 print $fh "\$ActionSendStreamDriverAuthMode x509/name\n";
104 print $fh "\$ActionSendStreamDriverPermittedPeer 127.0.0.1\n";
105 print $fh "\$ActionSendStreamDriverMode 1\n";
106 print $fh "*.*\t\@\@$connectaddr:$connectport\n";
108 print $fh "*.*\t$self->{outfile}\n";
109 print $fh $self->{conf} if $self->{conf};
110 close $fh;