Added check for double posts of comments

efiabruni · Dec 7, 2013 · 6442650 · 6442650
1 parent ef0a118
commit 6442650
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/pe_admin.pl b/pe_admin.pl
@@ -553,7 +553,17 @@
 	}
 	else
 	{
-			if(length($content) > $config_commentsMaxLenght)#if comment is too long
+		#check if the comment already exists
+		my $check=$title.'"'.$author.'"'.$content;
+		my $old;
+		open (FILE, "<$config_commentsDatabaseFolder/$fileNum.$config_dbFilesExtension");
+		while (<FILE>){$old=$_;}
+		close FILE;
+		if ($old=~ /$check/){
+			print '<br />'.$locale{$lang}->{comtwice};
+			}
+
+		elsif (length($content) > $config_commentsMaxLenght)#if comment is too long
 			{
 				print '<br />'.$locale{$lang}->{toolong1}.$config_commentsMaxLenght.$locale{$lang}->{toolong2}.length($content);
 			}