#!/usr/bin/perl -w
use strict ;

print "SUMMARY OF UPDATE ACTIONS\n" ;
print "  Create /playpen file system\n" ;
print "\n" ;

if (-d '/playpen') {
    print "/playpen exists\n" ;
    exit 1 ;
}
system '/sbin/lvcreate', '--name', 'playpenLV', '--size', '64G', 'uncacsciVG' ;
if ($?) {
   exit 1 ;
}
mkdir '/playpen' ;
system '/sbin/mkfs', '-t', 'ext4', '/dev/uncacsciVG/playpenLV' ;
if ($?) {
   exit 1 ;
}
my $fh ;
open($fh, '>>', '/etc/fstab') ;
print $fh <<THELINE ;
/dev/mapper/uncacsciVG-playpenLV  /playpen   ext4    defaults        1  2
THELINE
system '/bin/mount', '/playpen' ;
if ($?) {
   exit 1 ;
}
chmod 01777, '/playpen' ;
