From 96a5b393976dd5c772d8610001be81eb6dda4259 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Tue, 27 Nov 2012 10:37:14 +0100 Subject: [PATCH] Nicht mehr benutzte Scripte entfernen --- scripts/inst_postgres.sh | 179 ------------------------------ scripts/inst_postgres_deb.sh | 132 ---------------------- scripts/migrate_template_to_t8.pl | 159 -------------------------- 3 files changed, 470 deletions(-) delete mode 100755 scripts/inst_postgres.sh delete mode 100755 scripts/inst_postgres_deb.sh delete mode 100755 scripts/migrate_template_to_t8.pl diff --git a/scripts/inst_postgres.sh b/scripts/inst_postgres.sh deleted file mode 100755 index 6d07e599a..000000000 --- a/scripts/inst_postgres.sh +++ /dev/null @@ -1,179 +0,0 @@ -#!/bin/bash -#set -x -function writeln() -{ - tput cup $1 $2 # Cursor positionieren - tput el # Rest der Zeile löschen - shift 2 # Parameter für die Koordinaten entfernen - echo -n $*" " # Rest der Parameterliste ausgeben -} - -tput clear - -#Als root anmelden -if [ `id -u` -gt 0 ]; then echo "Bitte als root anmelden"; exit 1; fi - -writeln 1 1 PostgreSQL fuer Lx-Office vorbereiten -writeln 2 1 1. plpgsql.so suchen -PLPGSQL="" -#Datei plpgsql.so suchen - -POSTGRESQL=`dpkg -l | grep -E "postgresql-[0-9]" | cut -d" " -f3 | sort -r | head -1 -` - -#Mit Paketmanager (Apt) suchen -if [ "$POSTGRESQL#" == "#" ]; then - writeln 1 1 $FEHLER - writeln 2 1 Keine PostgreSQL mit Paketmanager installiert - writeln 3 1 Datenbank bitte manuell einrichten. - exit 0 -else - PLPGSQL=`dpkg -L $POSTGRESQL | grep plpgsql.so` -fi - -#Mit Paketmanager (RPM) suchen ? -#PLPGSQL=`rpm -q --list postgres | grep plpgsql.so` - -if [ "$PLPGSQL#" == "#" ]; then - #Probleme mit Paketmanager, dann zunaechst mit locate, geht schneller - updatedb - writeln 3 3 --locate - tmp=`locate plpgsql.so 2>/dev/null` - PLPGSQL=`echo $tmp | cut -d " " -f 1` -fi -if [ "$PLPGSQL#" == "#" ]; then - #noch nicht gefunden, also mit find suchen - writeln 3 15 --find /usr/lib - tmp=`find /usr/lib -name plpgsql.so -type f` - PLPGSQL=`echo $tmp | cut -d " " -f 1` -fi -if [ "$PLPGSQL#" == "#" ]; then - while :; do - writeln 4 1 'plpgsql.so' nicht gefunden. - tput bold - writeln 5 1 "Bitte den Pfad eingeben: " - tput rmso - read PLPGSQL - [ "$PLPGSQL#" != "#" ] && [ -f $PLPGSQL ] && break - tput bel - done -fi -writeln 6 1 ok. 'plpgsql.so' gefunden - -#Kann der User postgres die db erreichen -cnt=`ps aux | grep postgres | wc -l` -if [ $cnt -eq 0 ]; then - tput bel - tput bold - echo Die postgreSQL-Datebbank ist nicht gestartet! - tput rmso - exit 1 -fi -v8=`su postgres -c "echo 'select version()' | psql template1 2>/dev/null | grep -E "[Ss][Qq][Ll][[:space:]]+8\.[2-9]\.[0-9]" | wc -l"` -if [ $v8 -eq 0 ]; then - tput bel - tput bold - echo User postgres konnte die Datenbank 8.2.x - 8.9.x nicht ansprechen - tput rmso - exit 1; -else - tput clear - writeln 1 1 Datenbank Version 8.2.x - 8.9.x konnte erreicht werden. -fi - -echo "CREATE FUNCTION plpgsql_call_handler() RETURNS language_handler" > lxdbinst.sql -echo "AS '$PLPGSQL', 'plpgsql_call_handler'" >> lxdbinst.sql -echo "LANGUAGE c;" >> lxdbinst.sql -echo "CREATE PROCEDURAL LANGUAGE plpgsql HANDLER plpgsql_call_handler;" >> lxdbinst.sql - -writeln 2 1 Datenbankbenutzer einrichten -tput bold -writeln 3 1 "Bitte den Datenbank-Benutzernamen (Kleinbuchstaben) eingeben [lxoffice]: " -tput rmso -read LXOUSER -if [ "$LXOUSER#" == "#" ]; then LXOUSER="lxoffice"; fi -while :; do - tput bold - writeln 4 1 "Bitte ein Kennwort eingeben : " - tput rmso - read USRPWD - if ! [ "$USRPWD#" == "#" ]; then break; fi - tput bel -done; - -echo "CREATE USER $LXOUSER with CREATEDB ;" >> lxdbinst.sql -echo "ALTER USER $LXOUSER PASSWORD '$USRPWD';" >> lxdbinst.sql -echo "UPDATE pg_language SET lanpltrusted = true WHERE lanname = 'plpgsql';" >> lxdbinst.sql - -su postgres -c "psql template1 < lxdbinst.sql" - -echo "Fehlermeldungen die 'already exists' enthalten koennen ignoriert werden" - -writeln 11 1 Datenbank fuer Lx-Office vorbereitet - -writeln 12 1 Datenbankberechtigung einrichten -#wo ist die pg_hba.conf -writeln 13 3 --find erst /etc dann /var/lib -tmp=`find /etc/postgresql -name pg_hba.conf -type f` -[ "$tmp#" == "#" ] && tmp=`find /var/lib -name pg_hba.conf -type f` -PGHBA=`echo $tmp | cut -d " " -f 1` - -if [ "$PGHBA#" == "#" ]; then - while :; do - writeln 14 1 'pg_hba.conf' nicht gefunden. - tput bold - writeln 15 1 "Bitte den Pfad eingeben: " - tput rmso - read PGHBA - [ "$PGHBA#" != "#" ] && [ -f $PGHBA ] && break - tput bel - done -fi -writeln 16 1 ok. 'pg_hba.conf' gefunden - -cnt=`grep $LXOUSER $PGHBA | wc -l ` - -if [ $cnt -eq 0 ]; then - mv $PGHBA $PGHBA.org - echo "local all $LXOUSER password" > $PGHBA - echo "host all $LXOUSER 127.0.0.1 255.255.255.255 password" >> $PGHBA - cat $PGHBA.org >> $PGHBA -fi - -#CONFDIR=`dirname $PGHBA` - -#postgresql.conf anpassen, liegt vermutlich im gleichen Verzeichnis wie pg_hba.conf -#if ! [ -f $CONFDIR/postgresql.conf ]; then -# #doch nicht da, dann fragen -# while :; do -# writeln 13 1 'postgresql.conf' nicht gefunden. -# tput bold -# writeln 14 1 "Bitte den Pfad eingeben: " -# tput rmso -# read PGCONF -# [ "$PGCONF#" != "#" ] && [ -f $PGCONF ] && break -# tput bel -# done -# CONFDIR=`dirname $PGCONF` -#fi - -#mv $CONFDIR/postgresql.conf $CONFDIR/postgresql.conf.org -#Bei der V8.x OID einschalten. -#sed 's/^.*default_with_oids.*/default_with_oids = true/i' $CONFDIR/postgresql.conf.org > $CONFDIR/postgresql.conf -#cnt=`grep default_with_oids $CONFDIR/postgresql.conf | wc -l` -#if [ $cnt -eq 0 ]; then -# cp $CONFDIR/postgresql.conf.org $CONFDIR/postgresql.conf -# echo "default_with_oids = true" >> $CONFDIR/postgresql.conf -#fi - -tmp=`ls -r1 /etc/init.d/postgres*` -PGSQL=`echo $tmp | cut -d " " -f 1` - -writeln 18 1 Datenbank neu starten -$PGSQL restart - -tput bold -tput smso -writeln 20 12 ok. Das sollte es gewesen sein. -tput rmso -tput rmso -echo diff --git a/scripts/inst_postgres_deb.sh b/scripts/inst_postgres_deb.sh deleted file mode 100755 index b0cf9cfe6..000000000 --- a/scripts/inst_postgres_deb.sh +++ /dev/null @@ -1,132 +0,0 @@ -#!/bin/bash -# e = exit on error -set -e -# x = xtrace -#set -x - -FEHLER="Achtung!! Es hat ein Problem gegeben" -ERRCNT=0 -source /usr/share/debconf/confmodule - -#Als root anmelden -if [ `id -u` -gt 0 ]; then echo "Bitte als root anmelden"; exit 1; fi - -POSTGRESQL=`dpkg -l | grep -E "postgresql-[0-9]" | cut -d" " -f3 | sort -r | head -1 -` - -#Datei plpgsql.so suchen -#Mit Paketmanager suchen -if [ "$POSTGRESQL#" == "#" ]; then - echo $FEHLER - echo Keine PostgreSQL mit Paketmanager installiert - echo Datenbank bitte manuell einrichten. - exit 0 -else - PLPGSQL=`dpkg -L $POSTGRESQL | grep plpgsql.so ` -fi - -if [ "$PLPGSQL#" == "#" ]; then - #Probleme mit Paketmanager, dann zunaechst mit locate, geht schneller - updatedb - tmp=`locate plpgsql.so 2>/dev/null` - PLPGSQL=`echo $tmp | cut -d " " -f 1` -fi -if [ "$PLPGSQL#" == "#" ]; then - #noch nicht gefunden, also mit find suchen - tmp=`find /usr/lib -name plpgsql.so -type f` - PLPGSQL=`echo $tmp | cut -d " " -f 1` -fi -if [ "$PLPGSQL#" == "#" ]; then - echo $FEHLER - echo 'plpgsql.so' nicht gefunden. - echo Datenbank manuell einrichten. - exit 0 -fi - -#Kann der User postgres die db erreichen -cnt=`ps aux | grep postgres | wc -l` -if [ $cnt -eq 0 ]; then - echo $FEHLER - echo Die postgreSQL-Datebbank ist nicht gestartet! - echo Datenbank manuell einrichten. - exit 0 -fi - -v8=`su postgres -c "echo 'select version()' | psql template1 2>/dev/null | grep -E "[Ss][Qq][Ll][[:space:]]+8\.[2-9]\.[0-9]" | wc -l"` -if [ $v8 -eq 0 ]; then - echo $FEHLER - echo Datenbank Version 8x konnte nicht erreicht werden. - exit 0 -fi - -echo "CREATE FUNCTION plpgsql_call_handler() RETURNS language_handler" > lxdbinst.sql -echo "AS '$PLPGSQL', 'plpgsql_call_handler'" >> lxdbinst.sql -echo "LANGUAGE c;" >> lxdbinst.sql -echo "CREATE PROCEDURAL LANGUAGE plpgsql HANDLER plpgsql_call_handler;" >> lxdbinst.sql - -#writeln 2 1 Datenbankbenutzer einrichten -LXOUSER="lxoffice" -db_get lx-office-erp/lx-office-erp-user-postgresql-password -USRPWD="$RET" - -echo "CREATE USER $LXOUSER with CREATEDB ;" >> lxdbinst.sql -echo "ALTER USER $LXOUSER PASSWORD '$USRPWD';" >> lxdbinst.sql -echo "UPDATE pg_language SET lanpltrusted = true WHERE lanname = 'plpgsql';" >> lxdbinst.sql - -su postgres -c "psql template1 < lxdbinst.sql" - -echo "Fehlermeldungen die 'already exists' enthalten koennen ignoriert werden" - -#writeln 12 1 Datenbankberechtigung einrichten -PGHBA=`find /etc/postgresql -name pg_hba.conf -type f | sort -r | head -1 -` -if [ "$PGHBA#" == "#" ] ; then - PGHBA=`find /var/lib -name pg_hba.conf -type f | sort -r | head -1 -` -fi - -if [ "$PGHBA#" == "#" ]; then - echo $FEHLER - echo 'pg_hba.conf' nicht gefunden. - echo "Berechtigungen bitte selber einrichten" - ERRCNT=1 -fi - -cnt=`grep $LXOUSER $PGHBA | wc -l ` - -if [ $cnt -eq 0 ]; then - mv $PGHBA $PGHBA.org - echo "local all $LXOUSER password" > $PGHBA - echo "host all $LXOUSER 127.0.0.1 255.255.255.255 password" >> $PGHBA - cat $PGHBA.org >> $PGHBA -fi - -#CONFDIR=`dirname $PGHBA` - -#postgresql.conf anpassen, liegt vermutlich im gleichen Verzeichnis wie pg_hba.conf -#if ! [ -f $CONFDIR/postgresql.conf ]; then -# echo $FEHLER -# echo 'postgresql.conf' nicht gefunden. -# echo PostgreSQL selber konfigurieren -# ERRCNT=1 -#fi - -#mv $CONFDIR/postgresql.conf $CONFDIR/postgresql.conf.org -#Bei der V8.x OID einschalten. -#sed 's/^.*default_with_oids.*/default_with_oids = true/i' $CONFDIR/postgresql.conf.org > $CONFDIR/postgresql.conf -#cnt=`grep default_with_oids $CONFDIR/postgresql.conf | wc -l` -#if [ $cnt -eq 0 ]; then -# cp $CONFDIR/postgresql.conf.org $CONFDIR/postgresql.conf -# echo "default_with_oids = true" >> $CONFDIR/postgresql.conf -#fi - - -PGSQL=`ls -r1 /etc/init.d/postgres* | head -1 -` - -#writeln 18 1 Datenbank neu starten -$PGSQL reload - -if [ $ERRCNT -gt 0 ]; then - echo $FEHLER - echo Das betrifft aber nicht die Lx-Office Installation - echo sondern die Konfiguration der Datenbank. - echo $POSTGRESQL , $PGHBA , $CONFDIR/postgresql.conf ?? - sleep 10 -fi diff --git a/scripts/migrate_template_to_t8.pl b/scripts/migrate_template_to_t8.pl deleted file mode 100755 index ac1456112..000000000 --- a/scripts/migrate_template_to_t8.pl +++ /dev/null @@ -1,159 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use Pod::Usage; -use List::Util qw(reduce); -use List::MoreUtils qw(zip); - -use constant DEBUG => 0; - -unless ( caller(0) ) { - pod2usage(2) unless @ARGV; - migrate_file(@ARGV); -}; - -sub migrate_file { - my $file = shift or return; - - my $contents = do { local( @ARGV, $/ ) = $file ; <> } - or die "cannot read file"; - - my %substitutions = ( - "" => "[% '", - "" => "' | \$T8 %]", - ); - - my $last_match = ''; - my $num_matches; - my $in_template; - my $inline_counter = 0; - - # now replace with [% ' - # and with ' | $T8 %] - while ($contents =~ m# ( < /? translate> | \[% | %\] ) #xg) { - my $match = $1; - my $pos = pos $contents; - - if ($match eq '[%') { - $in_template = 1; - DEBUG && warn "entering [% block %] at pos $pos"; - next; - } - if ($match eq '%]') { - $in_template = 0; - DEBUG && warn "leaving [% block %] at pos $pos"; - next; - } - - if ($in_template) { - $inline_counter++ if $match eq ''; - next; - } - - DEBUG && warn "found token $match at pos $pos"; - - my $sub_by = $substitutions{$match}; - - unless ($sub_by) { - DEBUG && warn "found token $& but got no substitute"; - next; - } - - die "unbalanced tokens - two times '$match' in file $file" - if $last_match eq $match; - - $last_match = $match; - $num_matches++; - - # alter string. substr is faster than s/// for strings of this size. - substr $contents, $-[0], $+[0] - $-[0], $sub_by; - - # set match pos for m//g matching on the altered string. - pos $contents = $-[0] + length $sub_by; - } - - warn "found $inline_counter occurances of inline translates in file $file $/" - if $inline_counter; - - exit 0 unless $num_matches; - - die "unbalanced tokens in file $file" if $num_matches % 2; - - if ($contents !~ m/\[%-? USE T8 %\]/) { - $contents = "[%- USE T8 %]$/" . $contents; - } - - # all fine? spew back - - do { - open my $fh, ">$file" or die "can't write $file $!"; - print $fh $contents; - }; -} - -1; - -__END__ - -=head1 NAME - -migrate_template_to_t8.pl - helper script to migrate templates to T8 module - -=head1 SYNOPSIS - - # single: - scripts/migrate_template_to_t8.pl - - # bash: - for file in `find templates | grep master\.html`; - do scripts/migrate_template_to_t8.pl $file; - done; - - # as a lib: - require "scripts/migrate_template_to_t8.pl"; - migrate_file($file); - -=head1 DESCRIPTION - -This script will do the following actions in a template file - -=over 8 - -=item 1. - -Change every occurance of C<<< Text >>> to C<<< [% -'Text' | $T8 %] >>> - -=item 2. - -Add [%- USE T8 %] at the top if something needs to be translated - -=back - -Note! This script is written to help with the process of migrating old -templates. It is assumed that anyone working on Lx-Office is working with a -version control system. This script will change your files. You have been -warned. - -Due to the nature of the previous locale system, it is not easily possible to -migrate translates in other template blocks. As of this writing this is used in -about 20 occurances throughout the code. If such a construct is found, a -warning will be generated. lib uses of this will have to trap the warning. - -=head1 DIAGNOSIS - -=head2 found I occurances of inline translates in file I - -If a processed file has blocks in template blocks, these will be -ignored. This warning is thrown at the end of processing. - -=head2 unbalanced tokens in file I - -The script could not resolve pairs of s. The file will -not be changed in this case. - -=head1 AUTHOR - -Sven Schoeling Es.schoeling@linet-services.deE - -=cut -- 2.20.1