svnno****@sourc*****
svnno****@sourc*****
2007年 7月 20日 (金) 17:05:24 JST
SRADRevision: 162
http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=slashdotjp&view=rev&rev=162
Author: sugi
Date: 2007-07-20 17:05:24 +0900 (Fri, 20 Jul 2007)
Log Message:
-----------
fix regex to pick up related stories and comments.
Modified Paths:
--------------
slashjp/trunk/plugins/Admin/admin.pl
-------------- next part --------------
Modified: slashjp/trunk/plugins/Admin/admin.pl
===================================================================
--- slashjp/trunk/plugins/Admin/admin.pl 2007-07-04 12:19:04 UTC (rev 161)
+++ slashjp/trunk/plugins/Admin/admin.pl 2007-07-20 08:05:24 UTC (rev 162)
@@ -1513,8 +1513,8 @@
# but in theory, should use regexSid() ...
# my $regexsid = regexSid();
- my $match = qr/(?:$constants->{basedomain})?\S*(\d\d\/\d\d\/\d\d\/\d+)/;
- my $match_cid = qr/(?:$constants->{basedomain})?\S*cid=(\d+)/;
+ my $match = qr/(?:$constants->{basedomain})?[^'"<>\s]*(\d\d\/\d\d\/\d\d\/\d+)/;
+ my $match_cid = qr/(?:$constants->{basedomain})?[^'"<>\s]*cid=(\d+)/;
if ($form->{add_related}) {
my @add_related = split('\n', $form->{add_related});