From 5432a7011fcb4386b56fc044a54ec4c4dd2da0e5 Mon Sep 17 00:00:00 2001 From: fukachan Date: Wed, 31 Mar 2004 12:53:50 +0000 Subject: Mail::ThreadTrack is obsoleted. remove related codes. --- fml/lib/Mail/ThreadTrack/Print/HTML.pm | 291 --------------------------------- 1 file changed, 291 deletions(-) delete mode 100644 fml/lib/Mail/ThreadTrack/Print/HTML.pm (limited to 'fml/lib/Mail/ThreadTrack/Print/HTML.pm') diff --git a/fml/lib/Mail/ThreadTrack/Print/HTML.pm b/fml/lib/Mail/ThreadTrack/Print/HTML.pm deleted file mode 100644 index 220c6e09..00000000 --- a/fml/lib/Mail/ThreadTrack/Print/HTML.pm +++ /dev/null @@ -1,291 +0,0 @@ -#-*- perl -*- -# -# Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi -# All rights reserved. This program is free software; you can -# redistribute it and/or modify it under the same terms as Perl itself. -# -# $FML: HTML.pm,v 1.17 2003/02/11 11:22:56 fukachan Exp $ -# - -package Mail::ThreadTrack::Print::HTML; - -use strict; -use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); -use Carp; - - -=head1 NAME - -Mail::ThreadTrack::Print::HTML - print thread summary as HTML - -=head1 SYNOPSIS - -See C for usage of this subclass. - -=head1 DESCRIPTION - -See C for usage of this subclass. - -=head1 METHODS - -=head2 show_articles_in_thread(thread_id) - -show articles as HTML in this thread. - -=cut - - -use CGI qw/:standard/; -use Mail::ThreadTrack::Print::Utils qw(decode_mime_string STR2EUC); - - -# Descriptions: show articles as HTML in this thread -# Arguments: OBJ($self) STR($thread_id) -# Side Effects: none -# Return Value: none -sub show_articles_in_thread -{ - my ($self, $thread_id) = @_; - my $mode = $self->get_mode || 'text'; - my $config = $self->{ _config }; - my $spool_dir = $config->{ spool_dir }; - - my $articles = $self->{ _hash_table }->{ _articles }->{ $thread_id }; - - # XXX-TODO: who validates $thread_id ? - print ""; - print "show contents related with thread_id=$thread_id\n"; - print ""; - print "
"; - print "
\n";
-
-    if (defined($articles) && defined($spool_dir) && -d $spool_dir) {
-	use FileHandle;
-
-	my $s = '';
-	for my $article (split(/\s+/, $articles)) {
-	    my $file = $self->filepath({
-		base_dir => $spool_dir,
-		id       => $article,
-	    });
-
-	    # XXX-TODO: care for non Japanese char(s).
-	    # XXX-TODO: to avoid CSS bug, convert all special char(s).
-	    # XXX-TODO: create method safe_html_string() in Mail::Message ?
-	    if (-f $file) {
-		my $fh = new FileHandle $file;
-
-		if (defined $fh) {
-		    my $buf;
-
-		    while (defined($buf = $fh->getline())) {
-			# ignore header part.
-			next if 1 .. $buf =~ /^$/o;
-
-			$s = STR2EUC($buf);
-			$s =~ s/&/&/g;
-			$s =~ s//>/g;
-			$s =~ s/\"/"/g;
-			print $s;
-		    }
-		    $fh->close;
-		}
-	    }
-	}
-    }
-
-    print "
"; -} - - -# Descriptions: show guide -# Arguments: OBJ($self) HASH_REF($args) -# Side Effects: none -# Return Value: none -sub __start_thread_summary -{ - my ($self, $args) = @_; - my $config = $self->{ _config }; - my $ml_name = $config->{ ml_name }; - my $fd = $self->{ _fd } || \*STDOUT; - my $action = $curproc->safe_cgi_action_name(); - my $target = '_top'; - - # statistics - if (defined $self->{ _ticket_id_stat }) { - my $stat = $self->{ _ticket_id_stat }; - for my $key ('open', 'analyzed', 'closed') { - print $fd "$key: "; - print $fd defined $stat->{ $key } ? $stat->{ $key } : 0; - print $fd ", "; - } - print $fd br, "\n"; - } - - # XXX-TODO: validate $action ? - print $fd start_form(-action=>$action, -target=>$target); - print $fd submit(-name => 'submit'); - print $fd reset(-name => 'reset'); - print $fd "\n"; - - # XXX-TODO: validate $ml_name ? - print $fd hidden(-name => 'ml_name', - -default => [ $ml_name ], - ), "\n"; - - param('action', 'change_status'); # we need to override - print $fd hidden(-name => 'action', - -default => [ 'change_status ' ], - ), "\n"; - - print $fd "\n"; - print $fd "
id\n"; - print $fd "change\n"; - print $fd "summary\n"; - print $fd "age\n"; - print $fd "status\n"; -} - - -# Descriptions: finalize thread list. -# close TABLE tag. -# Arguments: OBJ($self) HASH_REF($args) -# Side Effects: none -# Return Value: none -sub __end_thread_summary -{ - my ($self, $args) = @_; - my $fd = $self->{ _fd } || \*STDOUT; - - print $fd "
\n"; - - print submit(-name => 'submit'); - print reset(-name => 'reset'); - print $fd end_form; -} - - -# Descriptions: This shows summary on C<$thread_id> in HTML language. -# It is used in C. -# Arguments: OBJ($self) HASH_REF($optargs) -# Side Effects: none -# Return Value: none -sub __print_thread_summary -{ - my ($self, $optargs) = @_; - my $config = $self->{ _config }; - my $ml_name = $config->{ ml_name }; - my $spool_dir = $config->{ spool_dir }; - my $action = $curproc->safe_cgi_action_name(); - my $target = $config->{ thread_cgi_target_window } || '_top'; - - my $date = $optargs->{ date }; - my $age = $optargs->{ age }; - my $status = $optargs->{ status }; - my $tid = $optargs->{ thread_id }; - my $articles = $optargs->{ articles }; - my $aid = (split(/\s+/, $articles))[0]; - - # do nothing if the $thread_id is unknown. - return unless $tid; - - # XXX-TODO: validate $action, $ml_name, $aid ... - #
..> - my $xtid = CGI::escape($tid); - $action = "${action}?ml_name=${ml_name}&article_id=$aid"; - - $self->{ _table_count } = 1 unless defined $self->{ _table_count }; - if (($self->{ _table_count }++ % 5) == 0) { - print "\n\n"; - print submit(-name => 'submit'); - print reset(-name => 'reset'); - } - - print "\n"; - - # XXX-TODO: validate $msg_base_url ? - # show articles in this thread id - print ""; - if (defined $config->{ msg_base_url }) { - my $msg_base_url = $config->{ msg_base_url }; - my $url = "$msg_base_url/msg$aid.html"; - print "\n"; - print $tid; - print "\n\n"; - } - else { - # XXX-TODO: validate $action ? - print "\n"; - print $tid; - print "\n\n"; - } - - # action - print ""; - my $name = "change_status.$tid"; - my $values = ["open", "analyzed", "closed"]; - my $default = $status; - print radio_group(-name => $name, - -values => $values, - -default => $default, - -linebreak => 'true', - ); - - # message (article) brief summary - print ""; - if (defined $articles) { - $aid = (split(/\s+/, $articles))[0]; - my $f = $self->filepath({ - base_dir => $spool_dir, - id => $aid, - }); - if (-f $f) { - # XXX-TODO: care for non Japanese. - my $buf = $self->message_summary($f); - $self->print( STR2EUC($buf) ); - } - } - - # addional information: age, status - print "$age\n"; - print "$status\n"; - - print "\n\n"; -} - - -# Descriptions: dummy, defined for symmetry -# Arguments: none -# Side Effects: none -# Return Value: none -sub __print_message_summary -{ - ; -} - - -=head1 CODING STYLE - -See C on fml coding style guide. - -=head1 AUTHOR - -Ken'ichi Fukamachi - -=head1 COPYRIGHT - -Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi - -All rights reserved. This program is free software; you can -redistribute it and/or modify it under the same terms as Perl itself. - -=head1 HISTORY - -Mail::ThreadTrack::Print::HTML first appeared in fml8 mailing list driver package. -See C for more details. - -=cut - - -1; -- cgit v1.2.1