Changeset 3 for trunk/biblehal-pop

Timestamp:

Apr 1, 2011, 12:01:42 PM (14 years ago)

Author:

g7moreau

Message:

• Add dep on /etc/biblehal/biblehal.conf
• Detele dep on LEGI laboratory name

File:

• trunk/biblehal-pop (modified) (4 diffs)

trunk/biblehal-pop

@@ -2 +2 @@
 #
 # gabriel 2010/06/03
+# gabriel 2011/04/01 update to biblehal
 #
 # apt-get install libwww-mechanize-perl libwww-perl
@@ -11 +12 @@
 use HTML::Form;
 
-my $year = shift @ARGV;
-
-die "Usage /usr/lib/biblehal/biblehal-pop year\n" if $year < 1990 or $year > 2020; 
+my $laboratory = shift @ARGV;
+my $year       = shift @ARGV;
+
+die "Usage /usr/lib/biblehal/biblehal-pop laboratory year\n" if $year < 1990 or $year > 2020; 
 
 mkdir '/var/cache/biblehal/download', 0750;
@@ -88 +90 @@
 
 # On intègre le second formulaire qui se remplit normalement via un javascript
-my $parser = HTML::Form->parse("$F", 'http://hal.archives-ouvertes.fr/LEGI');
+my $parser = HTML::Form->parse("$F", "http://hal.archives-ouvertes.fr/$laboratory");
     print($@) if $@;
 #print Dumper $parser;
@@ -94 +96 @@
 
 # Création du bot
-my $url = 'http://hal.archives-ouvertes.fr/LEGI';
+my $url = "http://hal.archives-ouvertes.fr/$laboratory";
 my $bot = WWW::Mechanize->new;
    $bot->proxy(['http', 'ftp'], 'http://194.254.66.70:3128');