Changeset 505


Ignore:
Timestamp:
Sep 27, 2011, 1:41:43 PM (10 years ago)
Author:
Kris Deugau
Message:

/branches/htmlform

Clean up final reference to printError(), and remove all references
(commented or otherwise) to CommonWeb?.pm. Remove the file itself. See #15.
Tweak block-update template for error handling. See #3.

Location:
branches/htmlform
Files:
1 deleted
10 edited

Legend:

Unmodified
Added
Removed
  • branches/htmlform/Makefile

    r501 r505  
    4141        cgi-bin/main.cgi cgi-bin/checkcusts.pl cgi-bin/newcity.cgi \
    4242        cgi-bin/allocate.pl cgi-bin/search.cgi \
    43         cgi-bin/snCalc.cgi cgi-bin/CommonWeb.pm cgi-bin/ipdb.psql \
     43        cgi-bin/snCalc.cgi cgi-bin/ipdb.psql \
    4444        cgi-bin/consistency-check.pl \
    4545        \
  • branches/htmlform/cgi-bin/admin.cgi

    r491 r505  
    1818use HTML::Template;
    1919use DBI;
    20 use CommonWeb qw(:ALL);
    2120use CustIDCK;
    2221#use POSIX qw(ceil);
  • branches/htmlform/cgi-bin/allocate.pl

    r490 r505  
    1111use warnings;
    1212use DBI;
    13 use CommonWeb qw(:ALL);
    1413use NetAddr::IP;
    1514
  • branches/htmlform/cgi-bin/combineblocks.pl

    r417 r505  
    1313#use CGI::Carp qw(fatalsToBrowser);
    1414use DBI;
    15 #use CommonWeb qw(:ALL);
    1615#use POSIX qw(ceil);
    1716use NetAddr::IP;
  • branches/htmlform/cgi-bin/main.cgi

    r504 r505  
    1515use HTML::Template;
    1616use DBI;
    17 use CommonWeb qw(:ALL);
    1817use CustIDCK;
    1918use POSIX qw(ceil);
     
    10841083  if ($@) {
    10851084    my $msg = $@;
    1086     carp "Transaction aborted because $msg";
    10871085    eval { $ip_dbh->rollback; };
    10881086    syslog "err", "$authuser could not update block/IP '$webvar{block}': '$msg'";
    1089     printError("Could not update block/IP $webvar{block}: $msg");
     1087    $page->param(err => "Could not update block/IP $webvar{block}: $msg");
    10901088    return;
    10911089  }
  • branches/htmlform/cgi-bin/newcity.cgi

    r459 r505  
    1616use HTML::Template;
    1717use DBI;
    18 #use CommonWeb qw(:ALL);
    1918#use POSIX qw(ceil);
    2019use NetAddr::IP;
  • branches/htmlform/cgi-bin/newnode.cgi

    r460 r505  
    1616use HTML::Template;
    1717use DBI;
    18 #use CommonWeb qw(:ALL);
    1918#use POSIX qw(ceil);
    2019use NetAddr::IP;
  • branches/htmlform/cgi-bin/search.cgi

    r502 r505  
    1717use HTML::Template;
    1818use DBI;
    19 use CommonWeb qw(:ALL);
    2019use POSIX qw(ceil);
    2120use NetAddr::IP;
  • branches/htmlform/cgi-bin/snCalc.cgi

    r499 r505  
    77use HTML::Template;
    88use NetAddr::IP;
    9 use CommonWeb qw(:ALL);;
    109
    1110#file snCalc.cgi        little subnet calculator app
  • branches/htmlform/templates/update.tmpl

    r476 r505  
     1<TMPL_IF err>
     2<div class="regular err">
     3<p><TMPL_VAR NAME=err></p>
     4<input type="button" value="Back" onclick="history.go(-1)">
     5</div>
     6<TMPL_ELSE>
    17<div class="heading">Allocation info updated:</div>
    28
     
    6167<a href="/ip/cgi-bin/main.cgi?action=<TMPL_IF backpool>listpool&amp;pool=<TMPL_ELSE>showrouted&amp;block=</TMPL_IF><TMPL_VAR NAME=backblock>">Back to <TMPL_VAR NAME=backblock></a>
    6268</div>
     69</TMPL_IF>
Note: See TracChangeset for help on using the changeset viewer.