Changeset 415 for trunk/cgi-bin


Ignore:
Timestamp:
05/14/10 16:00:26 (14 years ago)
Author:
Kris Deugau
Message:

/trunk

Genericize and comment a lurking mailNotify() call. See #2.
Remove a couple of stale, legacy, irrelvant comments.
Genericize another email address reference. See #2 (sort of).
Remove a legacy sub that's never been used, from a module due
to be removed itself. See #15.

Location:
trunk/cgi-bin
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/cgi-bin/CommonWeb.pm

    r233 r415  
    88
    99package CommonWeb;
    10 
    11 # 08/13/2004 kdeugau@vianet
    12 #       Split DB-related functions into new module;  they're not
    13 #       specific to CGI/web stuff.
    1410
    1511use strict;             
    … …  
    108104}
    109105
    110 sub loginAgain
    111 {
    112         print qq(
    113         <center><p>Your session has expired. Please login again.</p>
    114         <p>
    115         <a href="http://hosttest.vianet.ca"> Click here to login again.</a>
    116         </p>
    117         </center>
    118         );
    119         printFooter();
    120         exit(0);
    121 }
    122 
    123106# needs a reference to the webvar hash.
    124107# takes out backticks and single quotes

  • trunk/cgi-bin/admin.cgi

    r413 r415  
    5353        qq(\t<link rel="stylesheet" type="text/css" href="/ip/local.css">\n).
    5454        "</head>\n<body>\n".
    55         qq(Access to this tool is restricted.  Contact <a href="mailto:kdeugau\@vianet.ca">Kris</a> \n).
     55        qq(Access to this tool is restricted.  Contact the <a href="mailto:ipdbadmin\@example.com">IPDB administrator</a> \n).
    5656        "for more information.\n</body>\n</html>\n";
    5757  exit;

  • trunk/cgi-bin/main.cgi

    r406 r415  
    11#!/usr/bin/perl
    22# ipdb/cgi-bin/main.cgi
    3 # Started munging from noc.vianet's old IPDB 04/22/2004
    43###
    54# SVN revision info

  • trunk/cgi-bin/newcity.cgi

    r370 r415  
    4848if ($sth->err) {
    4949  print "Error adding city to database: ".$sth->errstr;
    50   mailNotify('kdeugau@vianet.ca',"IPDB city add failure",
    51         "$authuser could not add city '$webvar{city}' to database: ".$sth->errstr);
     50#  mailNotify('ipdbadmin@example.com',"IPDB city add failure",
     51#       "$authuser could not add city '$webvar{city}' to database: ".$sth->errstr);
    5252  syslog "err", "$authuser could not add city '$webvar{city}' to database: ".$sth->errstr;
    5353} else {
Note: See TracChangeset for help on using the changeset viewer.