File Coverage

blib/lib/HTTP/DAV/Xythos.pm

Criterion	Covered	Total	%
statement	10	52	19.2
branch	0	28	0.0
condition	0	6	0.0
subroutine	4	6	66.6
pod	0	1	0.0
total	14	93	15.0

package HTTP::DAV::Xythos;
BEGIN {
  $HTTP::DAV::Xythos::VERSION = '1.101180';
}

use strict;
use warnings;

use base qw(HTTP::DAV);

my  @xythos_args = qw(ticket);

sub new
{
    my ($class, %args) = @_;

    # save the original args
    my %orig_args = %args;

    for ( @xythos_args ) {
        # make sure that we have the Xythos args
        die "arg '$_' is required\n" unless defined $orig_args{$_};

        # remove the Xythos args from the call to the HTTP::DAV constructor
        delete $args{$_};
    }

    # create the HTTP::DAV object
    my $self = $class->SUPER::new( %args );

    # login to the Xythos ticket
    if ( $orig_args{ticket} ) {
        unless ( $self->_login_ticket(%orig_args) ) {
            die "failed to login\n";;
        }
    }

    return $self;
}

sub _login_ticket {
    my ($self, %args) = @_;

    my ($xythos_uri, $webui_uri) = $args{ticket} =~ m#^(https?://.*?)(/.*)/#;
    return $self->err( '', "unable to parse ticket\n" ) unless ( $xythos_uri and $webui_uri );

    # add the cookie jar to the user agent
    $self->get_user_agent()->cookie_jar({});

    # access the ticket
    my $req = HTTP::Request->new(GET => $args{ticket});
    my $res = $self->get_user_agent()->request($req);

    # authenticate to ticket
    if ( defined $args{pass} and length $args{pass} ) {

        return $self->err( '', "Unable to connect to ticket URL: ".$res->status_line."\n" ) unless ($res->is_success);

        my ($server2) = $res->content =~ m#($webui_uri/.*?)'#;
        return $self->err( '', "Problem logging in to ticket (invalid ticket url, or invalid password?)\n") unless ( $server2 );

        $server2 = "$xythos_uri$server2";

        $req = HTTP::Request->new(POST => $server2);
        $req->content_type('application/x-www-form-urlencoded');
        $req->content("password=$args{pass}&action=invitationalGroup&subaction=joinGroup");
        $res = $self->get_user_agent()->request($req);

        return $self->err( '', "Unable to login to ticket (wrong password?)\n") unless ( $res->code eq "302" );

        # page redirects
        $req = HTTP::Request->new(GET => $res->headers->{location});
        $res = $self->get_user_agent()->request($req);
        return $self->err( '', "Unable to login to ticket (wrong password?)\n") unless ( $res->code eq "302" );
    }
    else {
        return $self->err( '', "Unable to access ticket (is the ticket URL valid?)\n") unless ( $res->code eq "302" );

        # page redirects
        $req = HTTP::Request->new(GET => $res->headers->{location});
        $res = $self->get_user_agent()->request($req);
        return $self->err( '', "Unable to login to ticket (wrong password?)\n") unless ( $res->code eq "302" );
    }

    # process the final redirect
    $req = HTTP::Request->new(GET => $res->headers->{location});
    $res = $self->get_user_agent()->request($req);
    return $self->err( '', "Unable to redirect: ".$res->status_line."\n") unless ($res->is_success);

    # gather information needed for upload
    my ($posturi) = $res->content =~ m#id="filesForm" action="(.*?)"#;
    return $self->err( '', "unable to upload (is the ticket to a file instead of a directory?)\n") unless ( $posturi );
    ($self->{webdav_url}) = $posturi =~ m#$webui_uri(.*)#;
    return $self->err( '', "failed to parse information needed for upload\n") unless ( $self->{webdav_url} );

    # set the webdav_url variable
    $self->{webdav_url} = $xythos_uri.$self->{webdav_url};

    return 1;
}
1;
__END__