view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

        foreach my $file (keys %$files) {

            # Pod::Simple based parsers only support one document per instance.
            # This is expected to change in a future version 
            # (Pod::Simple > 3.03).

            # binaries go in section 1p

            my $parser  = Pod::Man->new( section => '1p' ); 
            my $manpage = $self->man1page_name( $file ) . '.' .
                $self->config( 'man1ext' );

            my $outfile = File::Spec->catfile($mandir, $manpage);

            next if $self->up_to_date( $file, $outfile );

            $self->log_verbose("Manifying $file -> $outfile\n");

            eval { $parser->parse_from_file( $file, $outfile ); 1 }
                 or $self->log_warn("Error creating '$outfile': $@\n");
          
            $files->{$file} = $outfile;

        }

    }

    # set up directory structure and user/group accounts

    sub ACTION_post_install {
        my $self = shift;

        # create xas owner/group

        unless ($^O eq 'MSWin32') {

            unless (getpwnam('xas')) {

                system("groupadd -f -r xas");
                system("useradd -r -g xas -d /var/lib/xas -s /sbin/nologin -c \"XAS\" xas");

            }

            # using the standard filesystem layout

            system("mkdir /etc/xas")       unless ( -e '/etc/xas');
            system("mkdir /var/lock/xas")  unless ( -e '/var/lock/xas');
            system("mkdir /var/log/xas")   unless ( -e '/var/log/xas');
            system("mkdir /var/lib/xas")   unless ( -e '/var/lib/xas');
            system("mkdir /var/run/xas")   unless ( -e '/var/run/xas');
            system("mkdir /var/spool/xas") unless ( -e '/var/spool/xas');

            # create some spool directories

            system("mkdir /var/spool/xas/alerts") unless ( -e '/var/spool/xas/alerts');
            system("mkdir /var/spool/xas/logs")   unless ( -e '/var/spool/xas/logs');

            # set ownership/permissions on the files/directories

            system("chown -R xas:xas  /var/log/xas");
            system("chown -R xas:xas  /var/lib/xas");
            system("chown -R xas:xas  /var/run/xas");
            system("chown -R xas:xas  /var/spool/xas");
            system("chown -R xas:xas  /var/lock/xas");

            system("chmod 0775 /var/log/xas");
            system("chmod 0775 /var/lib/xas");
            system("chmod 0775 /var/run/xas");
            system("chmod 0775 /var/spool/xas");
            system("chmod 0775 /var/lock/xas");
            system("chmod 0775 /var/spool/xas/alerts");
            system("chmod 0775 /var/spool/xas/logs");

            system("chmod g+s /var/log/xas");
            system("chmod g+s /var/lib/xas");
            system("chmod g+s /var/run/xas");
            system("chmod g+s /var/lock/xas");
            system("chmod g+s /var/spool/xas");
            system("chmod g+s /var/spool/xas/alerts");
            system("chmod g+s /var/spool/xas/logs");

        } else {

            my $dir;
            my $base = defined($ENV{'XAS_ROOT'}) ? $ENV{'XAS_ROOT'} : 'C:\\xas';

            $dir = catdir($base, 'tmp');
            system("mkdir $dir") unless ( -e $dir);

            $dir = catdir($base, 'var');
            system("mkdir $dir") unless ( -e $dir);

            $dir = catdir($base, 'var', 'log');
            system("mkdir $dir") unless ( -e $dir);

            $dir = catdir($base, 'var', 'lock');
            system("mkdir $dir") unless ( -e $dir);

            $dir = catdir($base, 'var', 'run');
            system("mkdir $dir") unless ( -e $dir);

            $dir = catdir($base, 'var', 'lib');
            system("mkdir $dir") unless ( -e $dir);

            $dir = catdir($base, 'var', 'spool');
            system("mkdir $dir") unless ( -e $dir);

            $dir = catdir($base, 'var', 'spool', 'alerts');
            system("mkdir $dir") unless ( -e $dir);

            $dir = catdir($base, 'var', 'spool', 'logs');
            system("mkdir $dir") unless ( -e $dir);

        }

        return $self;

    }

    # remove redhat stuff when installing to debian

    sub ACTION_debian {
        my $self = shift;