git-svn-id: svn://euphorik.ch/pompage@48 02bbb61a-6d21-0410-aba0-cb053bdfd66a
authorpifou <pifou@02bbb61a-6d21-0410-aba0-cb053bdfd66a>
Thu, 5 Jul 2007 21:23:08 +0000 (21:23 +0000)
committerpifou <pifou@02bbb61a-6d21-0410-aba0-cb053bdfd66a>
Thu, 5 Jul 2007 21:23:08 +0000 (21:23 +0000)
src/modules/allocine.rb
src/test.rb

index 01764f8..7f232f2 100644 (file)
@@ -91,6 +91,7 @@ class Allocine  < Basemodule
       /<img src="(.*?)" border="0" alt="" class="affichette" \/>/ =~ html\r
       unless $1.nil?\r
          @threadImage = Thread::start($1){|imageUrl|\r
+            nbRetry = 0\r
             begin\r
                imageUrl = URI.parse(imageUrl)               \r
                connexionImage = Net::HTTP::new(imageUrl.host).start\r
@@ -102,8 +103,8 @@ class Allocine  < Basemodule
             rescue Exception => e\r
                puts e.message\r
                puts e.backtrace    \r
-               puts "[!] Erreur lors du chargement de l'image #{imageUrl}, retry.."        \r
-               retry\r
+               puts "[!] Erreur lors du chargement de l'image '#{imageUrl}', retry.."        \r
+               retry if (nbRetry += 1) < 5               \r
             end\r
          }\r
       end\r
index e993005..9a4edba 100644 (file)
@@ -1,14 +1,8 @@
+# coding: utf-8\r
+html = '<table cellpadding="0" cellspacing="0" border="0" width="750" style="margin: 0 0 10 0;"><tr><td valign="top" width="120"><img src="http://a69.g.akamai.net/n/69/10688/v1/img5.allocine.fr/acmedia/medias/nmedia/18/35/06/77/afte.jpg" border="0" alt="" class="affichette" />'\r
+/<img src="(.*?)" border="0" alt="" class="affichette" \/>/ =~ html\r
+url = URI.parse($1)               \r
+p url.host\r
 \r
-def pomper(r)\r
-   Dir::foreach(r){|f|\r
-      next if f[0,1] == '.'\r
-      fichier = (r == '.' ? '' : r + "/") + f\r
-      if File::directory?(fichier)\r
-         pomper(fichier) \r
-      else\r
-         p fichier         \r
-      end\r
-   }\r
-end\r
-\r
-pomper("F:\\films")
\ No newline at end of file
+nbRetry = 0\r
+p "youpla" if (nbRetry += 1) < 5     
\ No newline at end of file