Small fix
This commit is contained in:
parent
b4463e7605
commit
9553bab5c6
@ -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;
|
||||
|
4
II/T.pm
4
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" );
|
||||
|
Loading…
Reference in New Issue
Block a user