Tadashi Okoshi
slash****@users*****
2005年 7月 1日 (金) 01:26:42 JST
Index: affelio/apps/Mixi/extlib/WWW/Mixi.pm
diff -u affelio/apps/Mixi/extlib/WWW/Mixi.pm:1.2 affelio/apps/Mixi/extlib/WWW/Mixi.pm:1.3
--- affelio/apps/Mixi/extlib/WWW/Mixi.pm:1.2 Fri Jun 17 12:59:05 2005
+++ affelio/apps/Mixi/extlib/WWW/Mixi.pm Fri Jul 1 01:26:41 2005
@@ -497,7 +497,7 @@
$content = $1 ;
while ($content =~ s/<tr ALIGN=center BGCOLOR=#FFFFFF>(.*?)<tr ALIGN=center BGCOLOR=#FFF4E0>(.*?)<\/tr>//is) {
my ($image_part, $text_part) = ($1, $2);
- my @images = ($image_part =~ /<td WIDTH=20% HEIGHT=100 background=http:\/\/img.mixi.jp\/img\/bg_line.gif>(.*?)<\/td>/gi);
+ my @images = ($image_part =~ /<td WIDTH=20% HEIGHT=100 background=http:\/\/img.mixi.jp\/img\/bg[\w\_\-]*.gif>(.*?)<\/td>/gi);
my @texts = ($text_part =~ /<td>(.*?)<\/td>/gi);
for (my $i = 0; $i < @images or $i < @texts; $i++) {
my $item = {};
@@ -2213,7 +2213,7 @@
require WWW::RobotRules;
@ISA = qw(WWW::RobotRules::InCore);
-$VERSION = sprintf("%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/);
sub allowed {
return 1;