forked from mozilla/gecko-dev
-
Notifications
You must be signed in to change notification settings - Fork 2
/
gen_template.pl
37 lines (32 loc) · 1 KB
/
gen_template.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#!/usr/bin/perl
#
# gen_template.pl
# Makes docshell test case templates.
# Takes one argument:
#
# -b : a bugnumber
#
# e.g.: perl gen_template.pl -b 303267
#
# Writes test case template files for bug 303267 to the current directory.
use FindBin;
use Getopt::Long;
GetOptions("b=i"=> \$bug_number);
$template = "$FindBin::RealBin/test.template.txt";
open(IN,$template) or die("Failed to open input file for reading.");
open(OUT, ">>test_bug" . $bug_number . ".xul") or die("Failed to open output file for appending.");
while((defined(IN)) && ($line = <IN>)) {
$line =~ s/{BUGNUMBER}/$bug_number/g;
print OUT $line;
}
close(IN);
close(OUT);
$template = "$FindBin::RealBin/window.template.txt";
open(IN,$template) or die("Failed to open input file for reading.");
open(OUT, ">>bug" . $bug_number . "_window.xul") or die("Failed to open output file for appending.");
while((defined(IN)) && ($line = <IN>)) {
$line =~ s/{BUGNUMBER}/$bug_number/g;
print OUT $line;
}
close(IN);
close(OUT);