Changeset 2a95a21915dcf7861595df49d6972f8c0a0449f8 in xas-logmon


Ignore:
Timestamp:
11/30/15 16:38:07 (4 years ago)
Author:
Kevin L. Esteb <kevin@…>
Branches:
master
Children:
f3e70e2caad093e9497a68d8c4cc525d0756ab51
Parents:
67b2c0806a8b22fe4d0bc2de68ac90ac9e4c4fde
git-author:
Kevin L. Esteb <kevin@…> (11/30/15 16:38:07)
git-committer:
Kevin L. Esteb <kevin@…> (11/30/15 16:38:07)
Message:

updated Build.PL

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Build.PL

    r57ab731dbfc619ab99ce71ac415210d451fc3ba0 r2a95a21915dcf7861595df49d6972f8c0a0449f8  
    5454    use File::Basename; 
    5555    use File::Spec::Functions qw( catfile catdir rel2abs ); 
     56 
     57    # override and add a few things 
     58 
     59    sub new { 
     60        my $class = shift; 
     61 
     62        my $self = $class->SUPER::new(@_); 
     63 
     64        my $blib = $self->{properties}{blib}; 
     65        my $sbin = catfile($blib, 'sbin'); 
     66        $self->{properties}{sbindoc_dirs} = [ $sbin ]; 
     67 
     68        return $self; 
     69 
     70    } 
     71 
     72    # create man pages for files within sbin 
     73 
     74    sub manify_sbin_pods { 
     75        my $self    = shift; 
     76 
     77        my $files  = $self->_find_pods(  
     78            $self->{properties}{sbindoc_dirs}, 
     79            exclude => [ $self->file_qr('\.bat$') ]  
     80        ); 
     81 
     82        return unless keys %$files; 
     83 
     84        my $mandir = File::Spec->catdir( $self->blib, 'bindoc' ); 
     85        File::Path::mkpath( $mandir, 0, oct(777) ); 
     86 
     87        require Pod::Man; 
     88 
     89        foreach my $file (keys %$files) { 
     90 
     91            # Pod::Simple based parsers only support one document per instance. 
     92            # This is expected to change in a future version  
     93            # (Pod::Simple > 3.03). 
     94 
     95            # binaries go in section 1p 
     96 
     97            my $parser  = Pod::Man->new( section => '1p' );  
     98            my $manpage = $self->man1page_name( $file ) . '.' . 
     99                $self->config( 'man1ext' ); 
     100 
     101            my $outfile = File::Spec->catfile($mandir, $manpage); 
     102 
     103            next if $self->up_to_date( $file, $outfile ); 
     104 
     105            $self->log_verbose("Manifying $file -> $outfile\n"); 
     106 
     107            eval { $parser->parse_from_file( $file, $outfile ); 1 } 
     108                 or $self->log_warn("Error creating '$outfile': $@\n"); 
     109 
     110            $files->{$file} = $outfile; 
     111 
     112        } 
     113 
     114    } 
     115 
     116    # remove redhat stuff when installing to debian 
     117 
     118    sub ACTION_debian { 
     119        my $self = shift; 
     120 
     121        # cleanup the init.d directory 
     122 
     123        my $destdir = $self->destdir; 
     124        my @files = ('xas-logmon');  
     125        my @names = map { catfile($destdir, 'etc', 'init.d', $_ . '.rhel') } @files; 
     126 
     127        foreach my $file (@names) { 
     128 
     129            unlink $file if (-e $file); 
     130 
     131        } 
     132 
     133        @names = map { catfile($destdir, 'etc', 'init.d', $_ . '.debian') } @files; 
     134 
     135        foreach my $file (@names) { 
     136 
     137            if ( -e $file) { 
     138 
     139                my ($name, $path, $ext) = fileparse($file, qr/\.[^.]*/); 
     140                my $new = catfile($path, $name); 
     141 
     142                move($file, $new); 
     143 
     144            } 
     145 
     146        } 
     147 
     148    } 
     149 
     150    # remove debian stuff when installing to redhat 
     151 
     152    sub ACTION_redhat { 
     153        my $self = shift; 
     154 
     155        # cleanup the init.d directory 
     156 
     157        my $destdir = $self->destdir; 
     158        my @files = ('xas-logmon');  
     159        my @names = map { catfile($destdir, 'etc',  'init.d', $_ . '.debian') } @files; 
     160 
     161        foreach my $file (@names) { 
     162 
     163            unlink $file if (-e $file); 
     164 
     165        } 
     166 
     167        @names = map { catfile($destdir, 'etc', 'init.d', $_ . '.rhel') } @files; 
     168 
     169        foreach my $file (@names) { 
     170 
     171            if ( -e $file) { 
     172 
     173                my ($name, $path, $ext) = fileparse($file, qr/\.[^.]*/); 
     174                my $new = catfile($path, $name); 
     175 
     176                move($file, $new); 
     177 
     178            } 
     179 
     180        } 
     181 
     182    } 
    56183 
    57184    sub process_etc_files { 
Note: See TracChangeset for help on using the changeset viewer.