X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ND%2FInclude.pm;h=d77121fa39e28c091c1328ed2fe1a75bbcc1f759;hb=d2b25d79058863d3604489e7a36d1c0d1a491b5c;hp=bec7dd5b1e75bb5f3c053b30843c5e344115e309;hpb=b3ea6d7f8b9879d759da59d8e445e35fabf16f79;p=ndwebbie.git
diff --git a/ND/Include.pm b/ND/Include.pm
index bec7dd5..d77121f 100644
--- a/ND/Include.pm
+++ b/ND/Include.pm
@@ -20,12 +20,13 @@
package ND::Include;
use strict;
use warnings FATAL => 'all';
+use CGI qw{:standard};
require Exporter;
our @ISA = qw/Exporter/;
our @EXPORT = qw/isMember isHC isDC isBC isOfficer isScanner isIntel isTech parseMarkup min max listTargets
- alliances intelquery generateClaimXml/;
+ alliances intelquery generateClaimXml markThreadAsRead/;
sub isMember {
return exists $ND::GROUPS{Members} || isTech();
@@ -63,10 +64,22 @@ sub parseMarkup {
my ($text) = @_;
$text =~ s{\n}{\n
}g;
- $text =~ s{\[B\](.*?)\[/B\]}{$1};
+ $text =~ s{\[B\](.*?)\[/B\]}{$1}gi;
return $text;
}
+sub markThreadAsRead {
+ my ($thread) = @_;
+ my $rows = $ND::DBH->do(q{UPDATE forum_thread_visits SET time = now()
+WHERE uid = $1 AND ftid = $2},undef,$ND::UID,$thread);
+ if ($rows == 0){
+ $ND::DBH->do(q{INSERT INTO forum_thread_visits (uid,ftid) VALUES ($1,$2)}
+ ,undef,$ND::UID,$thread) or $ND::ERROR .= p($ND::DBH->errstr);
+ }elsif(not defined $rows){
+ $ND::ERROR .= p($ND::DBH->errstr);
+ }
+}
+
sub min {
my ($x,$y) = @_;
return ($x > $y ? $y : $x);