Syntaxkompatibilität zu Python 3

[mfinanz.git] / scripts / rose_auto_create_model.pl

diff --git a/scripts/rose_auto_create_model.pl b/scripts/rose_auto_create_model.pl
index fb6ef7ef9afdfeca4c81d09ed416080733517adc..f7cc62d8a81a746c63e75dadb0010690e122b6cf 100755 (executable)
--- a/scripts/rose_auto_create_model.pl
+++ b/scripts/rose_auto_create_model.pl
@@ -31,7 +31,6 @@ my %blacklist     = SL::DB::Helper::Mappings->get_blacklist;
 my %package_names = SL::DB::Helper::Mappings->get_package_names;
 
 our $form;
 my %package_names = SL::DB::Helper::Mappings->get_package_names;
 
 our $form;

-our $cgi;

 our $auth;
 our %lx_office_conf;
 
 our $auth;
 our %lx_office_conf;
 


@@ -59,10 +58,10 @@ sub setup {
   $::lxdebug      = LXDebug->new();
   $::locale       = Locale->new("de");
   $::form         = new Form;
   $::lxdebug      = LXDebug->new();
   $::locale       = Locale->new("de");
   $::form         = new Form;

-  $::cgi          = new CGI('');

   $::auth         = SL::Auth->new();
   $::auth         = SL::Auth->new();

-  $::user         = User->new($login);
-  %::myconfig     = $auth->read_user($login);
+  $::user         = User->new(login => $login);
+  %::myconfig     = $auth->read_user(login => $login);
+  $::request      = { cgi => CGI->new({}) };

   $form->{script} = 'rose_meta_data.pl';
   $form->{login}  = $login;
 
   $form->{script} = 'rose_meta_data.pl';
   $form->{login}  = $login;
 


@@ -163,7 +162,6 @@ sub parse_args {
   GetOptions(
     'login|user=s'      => \ my $login,
     all                 => \ my $all,
   GetOptions(
     'login|user=s'      => \ my $login,
     all                 => \ my $all,

-    sugar               => \ my $sugar,

     'no-commit|dry-run' => \ my $nocommit,
     help                => sub { pod2usage(verbose => 99, sections => 'NAME|SYNOPSIS|OPTIONS') },
     verbose             => \ my $verbose,
     'no-commit|dry-run' => \ my $nocommit,
     help                => sub { pod2usage(verbose => 99, sections => 'NAME|SYNOPSIS|OPTIONS') },
     verbose             => \ my $verbose,


@@ -171,7 +169,6 @@ sub parse_args {
   );
 
   $options->{login}    = $login if $login;
   );
 
   $options->{login}    = $login if $login;

-  $options->{sugar}    = $sugar;

   $options->{all}      = $all;
   $options->{nocommit} = $nocommit;
   $options->{verbose}  = $verbose;
   $options->{all}      = $all;
   $options->{nocommit} = $nocommit;
   $options->{verbose}  = $verbose;


@@ -206,17 +203,16 @@ sub usage {
 
 sub make_tables {
   my @tables;
 
 sub make_tables {
   my @tables;

-  if ($config{all} || $config{sugar}) {
-    my ($type, $prefix) = $config{sugar} ? ('SUGAR', 'sugar_') : ('LXOFFICE', '');
-    my $db              = SL::DB::create(undef, $type);
-    @tables             =
-      map { $package_names{$type}->{$_} ? "$_=" . $package_names{$type}->{$_} : $prefix ? "$_=$prefix$_" : $_ }
-      grep { my $table = $_; !any { $_ eq $table } @{ $blacklist{$type} } }
+  if ($config{all}) {
+    my $db  = SL::DB::create(undef, 'LXOFFICE');
+    @tables =
+      map { $package_names{LXOFFICE}->{$_} ? "$_=" . $package_names{LXOFFICE}->{$_} : $_ }
+      grep { my $table = $_; !any { $_ eq $table } @{ $blacklist{LXOFFICE} } }

       $db->list_tables;
   } elsif (@ARGV) {
     @tables = @ARGV;
   } else {
       $db->list_tables;
   } elsif (@ARGV) {
     @tables = @ARGV;
   } else {

-    error("You specified neither --sugar nor --all nor any specific tables.");
+    error("You specified neither --all nor any specific tables.");

     usage();
   }
 
     usage();
   }
 


@@ -250,12 +246,12 @@ __END__
 
 =head1 NAME
 
 
 =head1 NAME
 

-rose_auto_create_model - mana Rose::DB::Object classes for Lx-Office
+rose_auto_create_model - mana Rose::DB::Object classes for kivitendo

 
 =head1 SYNOPSIS
 
   scripts/rose_create_model.pl --login login table1[=package1] [table2[=package2] ...]
 
 =head1 SYNOPSIS
 
   scripts/rose_create_model.pl --login login table1[=package1] [table2[=package2] ...]

-  scripts/rose_create_model.pl --login login [--all|-a] [--sugar|-s]
+  scripts/rose_create_model.pl --login login [--all|-a]

 
   # updates all models
   scripts/rose_create_model.pl --login login --all
 
   # updates all models
   scripts/rose_create_model.pl --login login --all


@@ -325,12 +321,8 @@ C<devel/login>. If that too is not found, an error is thrown.
 Process all tables from the database. Only those that are blacklistes in
 L<SL::DB::Helper::Mappings> are excluded.
 
 Process all tables from the database. Only those that are blacklistes in
 L<SL::DB::Helper::Mappings> are excluded.
 

-=item C<--sugar, -s>
-
-Process tables in sugar schema instead of standard schema. Rarely useful unless
-you debug schema awareness of the RDBO layer.
-

 =item C<--no-commit, -n>
 =item C<--no-commit, -n>

+

 =item C<--dry-run>
 
 Do not write back generated files. This will do everything as usual but not
 =item C<--dry-run>
 
 Do not write back generated files. This will do everything as usual but not