projekt kivitendo

#!/usr/bin/perl

#

########################################################

#

# This script creates a 'tags' file in the style of ctags

# out of the SL/ modules.

# Tags file is usable in some editors (vim, joe, emacs, ...). 

# See your editors documentation for more information.

#

# (c) Udo Spallek, Aachen

# Licenced under GNU/GPL.

#

########################################################

use Perl::Tags;

use IO::Dir;

use Data::Dumper;

use strict;

use warnings FATAL =>'all';

use diagnostics;

use Getopt::Long;

my $parse_SL         = 1;

my $parse_binmozilla = 0;

GetOptions("sl!"         => \$parse_SL,

           "pm!"         => \$parse_SL,

           "binmozilla!" => \$parse_binmozilla,

           "pl!"         => \$parse_binmozilla,

           );

my @files = ();

push @files, grep { /\.pm$/ && s{^}{SL/}gxms         } IO::Dir->new("SL/")->read()          if $parse_SL;

push @files, grep { /\.pl$/ && s{^}{bin/mozilla/}gxms} IO::Dir->new("bin/mozilla/")->read() if $parse_binmozilla;

#map { s{^}{SL\/}gxms } @files;

#print Dumper(@files);

#__END__

my $naive_tagger = Perl::Tags::Naive->new( max_level=>1 );

$naive_tagger->process(

         files => [@files],

         refresh=>1 

);

my $tagsfile="tags";

# of course, it may not even output, for example, if there's nothing new to process

$naive_tagger->output( outfile => $tagsfile );

1;

#!/usr/local/bin/perl -pli.orig

#

# perlcode -> template converter

#

# there's ugly perl generated html in your xy.pl?

# no problem. copy&paste it into a separate html file, remove 'qq|' and '|;' and use this script to fix most of the rest.

#

# use: perl pl2tmpl.pl <file>

#

# will save the original file as file.orig

#

s/\$form->\{(?:"([^}]+)"|([^}]+))\}/[% $+ %]/g;

s/\| \s* \. \s* \$locale->text \( ' ([^']+) ' \) \s* \. \s* qq\|/<translate>$1<\/translate>/xg;

s/\| \s* \. \s* \$locale->text \( " ([^"]+) " \) \s* \. \s* qq\|/<translate>$1<\/translate>/xg;

#!/usr/bin/perl

BEGIN {

  unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).

  push    @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.

}

use DBI;

use Data::Dumper;

use SL::LXDebug;

use SL::Form;

use SL::Template;

$sendmail   = "| /usr/sbin/sendmail -t";

$| = 1;

$lxdebug = LXDebug->new();

$form = new Form;

$form->{"script"} = "oe.pl";

$ENV{'HOME'} = getcwd() . "/$userspath";

my $template = SL::Template::create(type => 'OpenDocument', file_name => '', form => $form, myconfig => \%myconfig, userspath => $userspath);

if (@ARGV && ($ARGV[0] eq "-r")) {

  system("ps auxww | " .

         "grep -v awk | " .

         "awk '/^www-data.*(soffice|Xvfb)/ { print \$2 }' | " .

         "xargs -r kill");

  sleep(10);

}

exit(1) unless ($template->spawn_xvfb());

exit(2) unless ($template->spawn_openoffice());

exit(0);

#!/usr/bin/perl -pli.orig

#

# template converter -> T8 converter

#

# wanna get rid of those <translate> tags?

# no problem. use this script to fix most it.

#

# use: perl tmpl2t8.pl <file>

#

# will save the original file as file.orig

#

s/$/[% USE T8 %]/ if $. == 1;

s/<translate>([^<]+)<\/translate>/[%- '$1' | \$T8 %]/xg;