/[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.4 by dpavlin, Fri Oct 25 11:20:56 2002 UTC revision 1.6 by dpavlin, Sun Oct 27 21:20:39 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    print "getting '$url'...\n";
37  my $req = HTTP::Request->new(GET => $url);  my $req = HTTP::Request->new(GET => $url);
38    
39  my $res = $ua->request($req);  my $res = $ua->request($req);
40  if ($res->is_success) {  if ($res->is_success) {
41            print "parsing html...\n";
42          my $tree = HTML::TreeBuilder->new;          my $tree = HTML::TreeBuilder->new;
43  #       $tree->parse_file("list.html");   # !  #       $tree->parse_file("list.html");   # !
44          $tree->parse($res->content);          $tree->parse($res->content);
# Line 57  if ($res->is_success) { Line 59  if ($res->is_success) {
59                                  $mps .= mps_expand(2,$link->as_text);                                  $mps .= mps_expand(2,$link->as_text);
60    
61                                  # tip                                  # tip
62                                  $mps .= mps_expand(17,"on-line");                                  $mps .= mps_expand(17,"on-line casopis");
63    
64                                  $mps .= "H ".$link->as_text." <i>(on-line, ScrienceDirect)</i>\n";                                  $mps .= "H ".$link->as_text." <i>(on-line, ScrienceDirect)</i>\n";
65    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.26