From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 8 Nov 2016 12:36:25 +0000 (+0100)
Subject: scripts: nicht mehr benötigte/funktionierende Scripte entfernt
X-Git-Tag: release-3.5.4~1927
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=d8cfd3f937ac59a385e91532fe03134d5a4ff14c;p=kivitendo-erp.git

scripts: nicht mehr benötigte/funktionierende Scripte entfernt

• create_tags_file.pl: das alte tags-Format wird eigentlich nicht mehr
  verwendet; wenn dann etags oder GNU global.
• spawn_oo.pl: lange veraltet; soffice heißt das Programm schon lange
  nicht mehr; funktioniert nicht; unzulänglicher Test, ob Prozess läuft
• templ2t8.pl: Konvertierung vom alten Template-System wird schon lange
  nicht mehr benötigt
• pl2tmpl.pl: dito
---

diff --git a/scripts/create_tags_file.pl b/scripts/create_tags_file.pl
deleted file mode 100644
index d7cef8e6d..000000000
--- a/scripts/create_tags_file.pl
+++ /dev/null
@@ -1,54 +0,0 @@
-#!/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;
diff --git a/scripts/pl2tmpl.pl b/scripts/pl2tmpl.pl
deleted file mode 100755
index b83e27938..000000000
--- a/scripts/pl2tmpl.pl
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/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;
diff --git a/scripts/spawn_oo.pl b/scripts/spawn_oo.pl
deleted file mode 100755
index d0e8f789c..000000000
--- a/scripts/spawn_oo.pl
+++ /dev/null
@@ -1,39 +0,0 @@
-#!/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);
diff --git a/scripts/templ2t8.pl b/scripts/templ2t8.pl
deleted file mode 100755
index f1e5bf6b5..000000000
--- a/scripts/templ2t8.pl
+++ /dev/null
@@ -1,14 +0,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;