IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 4440 for trunk/Nebulous/lib


Ignore:
Timestamp:
Jun 29, 2005, 4:35:06 PM (21 years ago)
Author:
jhoblitt
Message:

rename PS::IPP::IData -> Nebulous

Location:
trunk/Nebulous/lib/Nebulous
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • trunk/Nebulous/lib/Nebulous/Client.pm

    r2919 r4440  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: Client.pm,v 1.14 2005-01-06 04:11:02 jhoblitt Exp $
    4 
    5 package PS::IPP::IData::Client;
     3# $Id: Client.pm,v 1.15 2005-06-30 02:35:06 jhoblitt Exp $
     4
     5package Nebulous::Client;
    66
    77use strict;
    … …  
    1212use File::Copy qw();
    1313use Log::Log4perl qw(get_logger :levels);
    14 use PS::IPP::IData::Client::Log;
    15 use PS::IPP::IData::Util qw( :standard );
     14use Nebulous::Client::Log;
     15use Nebulous::Util qw( :standard );
    1616use Params::Validate qw( validate validate_pos SCALAR );
    1717#use SOAP::Lite +trace => [qw( debug )];
    … …  
    2323use constant LOCK_DEFAULT   => 10;    # default to a 10s lock timeout
    2424
    25 my $log = get_logger( "PS::IPP::IData::Client" );
     25my $log = get_logger( "Nebulous::Client" );
    2626$log->level( $WARN );
    2727
    … …  
    7474    my $lite = SOAP::Lite->new(
    7575            proxy => $args{ 'proxy' },
    76             uri   => $args{ 'uri' } || "urn:PS/IPP/IData/Server/SOAP",
     76            uri   => $args{ 'uri' } || "urn:Nebulous/Server/SOAP",
    7777    );
    7878

  • trunk/Nebulous/lib/Nebulous/Client.pod

    r2912 r4440  
    33=head1 NAME
    44
    5 PS::IPP::IData::Client - iData client component
     5Nebulous::Client - Nebulous client component
    66
    77=head1 SYNOPSIS
    88
    9     use PS::IPP::IData::Client;
     9    use Nebulous::Client;
    1010
    11     my $idata = PS::IPP::IData::Client->new(
    12         proxy   => 'http://localhost:80/idata'
     11    my $neb = Nebulous::Client->new(
     12        proxy   => 'http://localhost:80/nebulous'
    1313    );
    1414
    15     my $fh = $idata->create( "key", 0, "node01", "example" );
    16     $idata->replicate( "key", "node01" );
    17     $idata->cull( "key" );
    18     $idata->lock( "key", 'write' );
    19     $idata->unlock( "key", 'write' );
    20     my $uris = $idata->find_instances( "key", "node01" );
    21     my $path = $idata->find( "key" );
    22     my $fh = $idata->open( "key", 'read' );
     15    my $fh = $neb->create( "key", 0, "node01", "example" );
     16    $neb->replicate( "key", "node01" );
     17    $neb->cull( "key" );
     18    $neb->lock( "key", 'write' );
     19    $neb->unlock( "key", 'write' );
     20    my $uris = $neb->find_instances( "key", "node01" );
     21    my $path = $neb->find( "key" );
     22    my $fh = $neb->open( "key", 'read' );
    2323    $data->delete( "key" );
    2424    $data->copy( "key", "new_key" );
    2525    $data->move( "key", "new_key" );
    2626    $data->delete_instance( $uri );
    27     my $stats = $idata->stat( "key" );
     27    my $stats = $neb->stat( "key" );
    2828
    2929=head1 DESCRIPTION
    3030
    31 This component provides client access to the iData storage system.  It provides
    32 an interface for files to be added, managed, and removed from the system.
     31This component provides client access to the Nebulous storage system.  It
     32provides an interface for files to be added, managed, and removed from the
     33system.
    3334
    3435=head1 USAGE
    … …  
    3940I<symbols>.
    4041
    41     use PS::IPP::IData::Client trace => qw( debug );
     42    use Nebulous::Client trace => qw( debug );
    4243
    4344The hash is allowed to have a single key, C<trace>.  This controls the level of
    … …  
    5758Accepts a mandatory hash.
    5859
    59     my $idata = PS::IPP::IData::Client->new(
    60         proxy   => 'http://localhost:80/idata'
    61         uri     => 'urn:PS/IPP/IData/Server',
     60    my $neb = Nebulous::Client->new(
     61        proxy   => 'http://localhost:80/nebulous'
     62        uri     => 'urn:Nebulous/Server',
    6263    );
    6364
    … …  
    6667=item * proxy
    6768
    68 The URL of the iData server to connect to.
     69The URL of the Nebulous server to connect to.
    6970
    7071=item * uri
    … …  
    119120=item MogileFS
    120121
    121 The iData system is similar in function to MogileFS but very different in
     122The Nebulous system is similar in function to MogileFS but very different in
    122123implementation and operation.
    123124
    … …  
    160161=head1 SEE ALSO
    161162
    162 L<PS::IPP::IData::Server>
     163L<Nebulous::Server>
    163164
    164165=cut

  • trunk/Nebulous/lib/Nebulous/Client/HTTP.pm

    r2785 r4440  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: HTTP.pm,v 1.1.1.1 2004-12-22 02:16:24 jhoblitt Exp $
     3# $Id: HTTP.pm,v 1.2 2005-06-30 02:35:06 jhoblitt Exp $
    44
    5 package PS::IPP::IData::Client::HTTP;
     5package Nebulous::Client::HTTP;
    66
    77use strict;

  • trunk/Nebulous/lib/Nebulous/Client/Log.pm

    r2898 r4440  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: Log.pm,v 1.2 2005-01-05 02:44:54 jhoblitt Exp $
     3# $Id: Log.pm,v 1.3 2005-06-30 02:35:06 jhoblitt Exp $
    44
    5 package PS::IPP::IData::Client::Log;
     5package Nebulous::Client::Log;
    66
    77use strict;
    … …  
    1313
    1414my $conf = q(
    15     log4perl.category.PS.IPP.IData.Client = DEBUG, Screen
    16 #log4perl.category.PS.IPP.IData.Client = DEBUG, CLIENTLOGFILE, Screen
     15    log4perl.category.Nebulous.Client = DEBUG, Screen
     16#log4perl.category.Nebulous.Client = DEBUG, CLIENTLOGFILE, Screen
    1717
    1818    log4perl.appender.Screen        = Log::Log4perl::Appender::Screen
    … …  
    2222
    2323    log4perl.appender.CLIENTLOGFILE           = Log::Log4perl::Appender::File
    24     log4perl.appender.CLIENTLOGFILE.filename  = /tmp/idata_client.log
     24    log4perl.appender.CLIENTLOGFILE.filename  = /tmp/nebulous_client.log
    2525    log4perl.appender.CLIENTLOGFILE.mode      = append
    2626    log4perl.appender.CLIENTLOGFILE.layout    = Log::Log4perl::Layout::PatternLayout

  • trunk/Nebulous/lib/Nebulous/Server.pm

    r2905 r4440  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: Server.pm,v 1.8 2005-01-05 04:31:59 jhoblitt Exp $
    4 
    5 package PS::IPP::IData::Server;
     3# $Id: Server.pm,v 1.9 2005-06-30 02:35:06 jhoblitt Exp $
     4
     5package Nebulous::Server;
    66
    77use strict;
    … …  
    1111
    1212use DBI;
    13 use PS::IPP::IData::Util qw( :standard );
    14 use PS::IPP::IData::Server::Log;
    15 use PS::IPP::IData::Server::SQL;
     13use Nebulous::Util qw( :standard );
     14use Nebulous::Server::Log;
     15use Nebulous::Server::SQL;
    1616use Log::Log4perl;
    1717use Params::Validate qw( validate_pos SCALAR );
    … …  
    4040    );
    4141
    42     $log = Log::Log4perl::get_logger( "PS::IPP::IData::Server" );
    43     $sql = PS::IPP::IData::Server::SQL->new;
     42    $log = Log::Log4perl::get_logger( "Nebulous::Server" );
     43    $sql = Nebulous::Server::SQL->new;
    4444
    4545    $log->debug( "entered - @_" );

  • trunk/Nebulous/lib/Nebulous/Server.pod

    r2863 r4440  
    33=head1 NAME
    44
    5 PS::IPP::IData::Server - iData server component
     5Nebulous::Server - Nebulous server component
    66
    77=head1 SYNOPSIS
    88
    9     use PS::IPP::IData::Server;
     9    use Nebulous::Server;
    1010
    11     PS::IPP::IData::Server->setup( $dsn, $username, $passwd );
    12     PS::IPP::IData::Server->create_object( $key, $class, $volume, $comment );
    13     PS::IPP::IData::Server->replicate_object( $key, $volume );
    14     PS::IPP::IData::Server->lock_object( $key, $type );
    15     PS::IPP::IData::Server->unlock_object( $key, $type );
    16     PS::IPP::IData::Server->find_instance( $key, $volume );
    17     PS::IPP::IData::Server->delete_instance( $uri );
    18     PS::IPP::IData::Server->stat_object( $key );
     11    Nebulous::Server->setup( $dsn, $username, $passwd );
     12    Nebulous::Server->create_object( $key, $class, $volume, $comment );
     13    Nebulous::Server->replicate_object( $key, $volume );
     14    Nebulous::Server->lock_object( $key, $type );
     15    Nebulous::Server->unlock_object( $key, $type );
     16    Nebulous::Server->find_instance( $key, $volume );
     17    Nebulous::Server->delete_instance( $uri );
     18    Nebulous::Server->stat_object( $key );
    1919
    2020=head1 DESCRIPTION
    2121
    22 This is the server side component of the iData system.  It is primarily a
     22This is the server side component of the Nebulous system.  It is primarily a
    2323middle-ware abstraction of an SQL database.
    2424
    … …  
    120120=head1 SEE ALSO
    121121
    122 L<PS::IPP::IData::Client>
     122L<Nebulous::Client>
    123123
    124124=cut

  • trunk/Nebulous/lib/Nebulous/Server/Apache.pm

    r2918 r4440  
    33# $Id
    44
    5 package PS::IPP::IData::Server::Apache;
     5package Nebulous::Server::Apache;
    66
    77use strict;
    … …  
    1010our $VERSION = 0.01;
    1111
    12 use PS::IPP::IData::Server::SOAP;
     12use Nebulous::Server::SOAP;
    1313use SOAP::Transport::HTTP;
    1414
    1515my $server = SOAP::Transport::HTTP::Apache
    16     ->dispatch_to( 'PS::IPP::IData::Server::SOAP' )
     16    ->dispatch_to( 'Nebulous::Server::SOAP' )
    1717    ->options({ compress_threshold => 10 * 1024 });
    1818

  • trunk/Nebulous/lib/Nebulous/Server/Log.pm

    r2898 r4440  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: Log.pm,v 1.2 2005-01-05 02:44:54 jhoblitt Exp $
     3# $Id: Log.pm,v 1.3 2005-06-30 02:35:06 jhoblitt Exp $
    44
    5 package PS::IPP::IData::Server::Log;
     5package Nebulous::Server::Log;
    66
    77use strict;
    … …  
    1313                                                                                                                                         
    1414my $conf = q(
    15     log4perl.category.PS.IPP.IData.Server = DEBUG, SERVERLOGFILE
     15    log4perl.category.Nebulous.Server = DEBUG, SERVERLOGFILE
    1616
    1717    log4perl.appender.SERVERLOGFILE           = Log::Log4perl::Appender::File
    18     log4perl.appender.SERVERLOGFILE.filename  = /tmp/idata_server.log
     18    log4perl.appender.SERVERLOGFILE.filename  = /tmp/nebulous_server.log
    1919    log4perl.appender.SERVERLOGFILE.mode      = append
    2020    log4perl.appender.SERVERLOGFILE.layout    = Log::Log4perl::Layout::PatternLayout

  • trunk/Nebulous/lib/Nebulous/Server/SOAP.pm

    r2917 r4440  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: SOAP.pm,v 1.1 2005-01-06 03:56:43 jhoblitt Exp $
     3# $Id: SOAP.pm,v 1.2 2005-06-30 02:35:06 jhoblitt Exp $
    44
    5 package PS::IPP::IData::Server::SOAP;
     5package Nebulous::Server::SOAP;
    66
    77use strict;
    … …  
    1010our $VERSION = '0.01';
    1111
    12 use PS::IPP::IData::Server;
     12use Nebulous::Server;
    1313use SOAP::Lite;
    1414import SOAP::Data 'name';
    … …  
    2222    return undef if $method eq 'DESTROY';
    2323
    24     return name( result => PS::IPP::IData::Server->$method( @_ ) );
     24    return name( result => Nebulous::Server->$method( @_ ) );
    2525}
    2626

  • trunk/Nebulous/lib/Nebulous/Server/SQL.pm

    r3016 r4440  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: SQL.pm,v 1.4 2005-01-15 04:02:12 jhoblitt Exp $
     3# $Id: SQL.pm,v 1.5 2005-06-30 02:35:06 jhoblitt Exp $
    44
    5 package PS::IPP::IData::Server::SQL;
     5package Nebulous::Server::SQL;
    66
    77use strict;

  • trunk/Nebulous/lib/Nebulous/Util.pm

    r2898 r4440  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: Util.pm,v 1.2 2005-01-05 02:44:54 jhoblitt Exp $
     3# $Id: Util.pm,v 1.3 2005-06-30 02:35:06 jhoblitt Exp $
    44
    5 package PS::IPP::IData::Util;
     5package Nebulous::Util;
    66
    77use strict;
Note: See TracChangeset for help on using the changeset viewer.