Delete not send message

This commit is contained in:
Difrex 2016-04-19 12:21:56 +03:00
parent ac0086cab6
commit f36235d64e
3 changed files with 32 additions and 8 deletions

View File

@ -34,8 +34,7 @@ sub check_hash {
my ($base_hash) = @h;
if ( $hash eq $base_hash ) {
return 1;
}
else {
} else {
return 0;
}
}
@ -84,6 +83,16 @@ sub write_out {
print "Message writed to DB!\n";
}
sub del_out {
my ( $self, $hash ) = @_;
my $dbh = $self->{_dbh};
my $q = "delete from output where hash='$hash' and send=0";
my $sth = $dbh->prepare($q);
$sth->execute();
$sth->finish();
}
sub update_out {
my ( $self, $hash ) = @_;
my $dbh = $self->{_dbh};

View File

@ -194,7 +194,7 @@ sub pre {
$post =~ s/ii:\/\/(\w{20})/<a href="\/send?hash=$1">$1<\/a>/g;
# Users
$post =~ s/.+? \@(\w+)(.?.+)/<a href="\/u?user=$1">$1<\/a>$2/g;
# $post =~ s/.+? \@(\w+)(.?.+)/<a href="\/u?user=$1">$1<\/a>$2/g;
# Not are regexp parsing
my $pre = 0;
@ -218,6 +218,7 @@ sub pre {
$txt =~ s/<font.+>(>.+)<\/font>/$1/g if $pre == 1;
}
close $fh;
$txt =~ s/\n/<br>/g;
return $txt;
}

View File

@ -72,8 +72,7 @@ my $get = sub {
my $GET = II::Get->new($config);
$msgs .= $GET->get_echo();
}
}
else {
} else {
my $GET = II::Get->new($config);
$msgs .= $GET->get_echo();
}
@ -206,6 +205,20 @@ my $search = sub {
return [ 200, [ 'Content-type' => 'text/html' ], [$result], ];
};
# Delete out message
####################
my $del = sub {
my $env = shift;
my $req = Plack::Request->new($env);
my $hash = $req->param('hash');
my $db = II::DB->new();
$db->del_out($hash);
return [301, ['Location' => '/out'], [], ];
};
# Mountpoints
builder {
mount "/static" => Plack::App::File->new( root => './s/' )->to_app;
@ -222,4 +235,5 @@ builder {
mount '/out' => $out;
mount '/push' => $push;
mount '/new' => $new;
mount '/del' => $del;
};