56 lines
1.4 KiB
Perl
56 lines
1.4 KiB
Perl
package TTXMarkup;
|
|
#
|
|
# Markup language pack/upack routines
|
|
#
|
|
# This module is a part of Trouble Ticket Express package
|
|
# http://www.troubleticketexpress.com
|
|
#
|
|
# COPYRIGHT: 2004-2005, United Web Coders
|
|
# http://www.unitedwebcoders.com
|
|
#
|
|
# $Revision: 156 $
|
|
# $Date: 2006-05-05 03:02:47 -0400 (Fri, 05 May 2006) $
|
|
#
|
|
#
|
|
$TTXMarkup::VERSION='2.22';
|
|
BEGIN {
|
|
$TTXMarkup::REVISION = '$Revision: 156 $';
|
|
if ($TTXMarkup::REVISION =~ /(\d+)/) {
|
|
$TTXMarkup::REVISION = $1;
|
|
}
|
|
};
|
|
use strict;
|
|
|
|
# ========================================================================= html
|
|
|
|
sub html {
|
|
my $buff = shift;
|
|
$buff =~ s/\[(\/?)(u|b|i|code)]/<$1$2>/gi; # [b] [i] [u] [code]
|
|
$buff =~ s/\[\(]/[/g; # [[]
|
|
$buff =~ s/\[url\s+([^]\s]+)\s*]/<a href="$1" target=_blank>/gi;
|
|
$buff =~ s/\[\/url\s*]/<\/a>/gi;
|
|
$buff =~ s/\[(image|img)\s+([^]\s]+)\s*]/<img src="$2">/gi;
|
|
$buff =~ s/\[\/(image|img)\s*]/<\/img>/gi;
|
|
$buff =~ s/ / /g;
|
|
return $buff;
|
|
}
|
|
# ========================================================================= help
|
|
|
|
sub help {
|
|
return undef;
|
|
}
|
|
# ======================================================================== strip
|
|
|
|
sub strip {
|
|
my $buff = shift;
|
|
$buff =~ s/\[(\/?)(u|b|i|code)]//gi; # [b] [i] [u] [code]
|
|
$buff =~ s/\[\(]/[/g; # [[]
|
|
$buff =~ s/\[url\s+([^]\s]+)\s*]/$1 /gi;
|
|
$buff =~ s/\[\/url\s*]/ /gi;
|
|
$buff =~ s/\[(image|img)\s+([^]\s]+)\s*]/$2 /gi;
|
|
$buff =~ s/\[\/(image|img)\s*]//gi;
|
|
return $buff;
|
|
}
|
|
1;
|
|
#
|