From 9553bab5c66b5e5547578236bc7a24ced8e835c4 Mon Sep 17 00:00:00 2001 From: "Difrex(Denis Zheleztsov)" Date: Tue, 17 Jun 2014 16:27:15 +0400 Subject: [PATCH] Small fix --- II/Get.pm | 8 -------- II/T.pm | 4 ++-- 2 files changed, 2 insertions(+), 10 deletions(-) diff --git a/II/Get.pm b/II/Get.pm index a2ffd96..a7cddd4 100644 --- a/II/Get.pm +++ b/II/Get.pm @@ -72,14 +72,6 @@ sub get_echo { } $db->commit(); - # Make new messages url - # my $new_messages_url = "$host$msg_url"; - # my $count = 0; - # while ( $count < @new ) { - # $new_messages_url .= $new[$count]->{hash} . "/"; - # $count++; - # } - # Get messages my @msg_con; my $count = 0; diff --git a/II/T.pm b/II/T.pm index 1ce9d2a..6780343 100644 --- a/II/T.pm +++ b/II/T.pm @@ -95,7 +95,7 @@ sub post { my $post = II::T->pre( $data->{post} ); my $cut; - if ( $data->{subg} =~ /Re:\s(.+)/ ) { + if ( $data->{subg} =~ /Re:\s+(.+)/ ) { $cut = $1; } else { @@ -132,7 +132,7 @@ sub send { my $post = II::T->pre( $data->{post} ); - $data->{subg} =~ s/Re:(.+)/$1/g; + $data->{subg} =~ s/Re:\s+(.+)/$1/g; $p->param( SUBG => $data->{subg} ); $p->param( TIME => "$time" );