Acme-Globus

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    For detailed documentation of the API, see
    http://dev.globus.org/cli/reference.

CAVEATS

    This code is a work in progress, focusing on my needs at the moment
    rather than covering all the capabilities of the Globus CLI. It is
    therefore very stubtastic.

    This module also relies very much on SSH, and thus the rules of private
    and public keys. Therefore, using it as a shared tool would be
    ill-advised if not impossible.

SYNOPSIS

        my $g = Globus->new($username,$path_to_ssh_key) ;
        $g->endpoint_add_shared( 'institution#endpoint', $directory, $endpoint_name ) ;
        $g->acl_add( $endpoint . '/', 'djacoby@example.com' ) ;
        

METHODS

README  view on Meta::CPAN

  history

  man

  profile

  versions

    profile() returns information about the Globus user, including the
    email address and public key.

    Otherwise stubs

LICENSE

    Copyright (C) 2017, Dave Jacoby.

    This program is free software, you can redistribute it and/or modify it
    under the terms of the Artistic License version 2.0.

lib/Acme/Globus.pm  view on Meta::CPAN

For detailed documentation of the API, 
see L<http://dev.globus.org/cli/reference>.

=head1 CAVEATS

This code is a work in progress, focusing on my needs at the moment 
rather than covering all the capabilities of the Globus CLI. It is
therefore very stubtastic.

This module also relies very much on SSH, and thus the rules of 
private and public keys. Therefore, using it as a shared tool would
be ill-advised if not impossible.

=head1 SYNOPSIS

    my $g = Globus->new($username,$path_to_ssh_key) ;
    $g->endpoint_add_shared( 'institution#endpoint', $directory, $endpoint_name ) ;
    $g->acl_add( $endpoint . '/', 'djacoby@example.com' ) ;
    
=head1 METHODS

lib/Acme/Globus.pm  view on Meta::CPAN

=head3 B<history>

=head3 B<man>         

=head3 B<profile>

=head3 B<versions>

profile() returns information about the Globus user, including the email address 
and public key.

Otherwise stubs

=cut

sub profile {
    my ($self) = @_ ;
    my $command = qq{profile} ;
    my $result
        = _globus_action( $command, $self->{username}, $self->{key_path} ) ;