File: nullresp.pl

package info (click to toggle)
thp 0.4.6-9
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 260 kB
  • sloc: perl: 1,088; sh: 154; makefile: 56
file content (9 lines) | stat: -rw-r--r-- 129 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
 
sub nullresp {
  while (<STDIN>) {
    open(LOG, ">>$sesslog");
    select LOG;
    $|=1;
    print LOG $_;
    close LOG;
  }
}