поправка для https

Sega-Zero · Sep 28, 2015 · 708b59d · 708b59d
1 parent 3e5c112
commit 708b59d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Source/MainUnit.pas b/Source/MainUnit.pas
@@ -7,7 +7,7 @@
 
 const
   PLUGIN_VER_MAJOR = 1;
-  PLUGIN_VER_MINOR = 3;
+  PLUGIN_VER_MINOR = 4;
   PLUGIN_NAME      : WideString = 'Point.im support';
   PLUGIN_AUTHOR    : WideString = '@hohoho';
   PLUGIN_DESC      : WideString = 'Ya dawg, i heard you like point.im...';
@@ -162,10 +162,10 @@ procedure TQipPlugin.TransformMessage(const AMessage: TQipMsgPlugin; var ChangeM
                                       '[url="http://$2.point.im"]@$2[img]skin://graph,228[/img][/url]', True);
 
   //ïðåîáðàçîâûâàåì âñå ïîñòû â êëèêàáëå
-  ChangeMessageText := ReplaceRegExpr('(?igr)((\s|Comment |Post |Private post |Êîììåíòàðèé |Ïîñò |Ïðèâàòíûé ïîñò )#([\d\w\/]+) ?(is added.\r\n|is sent.\r\n|îòïðàâëåí.\r\n|äîáàâëåí.\r\n|)?(http\:\/\/point.im\/([\d\w#]+))?)', ChangeMessageText,
+  ChangeMessageText := ReplaceRegExpr('(?igr)((\s|Comment |Post |Private post |Êîììåíòàðèé |Ïîñò |Ïðèâàòíûé ïîñò )#([\d\w\/]+) ?(is added.\r\n|is sent.\r\n|îòïðàâëåí.\r\n|äîáàâëåí.\r\n|)?(https?\:\/\/point.im\/([\d\w#]+))?)', ChangeMessageText,
                                       WideFormat('$2[url="plugin:%d"]#$3[/url][url="http://point.im/$3"][img]skin://graph,228[/img][/url] $4', [MyHandle]), True);
   //ôèêñèì óðëû íà êîììåíòû, èáî òàì íå / à #
-  ChangeMessageText := ReplaceRegExpr('(?igr)\[url=\"http\:\/\/point.im\/([\d\w#]+)/(\d+)', ChangeMessageText,
+  ChangeMessageText := ReplaceRegExpr('(?igr)\[url=\"https?\:\/\/point.im\/([\d\w#]+)/(\d+)', ChangeMessageText,
                                       '[url="http://point.im/$1#$2', True);
 
   //ïðåîáðàçóåì âñå òåãè â òåêñòå