/[webpac-proto]/isis2stream.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 /isis2stream.pl

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

revision 1.17 by dpavlin, Tue Jun 25 13:42:54 2002 UTC revision 1.18 by dpavlin, Wed Jul 17 16:55:24 2002 UTC
# Line 49  while(<CF>) { Line 49  while(<CF>) {
49          if (/^database-name:([^=]+)=(.*)$/) {          if (/^database-name:([^=]+)=(.*)$/) {
50                  my ($db_name,$db_desc) = ($1,$2);                  my ($db_name,$db_desc) = ($1,$2);
51                  $db_desc=~s/^##\w+##//g;                  $db_desc=~s/^##\w+##//g;
52                  $DatabaseDescriptions{$db_name}=$db_desc;                  # c_iso_852 is a cludge so that output format would be
53                    # correct 8859-2 again...
54                    $DatabaseDescriptions{$db_name}=c_iso_852($db_desc);
55          }          }
56  }  }
57  close(CF);  close(CF);

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.26