# Copyright (c) 2002-2007 bivio Software, Inc.  All rights reserved.
#
# Visit http://www.bivio.biz for more info.
# 
# This library is free software; you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License as
# published by the Free Software Foundation; either version 2.1 of the
# License, or (at your option) any later version.
# 
# This library is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
# 
# You should have received a copy of the GNU Lesser General Public
# License along with this library;  If not, you may get a copy from:
# http://www.opensource.org/licenses/lgpl-license.html
# 
# $Id: TaskId.pm,v 1.12 2010/11/15 22:06:07 nagler Exp $
package Bivio::Agent::t::Mock::TaskId;
use strict;
use Bivio::Base 'Delegate.TaskId';

our($VERSION) = sprintf('%d.%02d', q$Revision: 1.12 $ =~ /\d+/g);

sub get_delegate_info {
    my($proto) = @_;
    # Returns the task declarations.
    return $proto->merge_task_info(qw(base user_auth wiki), [
	[qw(
	    LOGIN
	    500
	    GENERAL
	    ANYBODY
            Action.ClientRedirect->execute_next
            next=SITE_ROOT
	)],
	[
	    'REDIRECT_TEST_1',
	    501,
	    'GENERAL',
	    ['ANYBODY'],
            'Action.ClientRedirect->execute_next',
            {next => 'REDIRECT_TEST_2'},
	],
	[qw(
	    REDIRECT_TEST_2
	    502
	    GENERAL
	    ANY_USER
            FORBIDDEN=SITE_ROOT
	)],
	[qw(
	    REDIRECT_TEST_3
	    503
	    GENERAL
	    ANYBODY
            t1_task=REDIRECT_TEST_1
            t2_task=REDIRECT_TEST_2
	),
	    sub {
		my($req) = @_;
		my($i) = $req->unsafe_get('redirect_test_3') || 0;
		$req->put_durable(redirect_test_3 => ++$i);
		return "t${i}_task";
	    },
	],
	[qw(
	    DEVIANCE_1
	    504
	    GENERAL
	    ANYBODY
	),
	    sub {
		return "no_such_task";
	    },
	],
	[qw(
	    TEST_TRANSIENT
	    505
	    GENERAL
	    TEST_TRANSIENT
            Action.ClientRedirect->execute_next
            next=SITE_ROOT
	)],
	[qw(
	    UNSAFE_GET_REDIRECT
	    506
	    GENERAL
	    ANYBODY
            Action.ClientRedirect->execute_next
            next=SITE_ROOT
	    self_task=UNSAFE_GET_REDIRECT
	    login_task=LOGIN
	)],
	[qw(
	    REDIRECT_TEST_4
	    507
	    GENERAL
	    ANYBODY
	    Bivio::Agent::t::Mock::ReturnRedirect
	)],
	[qw(
	    REDIRECT_TEST_5
	    508
	    GENERAL
	    ANYBODY
	), sub {
	    return {
		method => 'server_redirect',
		task_id => 'SITE_ROOT',
		path_info => 'new_path',
		query => undef,
	    },
	}],
	[qw(
	    REDIRECT_TEST_6
	    509
	    GENERAL
	    ANYBODY
	), sub {
	    return {
		method => 'server_redirect',
		task_id => 'my_task',
		query => undef,
	    };
	},
	   'my_task=REDIRECT_TEST_5',
        ],
	[qw(
	    TEST_ITEMS_1
	    510
	    GENERAL
	    ANYBODY
	), sub {
	    return {method => 'last_item_execute'};
	}, sub {
	    die('should not get here');
	}],
	[qw(
	    TEST_ITEMS_2
	    511
	    GENERAL
	    ANYBODY
	), sub {
	    return {method => 'next_item_execute'};
	}, sub {
	    return 'LOGIN';
	}],
	[qw(
	    TASK_EVENT_1
	    512
	    GENERAL
	    ANYBODY
	), sub {
	    return {'next'};
	}, [
	    next => {
		task_id => 'LOGIN',
		carry_query => 0,
		no_context => 1,
	    },
	], [
	    first_task => {
		task_id => 'TASK_EVENT_1',
		carry_path_info => 1,
	    },
        ]],
    ]);
}

1;