Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv19859
Modified Files:
HTML.pm
Log Message:
David Smith P3 accessibility fixes
Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.79
retrieving revision 1.80
diff -C2 -d -r1.79 -r1.80
*** HTML.pm 21 Feb 2003 21:52:00 -0000 1.79
--- HTML.pm 23 Feb 2003 20:56:32 -0000 1.80
***************
*** 169,183 ****
if ( !defined( $self->{server} ) ) {
! print <<EOM;
! \nCouldn't start the HTTP interface because POPFile could not bind to the
! HTTP port $self->{configuration}->{configuration}{ui_port}. This could be because there is another service
! using that port or because you do not have the right privileges on
! your system (On Unix systems this can happen if you are not root
and the port you specified is less than 1024).
[...1208 lines suppressed...]
! $body .= "<input type=\"password\" id=\"thePassword\" name=\"password\" />\n" ;
! $body .= "<input type=\"submit\" class=\"submit\" name=\"submit\" value=\"$self->{language}{Password_Go}\" />\n</form>\n";
$body .= "<blockquote>\n<div class=\"error02\">$self->{language}{Password_Error1}</div>\n</blockquote>" if ( $error == 1 );
http_ok($self, $client, $body, 99);
***************
*** 3158,3161 ****
--- 3269,3273 ----
}
+
# ---------------------------------------------------------------------------------------------
#
***************
*** 3205,3208 ****
--- 3317,3321 ----
}
}
+
# ---------------------------------------------------------------------------------------------
|
