File: gen_template.pl

package info (click to toggle)
firefox 147.0.2-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 4,683,484 kB
  • sloc: cpp: 7,607,246; javascript: 6,533,185; ansic: 3,775,227; python: 1,415,393; xml: 634,561; asm: 438,951; java: 186,241; sh: 62,752; makefile: 18,079; objc: 13,092; perl: 12,808; yacc: 4,583; cs: 3,846; pascal: 3,448; lex: 1,720; ruby: 1,003; php: 436; lisp: 258; awk: 247; sql: 66; sed: 54; csh: 10; exp: 6
file content (39 lines) | stat: -rw-r--r-- 1,085 bytes parent folder | download | duplicates (26) 
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
37
38
39
 
#!/usr/bin/perl

# This script makes docshell test case templates. It takes one argument:
#
#   -b: a bugnumber
#
# For example, this command:
#
#   perl gen_template.pl -b 303267
#
# Writes test case template files test_bug303267.xhtml and bug303267_window.xhtml
# 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 . ".xhtml") 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.xhtml") 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);