CIPP

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

$Id: Changes,v 1.47 2006/05/29 11:25:09 joern Exp $

3.0.8 Mon May 29, 2006, joern
    Features:
    - set locale for LC_TIME as well

3.0.7 Tue May 16, 2006, joern
    Features:
    - Real implementation of the new gettext based l10n 
      framework. Set the actual LC_MESSAGES language
      with the new tag <?lang><?/lang>.
    - new command line tool cipp-l10n handles all tasks
      around .pot file generation, .po merging and .mo
      installation.

doc/html2ps  view on Meta::CPAN

    red: FF0000;
    blue: 0000FF;
    purple: 800080;
    teal: 008080;
    fuchsia: FF00FF;
    aqua: 00FFFF;
  }
  html2psrc: "$HOME/.html2psrc";
  imgalt: "[IMAGE]";
  datefmt: "%e %b %Y  %R";
  locale: "";
  doc-sep: "<!--NewPage-->";
  ball-radius: 0.25em;
  numbstyle: 0;
  showurl: 0;
  seq-number: 0;
  forms: 1;
  textarea-data: 1;
  page-break: 1;
  expand-acronyms: 0;
  collapse-br: 1;

doc/html2ps  view on Meta::CPAN

if($opt_C && $opt_C!~/^(b?[ft]|[ft]b?|b?h|hb?)$/)
  {die "Invalid option: -C $opt_C\n"};
$tc=$opt_C?"t":"f";
$rev=$opt_C=~/t/;
$first=$opt_C=~/b/ || $opt_R;
$th=$tocdoc?"f":"t";
$oeh=0;
$oef=0;

@now=localtime;
POSIX::setlocale(&POSIX::LC_TIME,$locale);
$R='(\s*>|[^a-zA-Z0-9>][^>]*>)';
$S='([\w.:/%-]+)|"([^"]*)"|\'([^\']*)\'';
$X='[\da-fA-F]';
$IM='(gif|jpeg|jpg|png|xbm|xpm|ps|eps)';

for('odd-left','odd-center','odd-right','even-left','even-center','even-right')
 {
  $oeh=1 if defined $header{$_};
  $oef=1 if defined $footer{$_};
}

lib/CIPP/Compile/Generator.pm  view on Meta::CPAN

            return $RC;
        }

	$self->check_options (
		mandatory => {},
		optional  => {},
	) || return $RC;
        
        $self->push_context('var_noquote');
        
        $self->write("CIPP->request->set_locale_messages_lang(qq^");
        
        return $RC;
}

sub cmd_l {
	my $self = shift; $self->trace_in;

	my $RC = $self->RC_BLOCK_TAG;

	if ( $self->get_current_tag_closed ) {

lib/CIPP/Runtime/Request.pm  view on Meta::CPAN

	my ($name) = @par{'name'};
	
	$name =~ s!::!/!og;
	$name .= ".pm";

	require $name;

	1;
}

sub set_locale_messages_lang {
        my $self = shift;
        my ($lang) = @_;
        POSIX::setlocale(POSIX::LC_MESSAGES(), $lang);
        POSIX::setlocale(POSIX::LC_TIME(), $lang);
        1;
}

sub gettext {
        my $self = shift;
        my ($message, $data_href) = @_;

        return $message if not $data_href;

        my $re = join '|', map { quotemeta $_ } keys %{$data_href};