Browse files

add lang opt

  • Loading branch information...
1 parent c58f1ac commit db7bde276b3c4b8009c0d1fd243108f75d379501 Aliaksandr Zahatski committed Jun 27, 2012
Showing with 4 additions and 3 deletions.
  1. +4 −3 scripts/writeat
View
7 scripts/writeat
@@ -11,17 +11,18 @@ use Perl6::Pod::Utl;
use Perl6::Pod::Lib;
my ( $help, $man );
-my ( $type, $package, $mode, $port ) = ( "perl5", 'MyApp::Tmpl', 'soy', 8080 );
+my ( $type, $package, $mode, $port, $lang ) = ( "perl5", 'MyApp::Tmpl', 'soy', 8080, 'en' );
my %opt = (
help => \$help,
man => \$man,
type => \$type,
package => \$package,
mode => \$mode,
port => \$port,
+ lang => \$lang
);
GetOptions( \%opt, 'help|?', 'man', 'c=s', "type|t:s", 'package|p=s',
- 'mode|m=s', 'port=s' )
+ 'mode|m=s', 'port=s', 'lang=s' )
or pod2usage(2);
pod2usage(1) if $help;
pod2usage( -exitstatus => 0, -verbose => 2 ) if $man;
@@ -77,7 +78,7 @@ if ( $type =~ /^perl/ and !$package ) {
<?xml version='1.0' encoding="UTF-8"?>
<!DOCTYPE book PUBLIC "-//OASIS//DTD DocBook XML V4.3CR1//EN"
"file://${dtd}" []>
-<book lang="ru">
+<book lang="$lang">
<bookinfo>
H
for (qw/ TITLE SUBTITLE AUTHOR CHANGES DESCRIPTION /) {

0 comments on commit db7bde2

Please sign in to comment.