#!/usr/bin/perl -w -I/csciloc/linux/Update
use strict ;
use commonupdate ;

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

system '/sbin/lvcreate', '--name', 'playLV', '--size', '8G', 'vgCSCI' ;
if ($?) {
   exit 1 ;
}
mkdir '/playpen' ;
system '/sbin/mkfs', '-t', 'ext4', '/dev/vgCSCI/playLV' ;
if ($?) {
   exit 1 ;
}
my $fh ;
open($fh, '>>', '/etc/fstab') ;
print $fh <<THELINE ;
/dev/mapper/vgCSCIVG-playLV /playpen                ext4    defaults        1 2
THELINE
system '/bin/mount', '/playpen' ;
if ($?) {
   exit 1 ;
}
chmod 01777, '/playpen' ;
