projects
/
freeside.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
RT#39115: View SNMP info on svc_broadband service [timeout fix & multiple value handling]
[freeside.git]
/
rt
/
t
/
security
/
fake-sendmail
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
6
die "No \$RT_MAILLOGFILE set in environment"
7
unless $ENV{RT_MAILLOGFILE};
8
open LOG, ">", $ENV{RT_MAILLOGFILE}
9
or die "Can't write to $ENV{RT_MAILLOGFILE}: $!";
10
11
my $needs_newline;
12
for (@ARGV) {
13
if (/^-/) {
14
print LOG "\n" if $needs_newline++;
15
print LOG $_;
16
} else {
17
print LOG " $_";
18
}
19
}
20
print LOG "\n";
21
22
1 while $_ = <STDIN>;
23
24
exit 0;