Index: /tags/ipp-ps1-20210708/Nebulous-Server/Build.PL =================================================================== --- /tags/ipp-ps1-20210708/Nebulous-Server/Build.PL (revision 42871) +++ /tags/ipp-ps1-20210708/Nebulous-Server/Build.PL (revision 42872) @@ -15,13 +15,16 @@ 'DBD::mysql' => '3.0007', 'DBI' => '1.53', - 'Digest::SHA1' => 0, 'File::Basename' => 0, 'File::ExtAttr' => '1.03', - 'File::Mountpoint' => '0.01', +# needed for Ubuntu, not Gentoo + 'Digest::SHA' => 0, +# not needed for Ubuntu +# 'Digest::SHA1' => 0, +# 'File::Mountpoint' => '0.01', +# 'Filesys::Df' => '0.92', 'File::Path' => '1.08', 'File::Spec' => 0, 'File::Spec::Functions' => 0, 'File::Temp' => 0, - 'Filesys::Df' => '0.92', 'Log::Dispatch::Email::MailSend' => 0, 'Log::Log4perl' => '0.48', @@ -34,10 +37,13 @@ build_requires => { 'Test::More' => '0.49', - 'Test::URI' => '1.06', - 'Test::DBUnit' => '0.20', +# 'Test::URI' => '1.06', +# 'Test::DBUnit' => '0.20', }, recommends => { 'Test::Distribution' => '1.22', - 'Apache2::SOAP' => 0, +# needed for Gentoo, not Ubuntu +# 'Apache2::SOAP' => 0, +# needed for Ubuntu, not Gentoo + 'Apache::SOAP' => 0, 'Apache::DBI' => '1.05', }, Index: /tags/ipp-ps1-20210708/Nebulous-Server/bin/neb-cabinet =================================================================== --- /tags/ipp-ps1-20210708/Nebulous-Server/bin/neb-cabinet (revision 42872) +++ /tags/ipp-ps1-20210708/Nebulous-Server/bin/neb-cabinet (revision 42872) @@ -0,0 +1,184 @@ +#!/usr/bin/env perl + +use strict; +use warnings FATAL => qw( all ); + +use vars qw( $VERSION ); +$VERSION = '0.01'; + +use DBI; +use URI::file; +use SQL::Interp qw( sql_interp ); +use URI; + +use Getopt::Long qw( GetOptions :config auto_help auto_version ); +use Pod::Usage qw( pod2usage ); + +my ($dbname, $dbhost, $dbpass, $dbuser, $debug); + +# $dbname = $ENV{'NEB_DB'} unless $db; +# $dbhost = $ENV{'NEB_DBHOST'} || 'localhost'; +# $dbuser = $ENV{'NEB_USER'} unless $dbuser; +# $dbpass = $ENV{'NEB_PASS'} unless $dbpass; + +# XXX this program (and neb-df) should not have a hard-wired nebulous config location +# XXX can this be part of the build? + +# my $conffile = "/data/ippc64.1/ippitc/ippconfig/nebulous.config"; +# my $conffile = "/home/panstarrs/ipp/ippconfig/nebulous.config"; +my $conffile = "/home/panstarrs/ippps1/ippconfig/nebulous.config"; + +if (-e $conffile) { + open(IN,$conffile); + while() { + chomp; + if ($_ =~ /NEB_DB\s+/) { + $dbname = (split /\s+/,$_)[2]; + } + elsif ($_ =~ /NEB_DBHOST/) { + $dbhost = (split /\s+/,$_)[2]; + } + elsif ($_ =~ /NEB_USER/) { + $dbuser = (split /\s+/,$_)[2]; + } + elsif ($_ =~ /NEB_PASS/) { + $dbpass = (split /\s+/,$_)[2]; + } + } + close(IN); +} + +GetOptions( + 'dbname=s' => \$dbname, + 'dbhost=s' => \$dbhost, + 'dbuser=s' => \$dbuser, + 'dbpass=s' => \$dbpass, + ) || pod2usage( 2 ); + +pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV; +pod2usage( -msg => "Cannot configure nebulous database", -exitval => 2) unless + defined $dbname && defined $dbhost && defined $dbuser && defined $dbpass; + +my $dbh = DBI->connect( + "DBI:mysql:database=$dbname:host=$dbhost", $dbuser, $dbpass, + { + RaiseError => 1, + PrintError => 0, + AutoCommit => 0, + }, + ); + +my $sql_cabinets = "SELECT cab_id, name, site_id, location from cabinet"; +warn "$sql_cabinets\n" if $debug; + +my $rowref = $dbh->selectall_arrayref( $sql_cabinets ); +my @rowarr = @$rowref; + +foreach my $valref (@rowarr) { + my @values = @$valref; + + # there should be exactly 4 values + my $Nvalues = @values; + if ($Nvalues != 4) { print "ERROR: invalid response?\n"; next; } + +# printf ("%s %s %s %s", $values[0], $values[1], $values[2], $values[3]); + printf ("%s %s %s %s", @values); +} + +__END__ + +=pod + +=head1 NAME + +neb-cabinet - show / manage the state of Nebulous storage cabinets + +=head1 SYNOPSIS + + neb-cabinet + [--dbhost ] [--db ] + [--dbuser ] [--dbpass ] + +=head1 DESCRIPTION + +This program displays a Nebulous server's list of cabinets. + +=head1 OPTIONS + +=item * --dbname + +Name of database (C) to create tables in. + +Optional if the appropriate environment variable is set. + +=item * --dbhost + +Host name where the database resides. + +Defaults to C. + +=item * --dbuser + +Username to authenticate with. + +Optional if the appropriate environment variable is set. + +=item * --dbpass + +Password to authenticate with. + +Optional if the appropriate environment variable is set. + +=back + +=head1 ENVIRONMENT + +These environment variables may be used in place of the specified command line +options. All command line option will override the corresponding environment +value. + +=over 4 + +=item * C + +Equivalent to --db|-d + +=item * C + +Equivalent to --host + +=item * C + +Equivalent to --user|-u + +=item * C + +Equivalent to --pass|-p + +=back + +=head1 COPYRIGHT + +Copyright (C) 2008 Joshua Hoblitt. All rights reserved. + +This program is free software; you can redistribute it and/or modify it under +the 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. + +You should have received a copy of the GNU General Public License along with +this program; if not, write to the Free Software Foundation, Inc., 59 Temple +Place - Suite 330, Boston, MA 02111-1307, USA. + +The full text of the license can be found in the L Pod as supplied +with Perl 5.8.1 and later. + +=head1 SEE ALSO + +L, L, L + +=cut