svnno****@sourc*****
svnno****@sourc*****
2007年 7月 20日 (金) 17:40:35 JST
SRADRevision: 164
http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=slashdotjp&view=rev&rev=164
Author: sugi
Date: 2007-07-20 17:40:35 +0900 (Fri, 20 Jul 2007)
Log Message:
-----------
fix regex to pick up related stories and comments, again.
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-20 08:22:58 UTC (rev 163)
+++ slashjp/trunk/plugins/Admin/admin.pl 2007-07-20 08:40:35 UTC (rev 164)
@@ -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{/article\.pl\?[^'"<>\s]*sid=(\d\d\/\d\d\/\d\d\/\d+)};
+ my $match_cid = qr{/comments\.pl\?[^'"<>\s]*cid=(\d+)};
if ($form->{add_related}) {
my @add_related = split('\n', $form->{add_related});