41 lines
1.7 KiB
Plaintext
41 lines
1.7 KiB
Plaintext
|
--- marc-search.cgi.orig Fri Apr 4 22:06:42 1997
|
||
|
|
+++ marc-search.cgi Sat Nov 28 17:59:27 1998
|
||
|
|
@@ -1,3 +1,3 @@
|
||
|
|
-#!/dcs/bin/perl5 -w
|
||
|
|
+#!/usr/local/bin/perl
|
||
|
|
##------------------------------------------------------------------------##
|
||
|
|
## File:
|
||
|
|
@@ -15,14 +15,13 @@
|
||
|
|
## Configurable options - described in great detail in the POD - READ IT!
|
||
|
|
|
||
|
|
-my $server = 'http://eee.uci.edu';
|
||
|
|
-my $help = $server . '/toolbox/marc-search.html';
|
||
|
|
-my $doc_root = '/Web/doc';
|
||
|
|
-my $script = $server . '/cgi-bin/marc-search.edf.cgi';
|
||
|
|
-my $usersubdir = 'public_html'; # Tells which subdirectory of
|
||
|
|
- # a user's home directory
|
||
|
|
- # (file system) corresponds to
|
||
|
|
- # http://server/~user/ . (Only
|
||
|
|
- # needed if marc-search
|
||
|
|
- # supports URLs with tildes.)
|
||
|
|
+require AppCfg;
|
||
|
|
+
|
||
|
|
+my ($server, $help, $doc_root, $script, $usersubdir);
|
||
|
|
+my $my_config = new AppCfg "/usr/local/etc/marc-search.conf";
|
||
|
|
+$server = $my_config->get_scalar("server");
|
||
|
|
+$help = $my_config->get_scalar("help");
|
||
|
|
+$doc_root = $my_config->get_scalar("doc_root");
|
||
|
|
+$script = $my_config->get_scalar("script");
|
||
|
|
+$usersubdir = $my_config->get_scalar("usersubdir");
|
||
|
|
|
||
|
|
##------------------------------------------------------------------------##
|
||
|
|
@@ -30,6 +29,6 @@
|
||
|
|
|
||
|
|
# This next line tells perl where the CGI_Lite module was installed.
|
||
|
|
-use lib '/users/asc/friedman/www/cgi-bin';
|
||
|
|
-use lib '/Web/httpd/cgi-bin';
|
||
|
|
+use lib '/usr/local/lib/perl5/site_perl/5.005';
|
||
|
|
+use lib '/usr/local/lib/perl5/site_perl/5.005/Marc';
|
||
|
|
use CGI_Lite; # Substitute other CGI libraries if need be (see next section)
|
||
|
|
use strict;
|