Browse code

Improved format-manpage.pl

Michal Ludvig authored on 2012/01/06 18:11:58
Showing 1 changed files
... ...
@@ -8,6 +8,7 @@ use strict;
8 8
 
9 9
 my $commands = "";
10 10
 my $cfcommands = "";
11
+my $wscommands = "";
11 12
 my $options = "";
12 13
 
13 14
 while (<>) {
... ...
@@ -20,6 +21,8 @@ while (<>) {
20 20
 			$cmd = $1;
21 21
 			if ($cmd =~ /^cf/) {
22 22
 				$cfcommands .= ".TP\n$cmdline\n$desc\n";
23
+			} elsif ($cmd =~ /^ws/) {
24
+				$wscommands .= ".TP\n$cmdline\n$desc\n";
23 25
 			} else {
24 26
 				$commands .= ".TP\n$cmdline\n$desc\n";
25 27
 			}
... ...
@@ -29,18 +32,20 @@ while (<>) {
29 29
 		my ($opt, $desc);
30 30
 		while (<>) {
31 31
 			last if (/^\s*$/);
32
-			$_ =~ s/\s*(.*?)\s*$/$1/;
32
+			$_ =~ s/(.*?)\s*$/$1/;
33 33
 			$desc = "";
34 34
 			$opt = "";
35
-			if (/^(-.*)/) {
35
+			if (/^  (-.*)/) {
36 36
 				$opt = $1;
37 37
 				if ($opt =~ /  /) {
38 38
 					($opt, $desc) = split(/\s\s+/, $opt, 2);
39 39
 				}
40
-				$opt =~ s/(-[^ ,=]+)/\\fB$1\\fR/g;
40
+				$opt =~ s/(-[^ ,=\.]+)/\\fB$1\\fR/g;
41 41
 				$opt =~ s/-/\\-/g;
42 42
 				$options .= ".TP\n$opt\n";
43 43
 			} else {
44
+				$_ =~ s/\s*(.*?)\s*$/$1/;
45
+				$_ =~ s/(--[^ ,=\.]+)/\\fB$1\\fR/g;
44 46
 				$desc .= $_;
45 47
 			}
46 48
 			if ($desc) {
... ...
@@ -71,6 +76,10 @@ can do several \\fIactions\\fR specified by the following \\fIcommands\\fR.
71 71
 $commands
72 72
 
73 73
 .PP
74
+Commands for static WebSites configuration
75
+$wscommands
76
+
77
+.PP
74 78
 Commands for CloudFront management
75 79
 $cfcommands
76 80
 
... ...
@@ -179,7 +188,7 @@ Prefered way to get support is our mailing list:
179 179
 Report bugs to 
180 180
 .I s3tools\\-bugs\@lists.sourceforge.net
181 181
 .SH COPYRIGHT
182
-Copyright \\(co 2007,2008,2009,2010,2011 Michal Ludvig <http://www.logix.cz/michal>
182
+Copyright \\(co 2007,2008,2009,2010,2011,2012 Michal Ludvig <http://www.logix.cz/michal>
183 183
 .br
184 184
 This is free software.  You may redistribute copies of it under the terms of
185 185
 the GNU General Public License version 2 <http://www.gnu.org/licenses/gpl.html>.