Changeset 16179 for trunk/Nebulous/bin/neb-addvol
- Timestamp:
- Jan 22, 2008, 11:14:55 AM (18 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous/bin/neb-addvol (modified) (8 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous/bin/neb-addvol
r13074 r16179 1 1 #!/usr/bin/env perl 2 2 3 # Copyright (C) 2005-200 7Joshua Hoblitt3 # Copyright (C) 2005-2008 Joshua Hoblitt 4 4 # 5 # $Id: neb-addvol,v 1. 5 2007-04-28 01:19:59jhoblitt Exp $5 # $Id: neb-addvol,v 1.6 2008-01-22 21:14:55 jhoblitt Exp $ 6 6 7 7 use strict; … … 18 18 use Pod::Usage qw( pod2usage ); 19 19 20 my ($db, $dbuser, $dbpass, $ name, $uri);20 my ($db, $dbuser, $dbpass, $volume, $uri); 21 21 22 22 $db = $ENV{'NEB_DB'} unless $db; … … 28 28 'user=s' => \$dbuser, 29 29 'pass=s' => \$dbpass, 30 ' name=s' => \$name,30 'volume=s' => \$volume, 31 31 'uri=s' => \$uri, 32 32 ) || pod2usage( 2 ); … … 34 34 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV; 35 35 pod2usage( -msg => "Required options: --db --user --pass", -exitval => 2 ) 36 unless $db && $dbuser && $dbpass && $ name && $uri;36 unless $db && $dbuser && $dbpass && $volume && $uri; 37 37 38 38 my $dbh = DBI->connect( … … 61 61 62 62 my $query = $dbh->prepare( $sql->new_volume ); 63 $query->execute( $ name, $path );63 $query->execute( $volume, $path ); 64 64 65 65 print " OK\n"; … … 75 75 =head1 SYNOPSIS 76 76 77 neb-addvol --name <volume name> --uri <volume uri> [--db <database>] [--user <username>] [--pass <password>] 77 neb-addvol --volume <volume name> --uri <volume uri> 78 [--db <database>] [--user <username>] [--pass <password>] 78 79 79 80 =head1 DESCRIPTION … … 87 88 =over 4 88 89 89 =item * -- name|-n <volume name>90 =item * --volume|-n <volume name> 90 91 91 92 Symbolic name of volume being added. … … 151 152 =head1 COPYRIGHT 152 153 153 Copyright (C) 2005-200 7Joshua Hoblitt. All rights reserved.154 Copyright (C) 2005-2008 Joshua Hoblitt. All rights reserved. 154 155 155 156 This program is free software; you can redistribute it and/or modify it under
Note:
See TracChangeset
for help on using the changeset viewer.
