Index: /trunk/Nebulous-Server/Changes =================================================================== --- /trunk/Nebulous-Server/Changes (revision 16182) +++ /trunk/Nebulous-Server/Changes (revision 16183) @@ -1,5 +1,11 @@ -Revision history for Perl module Poi::PixelData +Revision history for Nebulous -0.05 +0.06 + - change bin/* scripts to conistently use --volume instead of --node, + etc. + - pod cleanups + - add neb-replicate & neb-cull + +0.05 2007-05-04 16:59:31(???) - make filesystem xattr support optional & disabled by default - generate instance filenames that leave the "key" at the end so as to not Index: /trunk/Nebulous-Server/MANIFEST =================================================================== --- /trunk/Nebulous-Server/MANIFEST (revision 16182) +++ /trunk/Nebulous-Server/MANIFEST (revision 16183) @@ -11,4 +11,5 @@ bin/neb-cat bin/neb-cp +bin/neb-cull bin/neb-df bin/neb-initdb @@ -16,4 +17,5 @@ bin/neb-ls bin/neb-mv +bin/neb-replicate bin/neb-rm bin/neb-touch Index: /trunk/Nebulous/Changes =================================================================== --- /trunk/Nebulous/Changes (revision 16182) +++ /trunk/Nebulous/Changes (revision 16183) @@ -1,5 +1,11 @@ -Revision history for Perl module Poi::PixelData +Revision history for Nebulous -0.05 +0.06 + - change bin/* scripts to conistently use --volume instead of --node, + etc. + - pod cleanups + - add neb-replicate & neb-cull + +0.05 2007-05-04 16:59:31(???) - make filesystem xattr support optional & disabled by default - generate instance filenames that leave the "key" at the end so as to not Index: /trunk/Nebulous/MANIFEST =================================================================== --- /trunk/Nebulous/MANIFEST (revision 16182) +++ /trunk/Nebulous/MANIFEST (revision 16183) @@ -11,4 +11,5 @@ bin/neb-cat bin/neb-cp +bin/neb-cull bin/neb-df bin/neb-initdb @@ -16,4 +17,5 @@ bin/neb-ls bin/neb-mv +bin/neb-replicate bin/neb-rm bin/neb-touch Index: /trunk/Nebulous/bin/neb-cull =================================================================== --- /trunk/Nebulous/bin/neb-cull (revision 16183) +++ /trunk/Nebulous/bin/neb-cull (revision 16183) @@ -0,0 +1,134 @@ +#!/usr/bin/env perl + +# Copyright (C) 2007-2008 Joshua Hoblitt +# +# $Id: neb-cull,v 1.1 2008-01-22 22:10:27 jhoblitt Exp $ + +use strict; +use warnings FATAL => qw( all ); + +use vars qw( $VERSION ); +$VERSION = '0.01'; + +use Nebulous::Client; + +use Getopt::Long qw( GetOptions :config auto_help auto_version ); +use Pod::Usage qw( pod2usage ); + +my ($server, $volume); + +$server = $ENV{'NEB_SERVER'} unless $server; + +GetOptions( + 'server|s=s' => \$server, + 'volume|v=s' => \$volume, +) || pod2usage( 2 ); + +my $key = shift; + +pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV; +pod2usage( -msg => "Required options: --server", -exitval => 2 ) + unless $server; +pod2usage( -msg => "missing key operand", exitval => 2 ) + unless defined $key; + +my $neb = Nebulous::Client->new( + proxy => "$server", +); + +die "can't connected to Nebulous Server: $server" + unless defined $neb; + +if (defined $volume) { + $neb->cull($key, $volume) + or die "failed to replicate Nebulous key: $key"; +} else { + $neb->cull($key) + or die "failed to replicate Nebulous key: $key"; +} + +__END__ + +=pod + +=head1 NAME + +neb-cull - remove an instance of an object + +=head1 SYNOPSIS + + neb-cull [--server ] [--volume ] + +=head1 DESCRIPTION + +This program removes an instance of the Nebulous object specified by C<>. It will I remove the last instance of an object (nor the object itself). + +=head1 OPTIONS + +=over 4 + +=item * --server|-s + +URL of the Nebulous server to connect to. + +Optional if the appropriate environment variable is set. + +=item * --volume + +Symbolic name of the volume to create the new instance on. + +Optional. + +=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 --server|-s + +=back + +=head1 CREDITS + +Just me, myself, and I. + +=head1 SUPPORT + +Please contact the author directly via e-mail. + +=head1 AUTHOR + +Joshua Hoblitt + +=head1 COPYRIGHT + +Copyright (C) 2007-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, L, L + +=cut Index: /trunk/Nebulous/bin/neb-replicate =================================================================== --- /trunk/Nebulous/bin/neb-replicate (revision 16183) +++ /trunk/Nebulous/bin/neb-replicate (revision 16183) @@ -0,0 +1,136 @@ +#!/usr/bin/env perl + +# Copyright (C) 2007-2008 Joshua Hoblitt +# +# $Id: neb-replicate,v 1.1 2008-01-22 22:10:27 jhoblitt Exp $ + +use strict; +use warnings FATAL => qw( all ); + +use vars qw( $VERSION ); +$VERSION = '0.01'; + +use Nebulous::Client; + +use Getopt::Long qw( GetOptions :config auto_help auto_version ); +use Pod::Usage qw( pod2usage ); + +my ($server, $volume); + +$server = $ENV{'NEB_SERVER'} unless $server; + +GetOptions( + 'server|s=s' => \$server, + 'volume|v=s' => \$volume, +) || pod2usage( 2 ); + +my $key = shift; + +pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV; +pod2usage( -msg => "Required options: --server", -exitval => 2 ) + unless $server; +pod2usage( -msg => "missing key", exitval => 2 ) + unless defined $key; + +my $neb = Nebulous::Client->new( + proxy => "$server", +); + +die "can't connected to Nebulous Server: $server" + unless defined $neb; + +if (defined $volume) { + $neb->replicate($key, $volume) + or die "failed to replicate Nebulous key: $key"; +} else { + $neb->replicate($key) + or die "failed to replicate Nebulous key: $key"; +} + + +__END__ + +=pod + +=head1 NAME + +neb-replicate - create another instance of an object + +=head1 SYNOPSIS + + neb-replicate [--server ] [--volume ] + +=head1 DESCRIPTION + +This program adds an additonal instance to the Nebulous object with a key of +C<>. + +=head1 OPTIONS + +=over 4 + +=item * --server|-s + +URL of the Nebulous server to connect to. + +Optional if the appropriate environment variable is set. + +=item * --volume + +Symbolic name of the volume to create the new instance on. + +Optional. + +=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 --server|-s + +=back + +=head1 CREDITS + +Just me, myself, and I. + +=head1 SUPPORT + +Please contact the author directly via e-mail. + +=head1 AUTHOR + +Joshua Hoblitt + +=head1 COPYRIGHT + +Copyright (C) 2007-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, L, L + +=cut