/[webpac-proto]/casopisi/sciencedirect.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /casopisi/sciencedirect.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by dpavlin, Fri Oct 25 10:58:02 2002 UTC revision 1.4 by dpavlin, Fri Oct 25 11:20:56 2002 UTC
# Line 33  $ua->timeout(60); Line 33  $ua->timeout(60);
33  #$ua->env_proxy();  #$ua->env_proxy();
34  #$ua->proxy(['http', 'ftp'], 'http://proxy.carnet.hr:8001/');  #$ua->proxy(['http', 'ftp'], 'http://proxy.carnet.hr:8001/');
35    
36  #my $req = HTTP::Request->new(GET => $url);  my $req = HTTP::Request->new(GET => $url);
   
 #my $res = $ua->request($req);  
 #if ($res->is_success) {  
   
 if (1) {  
37    
38    my $res = $ua->request($req);
39    if ($res->is_success) {
40          my $tree = HTML::TreeBuilder->new;          my $tree = HTML::TreeBuilder->new;
41          $tree->parse_file("list.html");   # !  #       $tree->parse_file("list.html");   # !
42            $tree->parse($res->content);
43    
44          foreach my $tr ($tree->look_down('_tag', 'tr')) {          foreach my $tr ($tree->look_down('_tag', 'tr')) {
45                  my $link;                  my $link;
# Line 61  if (1) { Line 59  if (1) {
59                                  # tip                                  # tip
60                                  $mps .= mps_expand(17,"on-line");                                  $mps .= mps_expand(17,"on-line");
61    
62                                  $mps .= "H ".$link->as_text." <i>(on-line)</i>\n";                                  $mps .= "H ".$link->as_text." <i>(on-line, ScrienceDirect)</i>\n";
63    
64                                  print R $bib."\n";                                  print R $bib."\n";
65                                  $mps .= "T document text/plain ".(tell(R) - $last_tell)." $dir/bib $last_tell ".tell(R)."\n";                                  $mps .= "T document text/plain ".(tell(R) - $last_tell)." $dir/bib $last_tell ".tell(R)."\n";
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26