Changeset 7
- Timestamp:
- Apr 1, 2011, 5:31:49 PM (14 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/biblehal-count
r2 r7 15 15 chomp($connect_name, $connect_pass); 16 16 17 my $dbh = DBI->connect( "DBI:mysql:database=refbaselegi;host= servref",18 "$connect_name", "$connect_pass", { 'RaiseError' => 1 } ); 17 my $dbh = DBI->connect( "DBI:mysql:database=refbaselegi;host=localhost", 18 "$connect_name", "$connect_pass", { 'RaiseError' => 1 } ); # refbase server 19 19 20 20 my $sth = $dbh->prepare("SELECT serial FROM refs"); -
trunk/biblehal-push
r2 r7 21 21 22 22 # Création du bot 23 my $url = 'http:// servref.hmg.priv/';23 my $url = 'http://localhost/'; # refbase server 24 24 my $bot = WWW::Mechanize->new; 25 25
Note: See TracChangeset
for help on using the changeset viewer.