From 81a6c5203299168384995e63a8cb1594abaf6399 Mon Sep 17 00:00:00 2001
From: "Difrex(Denis Zheleztsov)" <dz@etegro.com>
Date: Thu, 7 Aug 2014 16:06:03 +0400
Subject: [PATCH] Initial uri parsing support

---
 II/T.pm | 36 ++++++++++++++++++++++++++++++++----
 1 file changed, 32 insertions(+), 4 deletions(-)

diff --git a/II/T.pm b/II/T.pm
index 895f284..47e47bf 100644
--- a/II/T.pm
+++ b/II/T.pm
@@ -167,13 +167,40 @@ sub pre {
     $post =~ s/&gt;(.+)/<font color='green'>>$1<\/font>/g;
     $post =~ s/--/&mdash;/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;
+        }
+    }
+    
     $post =~ s/^$/<br>\n/g;
     $post =~ s/(.?)\n/$1<br>\n/g;
     $post =~ s/\*(.+)/<li>$1<\/li>\n/g;
-    $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;
+    
+
+    # 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;
@@ -192,6 +219,7 @@ sub pre {
         $txt .= $line;
     }
     close $fh;
+    
     return $txt;
 }