Changeset a70441f in git for doc/doc2idx.pl

Timestamp:

Apr 27, 2000, 12:07:30 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

e5f8ae07e0b41bb1b0e5aaaac2dad244e619d563

Parents:

eec9b2d2a332c04f20d743bdd4ccc107766fbc61

Message:

Windows and gcc 2.95 porting


git-svn-id: file:///usr/local/Singular/svn/trunk@4273 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• doc/doc2idx.pl (modified) (3 diffs)

doc/doc2idx.pl

@@ -1 +1 @@
 #!/usr/local/bin/perl
-# $Id: doc2idx.pl,v 1.1 1999-07-22 13:54:21 obachman Exp $
+# $Id: doc2idx.pl,v 1.2 2000-04-27 10:07:19 obachman Exp $
 ###################################################################
 #  Computer Algebra System SINGULAR
@@ -32 +32 @@
 open (URL, "<$ARGV[1]") || die "Can't open $ARGV[1]: $!\n";
 $db_file = $ARGV[2];
-$db_file = $1 if ($db_file =~ /(.*)\..*$/);
-dbmopen (%CHK, $db_file, 0666) ||
-      die "Error: can't open chksum data base $db_file";
+unless ($return = do $db_file)
+{
+  die "couldn't parse $db_file: $@" if $@;
+  die "couldn't do $db_file: $!"    unless defined $return;
+  die "couldn't run $db_file"       unless $return;
+} 
 
 # fill hashes
@@ -75 +78 @@
 for $entry (sort keys %$index)
 {
-  print "$entry\t$index->{$entry}->{Node}\t$index->{$entry}->{Url}\t$CHK{$entry}\n";
+  print "$entry\t$index->{$entry}->{Node}\t$index->{$entry}->{Url}\t$CHECKSUMS{$entry}\n";
 }
 
-close(%CHK);