Difrex/iiplc
Difrex/iiplc
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

img tag

Browse Source
This commit is contained in:
Difrex(Denis Zheleztsov) 2014-08-07 16:27:53 +04:00
parent 81a6c52032
commit 4c46f821f0
1 changed files with 7 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
II/T.pm
View File

@ -168,39 +168,17 @@ sub pre {
$post =~ s/--/—/g;
$post =~ s/.?\*(.+)\*.?/&nbsp<b>$1<\/b>&nbsp/g;
# URI's parsing
if ( $post =~ m!^(([^:/?#]+):)?(//([^/?#]*))?([^?#]*)(\?([^#]*))?(#(.*))?! ) {
print "\n2:=$2=\n";
# Images
if ( $9 !=~ m/.+\.(jpg|png|gif)/ ) {
$post
=~ s/(https?:\/\/.+)/<a href="$1">$1<\/a>/g;
}
elsif ( $9 =~ m/.+\.((jpg|png|gif)|(JPG|PNG|GIF))/ ) {
$post
=~ s/(https?:\/\/.+\.(jpg|png|gif))/<a href="$1"><img src="$1" width="15%" height="15%" \/><\/a>/g;
$post
=~ s/(https?:\/\/.+\.(JPG|PNG|GIF))/<a href="$1"><img src="$1" width="15%" height="15%" \/><\/a>/g;
}
elsif ( $2 eq 'ii' ) {
# ii uri
$post =~ s/ii:\/\/(.+\.\d{1,4}),?.+/<a href="\/e?echo=$1&view=thread">$1<\/a>/g;
$post =~ s/ii:\/\/(.{20})/<a href="\/send?hash=$1">$1<\/a>/g;
}
}
# Images
$post =~ s/\[img (.+)\]/<a href="$1"><img src="$1" width="15%" height="15%" \/><\/a>/g;
# ii uri
$post =~ s/ii:\/\/(.+\.\d{1,2,3,4}),?.+/<a href="\/e?echo=$1&view=thread">$1<\/a>/g;
$post =~ s/ii:\/\/(.{20})/<a href="\/send?hash=$1">$1<\/a>/g;
$post =~ s/^$/<br>\n/g;
$post =~ s/(.?)\n/$1<br>\n/g;
$post =~ s/\*(.+)/<li>$1<\/li>\n/g;
# Url
# use Regexp::Common "URI";
# $post =~ s( ($RE{URI}{HTTP}) )
# (<a href="$1">$1</a>)gx;
# Not are regexp parsing
my $pre = 0;
my $txt;
@ -223,6 +201,7 @@ sub pre {
return $txt;
}
# Footer
sub foot {
my ($self) = @_;