Added LX-LVM scripts
This commit is contained in:
patvdv
parent
a226277c55
commit
9e53269f11
@ -8,4 +8,5 @@ This is a small collection of HP-UX related scripts. YMMV in terms of usage.
|
||||
|
||||
* **handle_failed_lunpaths.sh** : shows and/or removes failed LUN paths on HP-UX using the `scsimgr` tool. For more documentation, read http://www.kudos.be/Projects/Clean_up_failed_LUN_paths_on_HP-UX.html
|
||||
|
||||
* **pvs.pl/vgs.pl/lvs.pl**: show basic LVM information in Linux-style.
|
||||
|
||||
|
||||
180
lx-lvm/lvs.pl
Normal file
180
lx-lvm/lvs.pl
Normal file
@ -0,0 +1,180 @@
|
||||
#!/usr/bin/env perl
|
||||
#******************************************************************************
|
||||
# @(#) lvs.pl
|
||||
#******************************************************************************
|
||||
# @(#) Copyright (C) 2016 by KUDOS BVBA <info@kudos.be>. All rights reserved.
|
||||
#
|
||||
# This program is a free software; you can redistribute it and/or modify
|
||||
# it under the same terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful, but WITHOUT
|
||||
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||||
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details
|
||||
#******************************************************************************
|
||||
# This script will display HP-UX LVM information in Linux style
|
||||
#
|
||||
# Based on https://jreypo.wordpress.com/2010/02/16/linux-lvm-commands-in-hp-ux/
|
||||
#
|
||||
# @(#) HISTORY: see perldoc 'lvs.pl'
|
||||
# -----------------------------------------------------------------------------
|
||||
# DO NOT CHANGE THIS FILE UNLESS YOU KNOW WHAT YOU ARE DOING!
|
||||
#******************************************************************************
|
||||
|
||||
#******************************************************************************
|
||||
# PRAGMA's & LIBRARIES
|
||||
#******************************************************************************
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use POSIX qw(uname);
|
||||
use Getopt::Long;
|
||||
use Pod::Usage;
|
||||
$|++;
|
||||
|
||||
|
||||
#******************************************************************************
|
||||
# DATA structures
|
||||
#******************************************************************************
|
||||
|
||||
my ($os, $version, $footer);
|
||||
my %options;
|
||||
my (@vgdisplay, @lvdisplay);
|
||||
|
||||
|
||||
#******************************************************************************
|
||||
# MAIN routine
|
||||
#******************************************************************************
|
||||
|
||||
# where and what am I?
|
||||
die ("ERROR: must be invoked as root\n") if ($<);
|
||||
($os, $version) = (uname())[0,2];
|
||||
die ("ERROR: only runs on HP-UX v11.31") unless ($os eq 'HP-UX' and $version eq 'B.11.31');
|
||||
|
||||
# process command-line options
|
||||
if ( @ARGV > 0 ) {
|
||||
Getopt::Long::Configure('prefix_pattern=(--|-|\/)', 'bundling', 'no_ignore_case');
|
||||
GetOptions( \%options,
|
||||
qw(
|
||||
help|h|?
|
||||
size|s=s
|
||||
vg|g=s
|
||||
));
|
||||
}
|
||||
# check options
|
||||
if ($options{'help'}) {
|
||||
pod2usage(-verbose => 3);
|
||||
exit (0);
|
||||
};
|
||||
unless ($options{'size'}) {
|
||||
$options{'size'} = 'GB';
|
||||
};
|
||||
|
||||
# print header
|
||||
printf STDOUT ("\n%-30s %-12s %-17s %-6s %-10s %-7s %-8s %-8s\n",
|
||||
"LV", "VG", "Status", "Size", "Permissions", "Mirrors", "Stripes", "Allocation");
|
||||
|
||||
# fetch LVOLs
|
||||
if ($options{'vg'}) {
|
||||
@vgdisplay = `/usr/sbin/vgdisplay -vF ${options{'vg'}} | grep "^lv_name"`;
|
||||
} else {
|
||||
@vgdisplay = `/usr/sbin/vgdisplay -vF | grep "^lv_name"`;
|
||||
}
|
||||
die "failed to execute: $!" if ($?);
|
||||
|
||||
# loop over LVOLs
|
||||
foreach my $lvol (@vgdisplay) {
|
||||
|
||||
my $lv_name = (split (/=/, (split (/:/, $lvol))[0]))[1];
|
||||
|
||||
@lvdisplay = `/usr/sbin/lvdisplay -F ${lv_name}`;
|
||||
die "failed to execute: $!" if ($?);
|
||||
|
||||
# loop over lvdisplay
|
||||
foreach my $lv_entry (@lvdisplay) {
|
||||
|
||||
my ($vg_name, $lv_status, $lv_perm, $lv_alloc) = ("","","","");
|
||||
my ($lv_mirrors, $lv_stripes, $lv_size) = (0,0,0);
|
||||
|
||||
my @lv_data = split (/:/, $lv_entry);
|
||||
|
||||
# loop over LVOL data
|
||||
foreach my $lv_field (@lv_data) {
|
||||
|
||||
$vg_name = $1 if ($lv_field =~ m%^lv_name=/dev/(.*)/%);
|
||||
$lv_status = $1 if ($lv_field =~ m%^lv_status=(.*)%);
|
||||
$lv_perm = $1 if ($lv_field =~ m%^lv_permission=(.*)%);
|
||||
$lv_mirrors = $1 if ($lv_field =~ m%^mirror_copies=(.*)%);
|
||||
$lv_stripes = $1 if ($lv_field =~ m%^stripes=(.*)%);
|
||||
$lv_alloc = $1 if ($lv_field =~ m%^allocation=(.*)%);
|
||||
$lv_size = $1 if ($lv_field =~ m%^lv_size=(.*)%);
|
||||
}
|
||||
# convert to GB if needed
|
||||
$lv_size /= 1024 unless ($options{'size'} =~ /MB/i);
|
||||
# report data
|
||||
printf STDOUT ("%-30s %-12s %-17s %-7d %-17s %-7s %-2s %-5s\n",
|
||||
${lv_name},
|
||||
${vg_name},
|
||||
${lv_status},
|
||||
${lv_size},
|
||||
${lv_perm},
|
||||
${lv_mirrors},
|
||||
${lv_stripes},
|
||||
${lv_alloc})
|
||||
}
|
||||
}
|
||||
|
||||
# footer
|
||||
$footer = qq{
|
||||
Note 1: 'Size' values are expressed in GB by default (see --help)
|
||||
Note 2: more detailed information can be obtained by running the pvdisplay(1M), vgdisplay(1M), lvdisplay(1M) commands
|
||||
|
||||
};
|
||||
print STDOUT $footer;
|
||||
|
||||
exit (0);
|
||||
|
||||
#******************************************************************************
|
||||
# End of SCRIPT
|
||||
#******************************************************************************
|
||||
__END__
|
||||
#******************************************************************************
|
||||
# POD
|
||||
#******************************************************************************
|
||||
|
||||
# -----------------------------------------------------------------------------
|
||||
|
||||
=head1 NAME
|
||||
|
||||
lvs.pl - Show logical volume information in a terse way (Linux style).
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
lvs.pl [-h|--help]
|
||||
[(-g|--vg)=<vg_name>]
|
||||
[(-s|--size)=<MB|GB>]
|
||||
|
||||
=head1 OPTIONS
|
||||
|
||||
=over 2
|
||||
|
||||
=item -h | --help
|
||||
|
||||
S< >Show the help page.
|
||||
|
||||
=item -g | --vg
|
||||
|
||||
S< >Display logical volumes for a specific volume group.
|
||||
|
||||
=item -s | --size
|
||||
|
||||
S< >Show logical volume size in MB or GB (default is GB).
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
(c) KUDOS BVBA - Patrick Van der Veken
|
||||
|
||||
=head1 history
|
||||
|
||||
@(#) 2016-04-12: VRF 1.0.0: first version [Patrick Van der Veken]
|
||||
184
lx-lvm/pvs.pl
Normal file
184
lx-lvm/pvs.pl
Normal file
@ -0,0 +1,184 @@
|
||||
#!/usr/bin/env perl
|
||||
#******************************************************************************
|
||||
# @(#) pvs.pl
|
||||
#******************************************************************************
|
||||
# @(#) Copyright (C) 2016 by KUDOS BVBA <info@kudos.be>. All rights reserved.
|
||||
#
|
||||
# This program is a free software; you can redistribute it and/or modify
|
||||
# it under the same terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful, but WITHOUT
|
||||
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||||
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details
|
||||
#******************************************************************************
|
||||
# This script will display HP-UX LVM information in Linux style
|
||||
#
|
||||
# Based on https://jreypo.wordpress.com/2010/02/16/linux-lvm-commands-in-hp-ux/
|
||||
#
|
||||
# @(#) HISTORY: see perldoc 'pvs.pl'
|
||||
# -----------------------------------------------------------------------------
|
||||
# DO NOT CHANGE THIS FILE UNLESS YOU KNOW WHAT YOU ARE DOING!
|
||||
#******************************************************************************
|
||||
|
||||
#******************************************************************************
|
||||
# PRAGMA's & LIBRARIES
|
||||
#******************************************************************************
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use POSIX qw(uname);
|
||||
use Getopt::Long;
|
||||
use Pod::Usage;
|
||||
$|++;
|
||||
|
||||
|
||||
#******************************************************************************
|
||||
# DATA structures
|
||||
#******************************************************************************
|
||||
|
||||
my ($os, $version, $footer);
|
||||
my %options;
|
||||
my (@vgdisplay, @pvdisplay);
|
||||
|
||||
|
||||
#******************************************************************************
|
||||
# MAIN routine
|
||||
#******************************************************************************
|
||||
|
||||
# where and what am I?
|
||||
die ("ERROR: must be invoked as root\n") if ($<);
|
||||
($os, $version) = (uname())[0,2];
|
||||
die ("ERROR: only runs on HP-UX v11.31") unless ($os eq 'HP-UX' and $version eq 'B.11.31');
|
||||
|
||||
# process command-line options
|
||||
if ( @ARGV > 0 ) {
|
||||
Getopt::Long::Configure('prefix_pattern=(--|-|\/)', 'bundling', 'no_ignore_case');
|
||||
GetOptions( \%options,
|
||||
qw(
|
||||
help|h|?
|
||||
size|s=s
|
||||
vg|g=s
|
||||
));
|
||||
}
|
||||
# check options
|
||||
if ($options{'help'}) {
|
||||
pod2usage(-verbose => 3);
|
||||
exit (0);
|
||||
};
|
||||
unless ($options{'size'}) {
|
||||
$options{'size'} = 'GB';
|
||||
};
|
||||
|
||||
# print header
|
||||
printf STDOUT ("\n%-20s %-10s %-15s %-7s %-8s %-8s %-8s\n",
|
||||
"PV", "VG", "Status", "PE Size", "PV Size", "PV Free", "Stale PE");
|
||||
|
||||
# fetch LVOLs
|
||||
if ($options{'vg'}) {
|
||||
@vgdisplay = `/usr/sbin/vgdisplay -vF ${options{'vg'}} | grep "^pv_name"`;
|
||||
} else {
|
||||
@vgdisplay = `/usr/sbin/vgdisplay -vF | grep "^pv_name"`;
|
||||
}
|
||||
die "failed to execute: $!" if ($?);
|
||||
|
||||
# loop over PVOLs
|
||||
foreach my $pvol (@vgdisplay) {
|
||||
|
||||
my $pv_name = (split (/=/, (split (/:/, $pvol))[0]))[1];
|
||||
|
||||
@pvdisplay = `/usr/sbin/pvdisplay -F ${pv_name}`;
|
||||
die "failed to execute: $!" if ($?);
|
||||
|
||||
# loop over pvdisplay
|
||||
foreach my $pv_entry (@pvdisplay) {
|
||||
|
||||
my ($vg_name, $pv_status)= ("","");
|
||||
my ($pv_total_pe, $pv_size_pe, $pv_free_pe, $pv_stale_pe) = (0,0,0,0);
|
||||
my ($pv_size, $pv_free) = (0,0);
|
||||
|
||||
my @pv_data = split (/:/, $pv_entry);
|
||||
|
||||
# loop over PVOL data
|
||||
foreach my $pv_field (@pv_data) {
|
||||
|
||||
$vg_name = $1 if ($pv_field =~ m%^vg_name=/dev/(.*)%);
|
||||
$pv_status = $1 if ($pv_field =~ m%^pv_status=(.*)%);
|
||||
$pv_total_pe = $1 if ($pv_field =~ m%^total_pe=(.*)%);
|
||||
$pv_size_pe = $1 if ($pv_field =~ m%^pe_size=(.*)%);
|
||||
$pv_free_pe = $1 if ($pv_field =~ m%^free_pe=(.*)%);
|
||||
$pv_stale_pe = $1 if ($pv_field =~ m%^stale_pe=(.*)%);
|
||||
}
|
||||
# calculate sizes
|
||||
$pv_size = $pv_total_pe * $pv_size_pe;
|
||||
$pv_size /= 1024 unless ($options{'size'} =~ /MB/i);
|
||||
$pv_free = $pv_free_pe * $pv_size_pe;
|
||||
$pv_free /= 1024 unless ($options{'size'} =~ /MB/i);
|
||||
|
||||
# report data
|
||||
printf STDOUT ("%-20s %-10s %-15s %-7d %-8d %-8d %-8d\n",
|
||||
${pv_name},
|
||||
${vg_name},
|
||||
${pv_status},
|
||||
${pv_size_pe},
|
||||
${pv_size},
|
||||
${pv_free},
|
||||
${pv_stale_pe})
|
||||
}
|
||||
}
|
||||
|
||||
# footer
|
||||
$footer = qq{
|
||||
Note 1: 'PE Size' values are expressed in MB
|
||||
Note 2: 'PV Size' & 'PV FRee' values are expressed in GB by default (see --help)
|
||||
Note 3: more detailed information can be obtained by running the pvdisplay(1M), vgdisplay(1M), lvdisplay(1M) commands
|
||||
|
||||
};
|
||||
print STDOUT $footer;
|
||||
|
||||
exit (0);
|
||||
|
||||
#******************************************************************************
|
||||
# End of SCRIPT
|
||||
#******************************************************************************
|
||||
__END__
|
||||
#******************************************************************************
|
||||
# POD
|
||||
#******************************************************************************
|
||||
|
||||
# -----------------------------------------------------------------------------
|
||||
|
||||
=head1 NAME
|
||||
|
||||
pvs.pl - Show physical volume information in a terse way (Linux style).
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
pvs.pl [-h|--help]
|
||||
[(-g|--vg)=<vg_name>]
|
||||
[(-s|--size)=<MB|GB>]
|
||||
|
||||
=head1 OPTIONS
|
||||
|
||||
=over 2
|
||||
|
||||
=item -h | --help
|
||||
|
||||
S< >Show the help page.
|
||||
|
||||
=item -g | --vg
|
||||
|
||||
S< >Display physical volumes for a specific volume group.
|
||||
|
||||
=item -s | --size
|
||||
|
||||
S< >Show physical volume size in MB or GB (default is GB).
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
(c) KUDOS BVBA - Patrick Van der Veken
|
||||
|
||||
=head1 history
|
||||
|
||||
@(#) 2016-04-12: VRF 1.0.0: first version [Patrick Van der Veken]
|
||||
188
lx-lvm/vgs.pl
Normal file
188
lx-lvm/vgs.pl
Normal file
@ -0,0 +1,188 @@
|
||||
#!/usr/bin/env perl
|
||||
#******************************************************************************
|
||||
# @(#) vgs.pl
|
||||
#******************************************************************************
|
||||
# @(#) Copyright (C) 2016 by KUDOS BVBA <info@kudos.be>. All rights reserved.
|
||||
#
|
||||
# This program is a free software; you can redistribute it and/or modify
|
||||
# it under the same terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful, but WITHOUT
|
||||
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||||
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details
|
||||
#******************************************************************************
|
||||
# This script will display HP-UX LVM information in Linux style
|
||||
#
|
||||
# Based on https://jreypo.wordpress.com/2010/02/16/linux-lvm-commands-in-hp-ux/
|
||||
#
|
||||
# @(#) HISTORY: see perldoc 'vgs.pl'
|
||||
# -----------------------------------------------------------------------------
|
||||
# DO NOT CHANGE THIS FILE UNLESS YOU KNOW WHAT YOU ARE DOING!
|
||||
#******************************************************************************
|
||||
|
||||
#******************************************************************************
|
||||
# PRAGMA's & LIBRARIES
|
||||
#******************************************************************************
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use POSIX qw(uname);
|
||||
use Getopt::Long;
|
||||
use Pod::Usage;
|
||||
$|++;
|
||||
|
||||
|
||||
#******************************************************************************
|
||||
# DATA structures
|
||||
#******************************************************************************
|
||||
|
||||
my ($os, $version, $footer);
|
||||
my %options;
|
||||
my @vgdisplay;
|
||||
|
||||
|
||||
#******************************************************************************
|
||||
# MAIN routine
|
||||
#******************************************************************************
|
||||
|
||||
# where and what am I?
|
||||
die ("ERROR: must be invoked as root\n") if ($<);
|
||||
($os, $version) = (uname())[0,2];
|
||||
die ("ERROR: only runs on HP-UX v11.31") unless ($os eq 'HP-UX' and $version eq 'B.11.31');
|
||||
|
||||
# process command-line options
|
||||
if ( @ARGV > 0 ) {
|
||||
Getopt::Long::Configure('prefix_pattern=(--|-|\/)', 'bundling', 'no_ignore_case');
|
||||
GetOptions( \%options,
|
||||
qw(
|
||||
help|h|?
|
||||
size|s=s
|
||||
vg|g=s
|
||||
));
|
||||
}
|
||||
# check options
|
||||
if ($options{'help'}) {
|
||||
pod2usage(-verbose => 3);
|
||||
exit (0);
|
||||
};
|
||||
unless ($options{'size'}) {
|
||||
$options{'size'} = 'GB';
|
||||
};
|
||||
|
||||
# print header
|
||||
printf STDOUT ("\n%-10s %-5s %-5s %-20s %-8s %-8s %-10s %-10s %-10s\n",
|
||||
"VG", "PVs", "LVs", "Status", "Version", "PE Size", "VG Size", "VG Free", "VG Max");
|
||||
|
||||
# fetch vgdisplay
|
||||
if ($options{'vg'}) {
|
||||
@vgdisplay = `/usr/sbin/vgdisplay -F ${options{'vg'}}`;
|
||||
} else {
|
||||
@vgdisplay = `/usr/sbin/vgdisplay -F`;
|
||||
}
|
||||
die "failed to execute: $!" if ($?);
|
||||
|
||||
|
||||
# loop over vgdisplay
|
||||
foreach my $vg_entry (@vgdisplay) {
|
||||
|
||||
my ($vg_name, $vg_status, $vg_version)= ("","","n/a");
|
||||
my ($vg_total_pe, $vg_size_pe, $vg_free_pe, $vg_cur_pvs, $vg_cur_lvs, $vg_max_pe) = (0,0,0,0,0,0);
|
||||
my ($vg_size, $vg_free, $vg_max) = (0,0,0);
|
||||
|
||||
my @vg_data = split (/:/, $vg_entry);
|
||||
|
||||
# loop over VG data
|
||||
foreach my $vg_field (@vg_data) {
|
||||
|
||||
$vg_name = $1 if ($vg_field =~ m%^vg_name=/dev/(.*)%);
|
||||
$vg_status = $1 if ($vg_field =~ m%^vg_status=(.*)%);
|
||||
|
||||
unless ($vg_status eq "deactivated") {
|
||||
$vg_total_pe = $1 if ($vg_field =~ m%^total_pe=(.*)%);
|
||||
$vg_size_pe = $1 if ($vg_field =~ m%^pe_size=(.*)%);
|
||||
$vg_free_pe = $1 if ($vg_field =~ m%^free_pe=(.*)%);
|
||||
$vg_cur_pvs = $1 if ($vg_field =~ m%^cur_pv=(.*)%);
|
||||
$vg_cur_lvs = $1 if ($vg_field =~ m%^cur_lv=(.*)%);
|
||||
$vg_version = $1 if ($vg_field =~ m%^vg_version=(.*)%);
|
||||
$vg_max_pe = $1 if ($vg_field =~ m%^vg_max_extents=(.*)%);
|
||||
}
|
||||
}
|
||||
# calculate sizes
|
||||
unless ($vg_status eq "deactivated") {
|
||||
$vg_size = $vg_total_pe * $vg_size_pe;
|
||||
$vg_size /= 1024 unless ($options{'size'} =~ /MB/i);
|
||||
$vg_free = $vg_free_pe * $vg_size_pe;
|
||||
$vg_free /= 1024 unless ($options{'size'} =~ /MB/i);
|
||||
$vg_max = $vg_max_pe * $vg_size_pe;
|
||||
$vg_max /= 1024 unless ($options{'size'} =~ /MB/i);
|
||||
}
|
||||
|
||||
# report data
|
||||
printf STDOUT ("%-10s %-5s %-5s %-20s %-8s %-8d %-10d %-10d %-10d\n",
|
||||
${vg_name},
|
||||
${vg_cur_pvs},
|
||||
${vg_cur_lvs},
|
||||
${vg_status},
|
||||
${vg_version},
|
||||
${vg_size_pe},
|
||||
${vg_size},
|
||||
${vg_free},
|
||||
${vg_max})
|
||||
}
|
||||
|
||||
# footer
|
||||
$footer = qq{
|
||||
Note 1: 'PE Size' values are expressed in MB
|
||||
Note 2: 'VG Size', 'VG Free', 'VG Max' values are expressed in GB by default (see --help)
|
||||
Note 3: more detailed information can be obtained by running the pvdisplay(1M), vgdisplay(1M), lvdisplay(1M) commands
|
||||
|
||||
};
|
||||
print STDOUT $footer;
|
||||
|
||||
exit (0);
|
||||
|
||||
#******************************************************************************
|
||||
# End of SCRIPT
|
||||
#******************************************************************************
|
||||
__END__
|
||||
#******************************************************************************
|
||||
# POD
|
||||
#******************************************************************************
|
||||
|
||||
# -----------------------------------------------------------------------------
|
||||
|
||||
=head1 NAME
|
||||
|
||||
vgs.pl - Show volume group information in a terse way (Linux style).
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
vgs.pl [-h|--help]
|
||||
[(-g|--vg)=<vg_name>]
|
||||
[(-s|--size)=<MB|GB>]
|
||||
|
||||
=head1 OPTIONS
|
||||
|
||||
=over 2
|
||||
|
||||
=item -h | --help
|
||||
|
||||
S< >Show the help page.
|
||||
|
||||
=item -g | --vg
|
||||
|
||||
S< >Display information for a specific volume group.
|
||||
|
||||
=item -s | --size
|
||||
|
||||
S< >Show volume group sizes in MB or GB (default is GB).
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
(c) KUDOS BVBA - Patrick Van der Veken
|
||||
|
||||
=head1 history
|
||||
|
||||
@(#) 2016-04-12: VRF 1.0.0: first version [Patrick Van der Veken]
|
||||
Loading…
x
Reference in New Issue
Block a user