projekt kivitendo

# autologin to use if none is given

login = myxplace_standard

[debug]

# Use DBIx::Log4perl for logging DBI calls. The string LXDEBUGFILE

# will be replaced by the file name configured for $::lxdebug.

  SL::LxOfficeConf->read;

    usage();

  }

  $::lxdebug      = LXDebug->new();

  $::locale       = Locale->new("de");

  $::form         = new Form;

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

  mkdir $meta_path unless -d $meta_path;

}

  my $meta_file  =  "${meta_path}/${package}.pm";

  my $file       =  "SL/DB/${package}.pm";

__PACKAGE__->meta->schema('$schema');

CODE

    use base qw(SL::DB::Object);

    __PACKAGE__->meta->table('$table');

    __PACKAGE__->meta->auto_initialize;

    __PACKAGE__->meta->perl_class_definition(indent => 2); # , braces => 'bsd'

  if ($EVAL_ERROR) {

    error("Error in execution for table '$table'");

    return;

  }

    $definition =~ s/( foreign_keys \s*=> \s*\[ .* ^\s+ ) ${auto_generated_name} \b/${1}${desired_name}/msx;

  }

  my $full_definition = <<CODE;

# This file has been auto-generated. Do not modify it; it will be overwritten

# by $::script automatically.

use SL::DB::MetaSetup::${package};

# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.

__PACKAGE__->meta->make_manager_class;

1;

    my $new_size    = length $full_definition;

    my $new_md5     = md5_hex($full_definition);

    if ($old_size == $new_size && $old_md5 == $new_md5) {

      return;

    }

sub parse_args {

  my ($options) = @_;

  GetOptions(

    all                 => \ my $all,

    'no-commit|dry-run' => \ my $nocommit,

    help                => sub { pod2usage(verbose => 99, sections => 'NAME|SYNOPSIS|OPTIONS') },

    diff                => \ my $diff,

  );

  $options->{all}      = $all;

  $options->{nocommit} = $nocommit;

  if ($diff) {

    if (eval { require Text::Diff; 1 }) {

=head1 SYNOPSIS

  # updates all models

  # updates only customer table, login taken from config

  scripts/rose_create_model.pl customer

  scripts/rose_create_model.pl parts=Part

  # try to update parts, but don't do it. tell what would happen in detail

=head1 DESCRIPTION

=over 4

=item C<--all, -a>

Print this help.

=back