archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

Copy $BannedContent

Browse Source
This commit is contained in:
Alex Schroeder
2007-10-27 19:33:43 +00:00
parent 1231c6df5d
commit 626b7e0f3b
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/multi-url-spam-block.pl
View File

@@ -13,11 +13,13 @@
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
$ModulesDescription .= '<p>$Id: multi-url-spam-block.pl,v 1.1 2007/10/27 18:49:26 as Exp $</p>';
$ModulesDescription .= '<p>$Id: multi-url-spam-block.pl,v 1.2 2007/10/27 19:33:43 as Exp $</p>';
*OldMultiUrlBannedContent = *BannedContent;
*BannedContent = *NewMultiUrlBannedContent;
$BannedContent = $OldMultiUrlBannedContent; # copy scalar
sub NewMultiUrlBannedContent {
my $str = shift;
my @urls = $str =~ /$FullUrlPattern/go;