[Http-webtest-commits] HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/Action WTScript.pm,NONE,1.1 Request.pm,NONE,1.1 List.pm,NONE,1.1 Enable.pm,NONE,1.1

[Ilya M. <m_...@us...>]

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/Action
In directory sc8-pr-cvs1:/tmp/cvs-serv26219/lib/HTTP/WebTest/Recorder/Action

Added Files:
	WTScript.pm Request.pm List.pm Enable.pm 
Log Message:
Move everything in HTTP::WebTest::Recorder namespace


--- NEW FILE: WTScript.pm ---
package HTTP::WebTest::Recorder::Action::WTScript;

# $Id: WTScript.pm,v 1.1 2003/01/25 14:54:52 m_ilya Exp $

use strict;

use base qw(HTTP::WebTest::Recorder::Action);

use CGI;

sub execute {
    my $self = shift;
    my $controller = shift;

    my @tests = @{$controller->recorder->tests};

    my $wtscript = join "\n", map $self->test2wtscript($_), @tests;

    return($self->SUPER::execute($controller),
           wtscript => $wtscript);
}

sub test2wtscript {
    my $self = shift;
    my $test = shift;

    my $request = $test->request;

    my $wtscript = '';

    $wtscript .= "test_name = N/A\n";

    my $short_uri = URI->new($request->uri);
    $short_uri->query(undef);
    $wtscript .= '    url = ' . $short_uri . "\n";
    $wtscript .= '    method = ' . $request->method . "\n"
        if $request->method ne 'GET';

    my $cgi;
    if($request->method eq 'POST') {
        $cgi = CGI->new($request->content);
    } else {
        $cgi = CGI->new($request->uri->query);
    }
    if($cgi->param) {
        $wtscript .= "    params = (\n";
        for my $param ($cgi->param) {
            $wtscript .= '               ' .
                         $param . ' => ' . $cgi->param($param) . "\n";
        }
        $wtscript .= "             )\n";
    }

    $wtscript .= "end_test\n";

    return $wtscript;
}

1;

--- NEW FILE: Request.pm ---
package HTTP::WebTest::Recorder::Action::Request;

# $Id: Request.pm,v 1.1 2003/01/25 14:54:52 m_ilya Exp $

use strict;

use base qw(HTTP::WebTest::Recorder::Action);

sub execute {
    my $self = shift;
    my $controller = shift;

    my $num = $controller->cgi->param('num');
    my $test = $controller->recorder->tests->[$num];

    return($self->SUPER::execute($controller),
           test => $test);
}

1;

--- NEW FILE: List.pm ---
package HTTP::WebTest::Recorder::Action::List;

# $Id: List.pm,v 1.1 2003/01/25 14:54:52 m_ilya Exp $

use strict;

use base qw(HTTP::WebTest::Recorder::Action);

sub execute {
    my $self = shift;
    my $controller = shift;

    return($self->SUPER::execute($controller),
           tests => $controller->recorder->tests);
}

1;

--- NEW FILE: Enable.pm ---
package HTTP::WebTest::Recorder::Action::Enable;

# $Id: Enable.pm,v 1.1 2003/01/25 14:54:52 m_ilya Exp $

use strict;

use base qw(HTTP::WebTest::Recorder::Action);

sub execute {
    my $self = shift;
    my $controller = shift;

    my $enable = $controller->cgi->param('enable');
    $controller->recorder->is_recording($enable);

    $controller->redirect('list');
}

1;