#!/usr/bin/env perl
#
##########################################################################
# @(#) App::PFM::OS::Hpux 0.03
#
# Name:			App::PFM::OS::Hpux
# Version:		0.03
# Author:		Rene Uittenbogaard
# Created:		2010-08-22
# Date:			2010-08-26
#

##########################################################################

=pod

=head1 NAME

App::PFM::OS::Hpux

=head1 DESCRIPTION

PFM OS class for access to HP-UX-specific OS commands.

=head1 METHODS

=over

=cut

##########################################################################
# declarations

package App::PFM::OS::Hpux;

use base 'App::PFM::OS::Abstract';

use strict;
use locale;

use constant {
	MINORBITS => 2 ** 24,
	IFMTCHARS => ' pc?d?b?-nl?sDw?', # with whiteouts and network special
};

##########################################################################
# private subs

##########################################################################
# constructor, getters and setters

##########################################################################
# public subs

=item df(string $path)

HP-UX-specific method for requesting filesystem info.

=cut

sub df {
	my ($self, $file) = @_;
	my @lines = $self->backtick('bdf', $file);
	return $self->_df_unwrap(@lines);
}

=item du(string $path)

HP-UX-specific method for requesting file space usage info
using du(1).

=cut

sub du {
	my ($self, $file) = @_;
	my $line = $self->backtick(qw{du -s}, $file);
	$line =~ /(\d+)/;
	$line = 512 * $1;
	return $line;
}

=item aclget(string $path)

Gets a file's Access Control List.

=cut

sub aclget {
	my ($self, $path) = @_;
	return $self->backtick('getacl', $path);
}

=item aclput(string $path, string $aclfilename)

Sets a file's Access Control List from the data in a temporary file.

=cut

sub aclput {
	my ($self, $path, $aclfilename) = @_;
	return $self->system(qw{setacl -f}, $aclfilename, $path);
}

##########################################################################

=back

=head1 SEE ALSO

pfm(1), App::PFM::OS(3pm), App::PFM::OS::Abstract(3pm).

=cut

1;

# vim: set tabstop=4 shiftwidth=4: