OpenWrt – Blame information for rev 2

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 #!/usr/bin/env perl
2  
3 use strict;
4 use Getopt::Long;
5  
6 my $output;
7 my $version;
8 my $docbook;
9 my $html;
10 my $xml;
11 my $plaintext;
12 my $no_split;
13 my $no_headers;
14  
15 Getopt::Long::Configure('pass_through');
16 Getopt::Long::GetOptions(
17 'output=s' => \$output,
18 'version' => \$version,
19 'no-split' => \$no_split,
20 'no-headers' => \$no_headers,
21 'docbook' => \$docbook,
22 'html' => \$html,
23 'xml' => \$xml,
24 'plaintext' => \$plaintext
25 );
26  
27 if ($version)
28 {
29 print "makeinfo (OpenWrt stub) 4.13\n";
30 exit 0;
31 }
32  
33  
34 sub output_filename
35 {
36 my $path = shift || return;
37 my $name = $path;
38 my $setfile;
39  
40 if (open F, "< $path")
41 {
42 while (defined(my $line = readline F))
43 {
44 if ($line =~ /\@setfilename\s+(\S+)/)
45 {
46 $setfile = $1;
47 $setfile =~ s!^.+/!!;
48 last;
49 }
50 }
51  
52 close F;
53 }
54  
55 $name =~ s!^.+/!!;
56 $name =~ s!\.[^.]+$!!;
57  
58 if ($html)
59 {
60 $setfile =~ s!\.[^.]+$!! if $setfile;
61  
62 if ($no_split)
63 {
64 return $setfile ? "$setfile.html" : "$name.html" unless $output;
65 return $output;
66 }
67  
68 return $setfile ? "$setfile/index.html" : "$name/index.html" unless $output;
69 return "$output/index.html";
70 }
71 elsif ($xml || $docbook)
72 {
73 $setfile =~ s!\.[^.]+$!! if $setfile;
74  
75 return $setfile ? "$setfile.xml" : "$name.info" unless $output;
76 return $output;
77 }
78 elsif ($plaintext)
79 {
80 return ($output || "-");
81 }
82  
83 return ($output || $setfile || "$name.info");
84 }
85  
86 foreach my $arg (@ARGV)
87 {
88 next unless -f $arg;
89  
90 my $out = output_filename($arg);
91 if ($out =~ m!^(.+/)[^/]+$!)
92 {
93 system("mkdir", "-p", $1);
94 }
95  
96 my $fd = \*STDOUT;
97 if ($out ne "-" && !$no_headers)
98 {
99 open $fd, "> $out" || die "Can't open $out: $!\n";
100 }
101  
102 if ($html || $xml || $docbook)
103 {
104 print $fd "<!-- Dummy output for $arg -->\n";
105 }
106 else
107 {
108 print $fd "Dummy output for $arg\n";
109 }
110  
111 close $fd;
112 }