/[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.1 by dpavlin, Thu Oct 24 16:34:08 2002 UTC revision 1.2 by dpavlin, Thu Oct 24 18:25:19 2002 UTC
# Line 12  my $last_tell=0; Line 12  my $last_tell=0;
12    
13  print MPS "M working...\n";  print MPS "M working...\n";
14    
15  my $base_url = 'http/www.sciencedirect.com';  my $base_url = 'http://www.sciencedirect.com';
16  my $url = $base_url . '/science?_ob=JournalListURL&_type=subscribed&_stype=title&subjColl=all&_auth=y&_update=y&_frameSeg=M&_title=all&_acct=C000050661&_version=1&_urlVersion=0&_userid=1034703&md5=6d4b6e263318a1d7d2a3b523d861f920';  my $url = $base_url . '/science?_ob=JournalListURL&_type=subscribed&_stype=title&subjColl=all&_auth=y&_update=y&_frameSeg=M&_title=all&_acct=C000050661&_version=1&_urlVersion=0&_userid=1034703&md5=6d4b6e263318a1d7d2a3b523d861f920';
17    
18  $debug++ if (lc($ARGV[0]) eq "-d");  $debug++ if (lc($ARGV[0]) eq "-d");
# Line 51  if (1) { Line 51  if (1) {
51                                  my $mps = "";                                  my $mps = "";
52    
53                                  $bib .= "%tip Časopis\n";                                  $bib .= "%tip Časopis\n";
54                                  $bib .= "%tip online\n";                                  $bib .= "%tip on-line\n";
55                                  # url                                  # url
56                                  $bib .= "%856 $base_url".$link->attr('href')."\n";                                  $bib .= "%856 $base_url".$link->attr('href')."\n";
57                                  # naslov                                  # naslov
58                                  $bib .= "%200 ".$link->as_text."\n";                                  $bib .= "%200+ ".$link->as_text."\n";
59                                  $mps .= mps_expand(2,$link->as_text);                                  $mps .= mps_expand(2,$link->as_text);
60    
61                                  $mps .= "H ".$link->as_text."\n";                                  $mps .= "H ".$link->as_text." <i>(on-line)</i>\n";
62    
63                                    print R $bib."\n";
64                                  $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";
65                                  $last_tell=tell(R);                                  $last_tell=tell(R);
66    
67                                  print R $bib."\n";                                  print R "\n";
68    
69                                  $mps .= "E\n";                                  $mps .= "E\n";
70    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.26