XAS

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

            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");

debian/postinst  view on Meta::CPAN

    configure)
        install -m 755 -d /etc/xas
        install -m 775 -d /var/lib/xas
        install -m 775 -d /var/run/xas
        install -m 775 -d /var/log/xas
        install -m 775 -d /var/lock/xas
        install -m 775 -d /var/spool/xas
        install -m 775 -d /var/spool/xas/alerts
        install -m 775 -d /var/spool/xas/logs
        #
        chown -R xas:xas /var/lib/xas
        chown -R xas:xas /var/log/xas
        chown -R xas:xas /var/lock/xas
        chown -R xas:xas /var/run/xas
        chown -R xas:xas /var/spool/xas
        #
        chmod g+s /var/lib/xas
        chmod g+s /var/run/xas
        chmod g+s /var/log/xas
        chmod g+s /var/lock/xas
        chmod g+s /var/spool/xas
        chmod g+s /var/spool/xas/alerts
        chmod g+s /var/spool/xas/logs
        #
    ;;

lib/XAS/Apps/Init.pm  view on Meta::CPAN

    my $self = shift;

    my @dirs = ('/var/run/xas', '/var/lock/xas');
    my ($login,$pass,$uid,$gid) = getpwnam('xas');

    foreach my $dir (@dirs) {

        unless ( -e $dir ) {

            mkdir $dir;
            chown $uid, $gid, $dir;
            chmod 0775, $dir;
            system("chmod g+s $dir");

        }

    }

}

# ----------------------------------------------------------------------

perl-XAS.spec  view on Meta::CPAN

./Build install --destdir $RPM_BUILD_ROOT create_packlist=0
./Build redhat --destdir $RPM_BUILD_ROOT

find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
%{_fixperms} $RPM_BUILD_ROOT/*

%check
./Build test

%post
chown -R root.xas /etc/xas
chown -R xas.xas  /var/lib/xas
chown -R xas.xas  /var/log/xas
chown -R xas.xas  /var/run/xas
chown -R xas.xas  /var/lock/xas
chown -R xas.xas  /var/spool/xas

chmod g+ws /var/lib/xas
chmod g+ws /var/run/xas
chmod g+ws /var/log/xas
chmod g+ws /var/lock/xas
chmod g+ws /var/spool/xas
chmod g+ws /var/spool/xas/alerts
chmod g+ws /var/spool/xas/logs

%postun