Changeset 239 for trunk


Ignore:
Timestamp:
Oct 9, 2008, 12:07:00 AM (16 years ago)
Author:
joergs
Message:

perltidy

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dasscm/dasscm

    r238 r239  
    1616use File::Path;
    1717use Term::ReadKey;
     18
    1819#use Data::Dumper;
    1920
     
    8081      "    DASSCM_USERNAME\n", "    DASSCM_PASSWORD\n",
    8182      "  are evaluated, but set automatically by 'dasscm login'.\n", "\n",
    82       "  If dasscm is not yet configured, read",
    83       "  $doc_file\n";
     83      "  If dasscm is not yet configured, read", "  $doc_file\n";
    8484}
    8585
     
    9696sub fatalerror(@)
    9797{
    98     error( @_ );
     98    error(@_);
     99
    99100    #print "Exiting\n";
    100     exit 1
    101 }
    102 
     101    exit 1;
     102}
    103103
    104104#
     
    107107sub get_config
    108108{
    109     my $file   = $_[0];
    110 
    111     if( ! $file ) {
     109    my $file = $_[0];
     110
     111    if ( !$file ) {
    112112        fatalerror( "failed to open config file" . $file );
    113113    }
     
    125125            }
    126126            if ( $_ =~ /=/g ) {
     127
    127128                # splitting in 2 fields at maximum
    128129                my ( $option, $value ) = split( /=/, $_, 2 );
     
    145146}
    146147
    147 
    148148sub check_env()
    149149{
     
    178178
    179179    #
    180     # check if local repository directory exist 
     180    # check if local repository directory exist
    181181    # (if not creating by init)
    182182    #
     
    224224}
    225225
    226 
    227 #
    228 # generate from (relative) filename
     226#
     227# generate from (relative) filename
    229228# all required file and directory names:
    230229# $basename,      $dirname_prod, $dirname_repo,
     
    240239    }
    241240
    242     if( not -r $filename_prod ) {
    243         fatalerror( $filename_prod  . " is not accessable" );
     241    if ( not -r $filename_prod ) {
     242        fatalerror( $filename_prod . " is not accessable" );
    244243    }
    245244
     
    277276    foreach my $file (@files) {
    278277        $file = "/" . $file;
    279         if( -e $file ) {
    280             my $info       = stat( $file ) || die "failed to stat $file: aborting";
    281             my $mode       = get_type( $info->mode ) & 07777;
     278        if ( -e $file ) {
     279            my $info = stat($file) || die "failed to stat $file: aborting";
     280            my $mode = get_type( $info->mode ) & 07777;
    282281            my $modestring = sprintf( "%04o", $mode );
    283282            my $uid        = $info->uid;
     
    291290            );
    292291        } else {
    293             print "failed to get status of $file. It exists in the repository, but not on the system\n";
     292            print
     293              "failed to get status of $file. It exists in the repository, but not on the system\n";
    294294        }
    295295    }
     
    364364    print "checking credentials ... ";
    365365
    366     if( ! $username ) {
    367         fatalerror( "no username given" );
    368     }
    369 
    370     if( ! $password ) {
    371         fatalerror( "no password given" );
     366    if ( !$username ) {
     367        fatalerror("no username given");
     368    }
     369
     370    if ( !$password ) {
     371        fatalerror("no password given");
    372372    }
    373373
     
    426426}
    427427
    428 
    429428#
    430429# from an array of files/dirs,
     
    439438    my @others = ();
    440439
    441     if( @_ ) {
    442         find( { wanted => sub {
    443             my $fullname = cwd() . "/" . $_;
    444             if ( -l $_ ) {
    445                 # soft link
    446                 # important: check for links first
    447                 #   to exclude them from further checks
    448                 push( @links, $fullname );
    449             } elsif ( -d $_ ) {
    450                 push( @dirs, $fullname );
    451             } elsif( -f $_ ) {
    452                 # regular file
    453                 push( @files, $fullname );
    454             } else {
    455                 push( @others, $fullname );
    456             }
    457         } }, @_ );
    458     }
    459 
    460     # don't rely on others.
     440    if (@_) {
     441        find(
     442            {
     443                wanted => sub {
     444                    my $fullname = cwd() . "/" . $_;
     445                    if ( -l $_ ) {
     446
     447                        # soft link
     448                        # important: check for links first
     449                        #   to exclude them from further checks
     450                        push( @links, $fullname );
     451                    } elsif ( -d $_ ) {
     452                        push( @dirs, $fullname );
     453                    } elsif ( -f $_ ) {
     454
     455                        # regular file
     456                        push( @files, $fullname );
     457                    } else {
     458                        push( @others, $fullname );
     459                    }
     460                  }
     461            },
     462            @_
     463        );
     464    }
     465
     466    # don't rely on others.
    461467    # If more specific file types are needed,
    462468    # they will be added
    463469    return {
    464         files   => \@files,
    465         links   => \@links,
    466         dirs    => \@dirs,
    467         others  => \@others
    468      };
    469 }
    470 
    471 
     470        files  => \@files,
     471        links  => \@links,
     472        dirs   => \@dirs,
     473        others => \@others
     474    };
     475}
    472476
    473477#####################################################################
     
    511515    print "\n";
    512516
    513     svn_check_credentials( $input_username || $DASSCM_USERNAME, $input_password );
     517    svn_check_credentials( $input_username || $DASSCM_USERNAME,
     518        $input_password );
    514519
    515520    #
     
    565570    svn_update();
    566571}
    567 
    568 
    569572
    570573#
     
    587590
    588591    # TODO: are permissions also copied?
    589     copy( $filename_prod, $filename_repo ) or error "failed to copy $filename_prod to repository: $!";
     592    copy( $filename_prod, $filename_repo )
     593      or error "failed to copy $filename_prod to repository: $!";
    590594
    591595    if ( $command eq "add" ) {
     
    597601        for my $dir ( split( '/', $dirname_prod ) ) {
    598602            if ($dir) {
    599                 my( $rc, @out ) = run_command("$SVN add --non-recursive \"" . $dir . "\"" );
    600                 if( $rc > 0 ) {
     603                my ( $rc, @out ) =
     604                  run_command( "$SVN add --non-recursive \"" . $dir . "\"" );
     605                if ( $rc > 0 ) {
    601606                    print join( "\n", @out );
    602                 } 
     607                }
    603608                chdir $dir;
    604609            }
    605610        }
    606         my( $rc, @out ) = run_command("$SVN add \"" . $basename . "\"");
    607         if( $rc > 0 ) {
     611        my ( $rc, @out ) = run_command( "$SVN add \"" . $basename . "\"" );
     612        if ( $rc > 0 ) {
    608613            print join( "\n", @out );
    609         } 
     614        }
    610615        chdir $StartDirectory;
    611616    }
    612617}
    613 
    614618
    615619#
     
    627631
    628632    # get all regular files and links
    629     my $href_files = get_files( @_ );
     633    my $href_files = get_files(@_);
    630634
    631635    #print Dumper( $href_files );
    632636
    633     my @files = @{$href_files->{files}};
    634     my @links = @{$href_files->{links}};
    635 
    636     if( @files ) {
     637    my @files = @{ $href_files->{files} };
     638    my @links = @{ $href_files->{links} };
     639
     640    if (@files) {
    637641        my $number = $#files + 1;
    638642        print "files to check-in ($number): \n";
     
    641645    }
    642646
    643     if( @links ) {
     647    if (@links) {
    644648        my $number = $#links + 1;
    645649        print "\n";
     
    653657    # copy files one by one to local repository
    654658    for my $file (@files) {
     659
    655660        # add file
    656         add_helper( $file );
     661        add_helper($file);
    657662    }
    658663
     
    667672    }
    668673
    669     # commit calls $EDITOR. 
     674    # commit calls $EDITOR.
    670675    # use "interactive" here, to display output
    671676    my $retcode =
     
    718723
    719724    ( my $rc_diff, my @diff_result ) =
    720       run_command( $diff . " $filename_repo $filename_prod");
     725      run_command( $diff . " $filename_repo $filename_prod" );
    721726
    722727    print @diff_result;
Note: See TracChangeset for help on using the changeset viewer.