Subversion Repositories DevTools

###############################################################################

# Codestriker: Copyright (c) 2001, 2002 David Sitsky.  All rights reserved.

# sits@users.sourceforge.net

#

# This program is free software; you can redistribute it and modify it under

# the terms of the GPL.

# Action object for handling the submission of editing the properties of a

# topic.

package Codestriker::Action::SubmitEditTopicProperties;

use strict;

use Codestriker::Model::Topic;

use Codestriker::Action::ListTopics;

# Attempt to change the topic's state, or to delete it.

sub process($$$) {

    my ($type, $http_input, $http_response) = @_;

    my $query = $http_response->get_query();

    # Check that the appropriate fields have been filled in.

    my $topicid = $http_input->get('topic');

    my $mode = $http_input->get('mode');

    my $version = $http_input->get('version');

    my $topic_title = $http_input->get('topic_title');

    my $topic_description = $http_input->get('topic_description');

    my $reviewers = $http_input->get('reviewers');

    my $email = $http_input->get('email');

    my $author = $http_input->get('author');

    my $cc = $http_input->get('cc');

    my $topic_state = $http_input->get('topic_state');

    my $bug_ids = $http_input->get('bug_ids');

    my $repository_name = $http_input->get('repository');

    my $projectid = $http_input->get('projectid');

    # Check if this action is allowed, and that the state is valid.

    if (! grep /^$topic_state$/, @Codestriker::topic_states) {

	$http_response->error("Topic state $topic_state unrecognised");

    }

    # Retrieve the current state of the topic.

    my $topic = Codestriker::Model::Topic->new($topicid);

    my $feedback = "";

    my $rc = $Codestriker::OK;

    # Make sure the topic being operated on is the most recent version.

    if ($topic->check_for_stale($version)) {

	$feedback .= "Topic properties have been modified by another user.";

    }

    # Check that the topic properties are valid.

    if ($topic_title eq "") {

	$feedback .= "Topic title cannot be empty.\n";

    }

    if ($topic_description eq "") {

	$feedback .= "Topic description cannot be empty.\n";

    }

    if ($Codestriker::antispam_email == 0) {

	if ($author eq "") {

	    $feedback .= "Author cannot be empty.\n";

	}

	if ($reviewers eq "") {

	    $feedback .= "Reviewers cannot be empty.\n";

	}

    } else {

	# Note if anti_spam email is on, don't allow the user to

	# change the $author, $reviewers or $cc properties.

	$author = $topic->{author};

	$reviewers = $topic->{reviewers};

	$cc = $topic->{cc};

    }

    # Make sure the repository value is correct.

    my $repository_url = '';

    if (defined $repository_name && $repository_name ne '') {

	$repository_url = $Codestriker::repository_url_map->{$repository_name};

	if ($repository_url eq "") {

	    $feedback .= "Repository name \"$repository_name\" is unknown.\n" .

		"Update your codestriker.conf file with this entry.\n";

	}

    }

    if ($feedback eq "") {

	# Create a clone of this topic, which will contain the

	# original state of the topic, and the proposed new state,

	# used for the topic listeners below.

	my $topic_orig = Codestriker::Model::Topic->new($topicid);

	my $topic_new = Codestriker::Model::Topic->new($topicid);

	if ($topic_state eq "Deleted") {

	    $rc = $topic->delete();

	    if ($rc == $Codestriker::INVALID_TOPIC) {

		$feedback .= "Topic no longer exists.\n";

	    } elsif ($rc == $Codestriker::OK) {

		$feedback = "Topic has been deleted.";

	    }

	}

	elsif ($topic_state eq "Obsoleted") {

	    # Redirect to the create topic screen with this topic being

	    # the one to obsolete.

	    my $url_builder = Codestriker::Http::UrlBuilder->new($query);

	    my $create_topic_url =

		$url_builder->create_topic_url("$topicid,$version");

	    print $query->redirect(-URI=>$create_topic_url);

	    return;

	}

	else {

	    # Set the fields into the new topic object for checking.

	    $topic_new->{title} = $topic_title;

	    $topic_new->{author} = $author;

	    $topic_new->{reviewers} = $reviewers;

	    $topic_new->{cc} = $cc;

	    $topic_new->{repository} = $repository_url;

	    $topic_new->{bug_ids} = $bug_ids;

	    $topic_new->{project_id} = $projectid;

	    $topic_new->{description} = $topic_description;

	    $topic_new->{topic_state} = $topic_state;

	    # Make sure all the topic listeners are happy with this change

	    # before allowing it.

	    $feedback =

		Codestriker::TopicListeners::Manager::topic_pre_changed($email,

									$topic_orig,

									$topic_new);

	    if ($feedback eq '') {

		# Topic listeners are happy with this change.

		$rc = $topic->update($topic_title, $author, $reviewers, $cc,

				     $repository_url, $bug_ids, $projectid,

				     $topic_description, $topic_state);

		if ($rc == $Codestriker::INVALID_TOPIC) {

		    $feedback .= "Topic no longer exists.\n";

		} elsif ($rc == $Codestriker::STALE_VERSION) {

		    $feedback .=

			"Topic was modified by another user, no changes done.\n";

		} elsif ($rc == $Codestriker::OK) {

		    $feedback .= "Topic properties successfully updated.\n";

		}

	    }

	    else {

		$rc = $Codestriker::LISTENER_ABORT;

	    }

	}

	# Indicate to the topic listeners that the topic has changed.

	if ($rc == $Codestriker::OK) {

	    Codestriker::TopicListeners::Manager::topic_changed($email,

								$topic_orig,

								$topic);

	}

    }

    # Direct control to the appropriate action class, depending on the result

    # of the above operation, and what screens are enabled. The feedback

    # var is not html escaped in the template, so it must be done directly

    # with HTML::Entities::encode if needed.

    $feedback =~ s/\n/<BR>/g;

    $http_input->{feedback} = $feedback;

    if ($rc == $Codestriker::INVALID_TOPIC ||

	($rc == $Codestriker::OK && $topic_state eq "Deleted")) {

	if ($Codestriker::allow_searchlist) {

	    # Go to the topic list screen for just open topics.

	    $http_input->{sstate} = "0";

	    Codestriker::Action::ListTopics->process($http_input,

						     $http_response);

	} else {

	    # Go to the create topic screen.

	    Codestriker::Action::CreateTopic->process($http_input,

						      $http_response);

        }

    } else {

	# Go to the view topic properties screen.

	Codestriker::Action::ViewTopicProperties->process($http_input,

							  $http_response);

    }	

}

1;