WAIT/Format/HTML.pm

#                              -*- Mode: Perl -*- 
# HTML.pm -- 
# ITIID           : $ITI$ $Header $__Header$
# Author          : Ulrich Pfeifer
# Created On      : Wed Sep 18 19:24:55 1996
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Sun Nov 22 18:44:45 1998
# Language        : CPerl
# Update Count    : 14
# Status          : Unknown, Use with caution!
# 
# Copyright (c) 1996-1997, Ulrich Pfeifer
# 

package WAIT::Format::HTML;
require WAIT::Format::Base;
use strict;
use vars qw(@ISA);

@ISA = qw(WAIT::Format::Base);

my %DEFAULT = (
               bold_s   => '<B>',
               bold_e   => '</B>',
               query_s  => '<B><FONT COLOR="#ff0000">', # SIZE="+2"
               query_e  => '</FONT></B>',
               italic_s => '<I>',
               italic_e => '</I>',
              );
sub new {
  my $type = shift;
  my %parm = @_;
  my %self = %DEFAULT;
  
  for (keys %DEFAULT) {
    $self{$_} = $parm{$_} if exists $parm{$_};
  }
  bless \%self, ref($type) || $type;
}

sub bold {
  my $self = shift;
  $self->{bold_s} . $_[0] . $self->{bold_e};
}

sub italic {
  my $self = shift;
  $self->{italic_s} . $_[0] . $self->{italic_e};
}

sub query {
  my $self = shift;
  $self->{query_s} . $_[0] . $self->{query_e};
}

use HTML::Entities;

sub text {
  encode_entities($_[1]);
}

sub as_string {
  my $self   = shift;

  "<PRE>\n" . $self->SUPER::as_string(@_) . "\n</PRE>\n";
}

1;
1	dpavlin	106	# -- Mode: Perl --
2			# HTML.pm --
3			# ITIID : $ITI$ $Header $__Header$
4			# Author : Ulrich Pfeifer
5			# Created On : Wed Sep 18 19:24:55 1996
6			# Last Modified By: Ulrich Pfeifer
7			# Last Modified On: Sun Nov 22 18:44:45 1998
8			# Language : CPerl
9			# Update Count : 14
10			# Status : Unknown, Use with caution!
11			#
12			# Copyright (c) 1996-1997, Ulrich Pfeifer
13			#
14
15			package WAIT::Format::HTML;
16			require WAIT::Format::Base;
17			use strict;
18			use vars qw(@ISA);
19
20			@ISA = qw(WAIT::Format::Base);
21
22			my %DEFAULT = (
23			bold_s => '<B>',
24			bold_e => '</B>',
25			query_s => '<B><FONT COLOR="#ff0000">', # SIZE="+2"
26			query_e => '</FONT></B>',
27			italic_s => '<I>',
28			italic_e => '</I>',
29			);
30			sub new {
31			my $type = shift;
32			my %parm = @_;
33			my %self = %DEFAULT;
34
35			for (keys %DEFAULT) {
36			$self{$_} = $parm{$_} if exists $parm{$_};
37			}
38			bless \%self, ref($type) \|\| $type;
39			}
40
41			sub bold {
42			my $self = shift;
43			$self->{bold_s} . $_[0] . $self->{bold_e};
44			}
45
46			sub italic {
47			my $self = shift;
48			$self->{italic_s} . $_[0] . $self->{italic_e};
49			}
50
51			sub query {
52			my $self = shift;
53			$self->{query_s} . $_[0] . $self->{query_e};
54			}
55
56			use HTML::Entities;
57
58			sub text {
59			encode_entities($_[1]);
60			}
61
62			sub as_string {
63			my $self = shift;
64
65			"<PRE>\n" . $self->SUPER::as_string(@_) . "\n</PRE>\n";
66			}
67
68			1;