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

Small fix

Browse Source
This commit is contained in:
Difrex(Denis Zheleztsov) 2014-06-17 16:27:15 +04:00
parent b4463e7605
commit 9553bab5c6
2 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
II/Get.pm
View File

@ -72,14 +72,6 @@ sub get_echo {
} }
$db->commit(); $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 # Get messages
my @msg_con; my @msg_con;
my $count = 0; my $count = 0;

4
II/T.pm
View File

@ -95,7 +95,7 @@ sub post {
my $post = II::T->pre( $data->{post} ); my $post = II::T->pre( $data->{post} );
my $cut; my $cut;
if ( $data->{subg} =~ /Re:\s(.+)/ ) { if ( $data->{subg} =~ /Re:\s+(.+)/ ) {
$cut = $1; $cut = $1;
} }
else { else {
@ -132,7 +132,7 @@ sub send {
my $post = II::T->pre( $data->{post} ); 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( SUBG => $data->{subg} );
$p->param( TIME => "$time" ); $p->param( TIME => "$time" );