Ignore:
Timestamp:
11/15/11 18:08:14 (12 years ago)
Author:
Kris Deugau
Message:

/branches/stable

Make the fixed web path at least configurable in one place rather
than completely hardcoded across many files.
Update initial database tabledef SQL
Bump version

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/stable/cgi-bin/admin.cgi

    r506 r507  
    1010# Last update by $Author$
    1111###
    12 # Copyright (C) 2004-2010 - Kris Deugau
     12# Copyright (C) 2004-2011 - Kris Deugau
    1313
    1414use strict;
    … …  
    5454  print "Content-Type: text/html\n\n".
    5555        "<html>\n<head>\n\t<title>Access denied</title>\n".
    56         qq(\t<link rel="stylesheet" type="text/css" href="/ip/ipdb.css">\n).
    57         qq(\t<link rel="stylesheet" type="text/css" href="/ip/local.css">\n).
     56        qq(\t<link rel="stylesheet" type="text/css" href="$IPDB::webpath/ipdb.css">\n).
     57        qq(\t<link rel="stylesheet" type="text/css" href="$IPDB::webpath/local.css">\n).
    5858        "</head>\n<body>\n".
    5959        qq(Access to this tool is restricted.  Contact the <a href="mailto:ipdbadmin\@example.com">IPDB administrator</a> \n).
    … …  
    6767print "Content-type: text/html\n\n".
    6868        "<html>\n<head>\n\t<title>[IPDB admin tools]</title>\n".
    69         qq(\t<link rel="stylesheet" type="text/css" href="/ip/ipdb.css">\n).
    70         qq(\t<link rel="stylesheet" type="text/css" href="/ip/local.css">\n).
     69        qq(\t<link rel="stylesheet" type="text/css" href="$IPDB::webpath/ipdb.css">\n).
     70        qq(\t<link rel="stylesheet" type="text/css" href="$IPDB::webpath/local.css">\n).
    7171        "</head>\n<body>\n".
    7272        "<h2>IPDB - Administrative Tools</h2>\n<hr>\n";
    … …  
    125125);
    126126} else {
    127   print '<a href="/ip/cgi-bin/admin.cgi">Back</a> to main<hr>';
     127  print qq(<a href="$IPDB::webpath/cgi-bin/admin.cgi">Back</a> to main<hr>);
    128128}
    129129
    … …  
    213213$cities
    214214</select>
    215 &nbsp;<a href="javascript:popNotes('/ip/newcity.html')">Add new location</a>
     215&nbsp;<a href="javascript:popNotes('$IPDB::webpath/newcity.html')">Add new location</a>
    216216</td>
    217217</tr>
    … …  
    651651#
    652652
    653 print qq(<hr><a href="/ip/">Back</a> to main interface</a>\n);
     653print qq(<hr><a href="$IPDB::webpath/">Back</a> to main interface</a>\n);
    654654
    655655printFooter;
Note: See TracChangeset for help on using the changeset viewer.