#!/usr/bin/perl
    use SOAP::Lite;
    use Digest::MD5 qw(md5_hex);
    
    my $MyName = $ARGV[0];
    my $MyUser = $ARGV[1];
    my $MyPass = $ARGV[2];
    
    my $serv = SOAP::Lite
		->proxy('http://'.$MyName.'/ws/')
		;
    
    my $challenge = $serv->GetChallenge;

    if ($challenge->fault) {
	print $challenge->faultstring."\n";
	exit;
    }

    $Pass = md5_hex(md5_hex($challenge->result).md5_hex($MyPass));

    my $sess_id = $serv->Login(
		    SOAP::Data->name('user' => $MyUser),
		    SOAP::Data->name('pass' => $Pass)
		    );

    if ($sess_id->fault) {
	print $sess_id->faultstring."\n";
	exit;
    }
    
    print "Logged in with session id ", $sess_id->result, "\n";

    my $proj = $serv->GetProjectList(
			SOAP::Data->name('session_id' => $sess_id->result)
			);
    
    if ($proj->fault) {
	print $proj->faultstring."\n";
	exit;
    }
    
    $arr = $proj->result;
    print "ID\tProject Name\n";

    foreach my $key (@{$arr}) {
	print $key->{project_id}."\t".$key->{project_name}."\n";
    }
    print "-----------------------------------------------------\n";


    my $file = $serv->GetFileList(
			SOAP::Data->name('session_id' => $sess_id->result)
			);
    
    if ($file->fault) {
	print $file->faultstring."\n";
	exit;
    }
    
    $arr = $file->result;
    print "ID\tprojID\tFile Name\t\tLocation\n";

    foreach my $key (@{$arr}) {
	print $key->{file_id}."\t".$key->{project_id}."\t".$key->{file_name}."\t".$key->{location}."\n";
    }
    print "-----------------------------------------------------\n";


    my $summary = $serv->GetProjectSummary(
			SOAP::Data->name('session_id' => $sess_id->result),
			SOAP::Data->name('project' => 'zz_2533')
			);
    
    if ($summary->fault) {
	print $summary->faultstring."\n";
    }
    
    $arr = $summary->result;
    print "Project Sumamry for zz_2533\n";
    print $arr."\n";
    print "-----------------------------------------------------\n";

#    my $exp = $serv->Export(
#			SOAP::Data->name('session_id' => $sess_id->result),
#			SOAP::Data->name('project' => 'zz_2533')
#			);
    
#    if ($exp->fault) {
#	print $exp->faultstring."\n";
#    }
    
#    $arr = $exp->result;
#    print ":\n";
#    print $arr."\n";
#    print "-----------------------------------------------------\n";


    my $estat = $serv->ExportStatus(
			SOAP::Data->name('session_id' => $sess_id->result),
			SOAP::Data->name('project' => 'zz_2533')
			);
    
    if ($estat->fault) {
	print $estat->faultstring."\n";
    }
    
    $arr = $estat->result;
    print "Export status for zz_2533\n";
    print $arr."\n";
    print "-----------------------------------------------------\n";

    my $estat = $serv->ImportStatus(
			SOAP::Data->name('session_id' => $sess_id->result),
			SOAP::Data->name('project' => 'zz_2533')
			);
    
    if ($estat->fault) {
	print $estat->faultstring."\n";
    }
    
    $arr = $estat->result;
    print "Import status for zz_2533\n";
    print $arr."\n";
    print "-----------------------------------------------------\n";

    my $resp = $serv->Logout(
			SOAP::Data->name('session_id' => $sess_id->result)
			);

    if ($resp->fault) {
	print $resp->faultstring."\n";
	exit;
    }
    
    print "Logged out: ", $resp->result, "\n";