downloadtopic.pm

来自「codestriker is a develop useful tool to 」· PM 代码 · 共 42 行

###############################################################################
# Codestriker: Copyright (c) 2001, 2002 David Sitsky.  All rights reserved.
# [e-mail]
#
# This program is free software; you can redistribute it and modify it under
# the terms of the GPL.

# Action object for downloading the raw text of a topic.

package Codestriker::Action::DownloadTopic;

use strict;

use Codestriker::Model::Topic;

# If the input is valid, display the topic.
sub process($$$) {
    my ($type, $http_input, $http_response) = @_;

    # Retrieve the parameters for this action.
    my $query = $http_response->get_query();
    my $topicid = $http_input->get('topic');
    my $email = $http_input->get('email');

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

    # Fire the topic listener to indicate that the user has viewed the topic.
    Codestriker::TopicListeners::Manager::topic_viewed($email, $topic);

    # Dump the raw topic data as text/plain.
    print $query->header(-type=>'text/plain',
                         -content_type=>'text/plain',
                         -charset=>"UTF-8",
                         -attachment=>"topic${topicid}.txt",
                         -filename=>"topic${topicid}.txt",
                         -pragma=>"Cache",
                         -cache_control=>"Cache");
    print $topic->{document};
}

1;