chiark / gitweb /
some fixes; debug for missing
[inn-innduct.git] / contrib / mkbuf
1 #!/usr/bin/perl
2
3 sub usage {
4         print STDERR "Usage: $0 <size in KB> <filename>\n";
5         exit 1;
6 }
7
8 usage if(@ARGV != 2);
9
10 $buf1k = "\0"x1024;
11 $buf1m = "$buf1k"x1024;
12
13 $kb = $ARGV[0] * 1;
14 &usage if($kb == 0);
15
16 if($ARGV[1] eq '-') {
17         open(FILE, "|cat") or die;
18 } else {
19         open(FILE, ">$ARGV[1]") or die;
20 }
21
22 for($i = 0; $i+1024 <= $kb; $i+=1024) {
23         print FILE $buf1m or die;
24 }
25 if($i < $kb) {
26         print FILE "$buf1k"x($kb-$i) or die;
27 }
28
29 close FILE;