Changeset 24382

Show
Ignore:
Timestamp:
11/20/08 07:39:14 (7 weeks ago)
Author:
drry
Message:
  • cosmetic changes.
Location:
lang/perl/CGI-Carp-DebugScreen/trunk
Files:
6 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/CGI-Carp-DebugScreen/trunk/README

    r24376 r24382  
    44CGI::Carp::DebugScreen provides decent debug/error screens for Web 
    55applications via CGI::Carp's set_message() function. You don't need 
    6 to care $SIG{__DIE__} anymore. Just die or croak to get the right  
     6to care $SIG{__DIE__} anymore. Just die or croak to get the right 
    77thing. You can customize those screens as well. 
    88 
    … …  
    2222  CGI::Carp 
    2323 
    24 COPYRIGHT AND LICENCE 
     24COPYRIGHT AND LICENSE 
    2525 
    26 Copyright (C) 2005-2006 by Kenichi Ishigaki 
     26Copyright (C) 2005-2008 by Kenichi Ishigaki 
    2727 
    2828This library is free software; you can redistribute it and/or modify 

  • lang/perl/CGI-Carp-DebugScreen/trunk/lib/CGI/Carp/DebugScreen.pm

    r24376 r24382  
    3636    color: #000; 
    3737    background-color: #f60; 
    38     margin: 0px; 
    39     padding: 0px; 
     38    margin: 0; 
     39    padding: 0; 
    4040  } 
    4141  :link, :link:hover, :visited, :visited:hover { 
    … …  
    7676    font-size: .8em; 
    7777    line-height: 120%; 
    78     font-family: 'Courier New', Courier, monospace; 
     78    font-family: "Courier New", Courier, monospace; 
    7979    background-color: #fc9; 
    8080    color: #333; 
    … …  
    9595  table.code td.num { 
    9696    width: 4em; 
    97     text-align:right 
     97    text-align: right; 
    9898  } 
    9999  table.watch { 
    … …  
    124124    font-size: .8em; 
    125125    line-height: 120%; 
    126     font-family: 'Courier New', Courier, monospace; 
     126    font-family: "Courier New", Courier, monospace; 
    127127    overflow: auto; 
    128128  } 
    … …  
    137137    margin: 0 1em; 
    138138    font-size: .8em; 
    139     text-align:right; 
     139    text-align: right; 
    140140  } 
    141141 
    … …  
    164164} 
    165165 
    166 sub debug              { shift; $Debug    = shift; } 
     166sub debug              { shift; $Debug = shift; } 
    167167sub set_debug_template { shift; $DebugTemplate = shift; } 
    168168sub set_error_template { shift; $ErrorTemplate = shift; } 
    … …  
    553553=head1 COPYRIGHT AND LICENSE 
    554554 
    555 Copyright (C) 2005-2006 by Kenichi Ishigaki 
    556  
    557 This library is free software; you can redistribute it and/or  
     555Copyright (C) 2005-2008 by Kenichi Ishigaki 
     556 
     557This library is free software; you can redistribute it and/or 
    558558modify it under the same terms as Perl itself. 
    559559 

  • lang/perl/CGI-Carp-DebugScreen/trunk/lib/CGI/Carp/DebugScreen/DefaultView.pm

    r24376 r24382  
    6262 
    6363  my $html =<<"EOT"; 
     64<!DOCTYPE html> 
    6465<html> 
    6566<head> 
    … …  
    144145      $html .=<<"EOT"; 
    145146<li> 
    146 <b>$key</b><br> 
     147<strong>$key</strong><br> 
    147148<div class="scrollable"> 
    148149$table 
    … …  
    225226 
    226227  my $html =<<"EOT"; 
     228<!DOCTYPE html> 
    227229<html> 
    228230<head> 
    … …  
    233235<div id="page"> 
    234236<h1>An unexpected error has been detected</h1> 
    235 <p>Sorry for inconvenience.</p> 
     237<p>Sorry for the inconvenience.</p> 
    236238</div> 
    237239</body> 
    … …  
    280282=head1 COPYRIGHT AND LICENSE 
    281283 
    282 Copyright (C) 2005-2006 by Kenichi Ishigaki 
     284Copyright (C) 2005-2008 by Kenichi Ishigaki 
    283285 
    284286This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. 

  • lang/perl/CGI-Carp-DebugScreen/trunk/lib/CGI/Carp/DebugScreen/Dumper.pm

    r24376 r24382  
    134134=head1 TODO 
    135135 
    136 I'm afraid that this module should have another (and shorter) name and stand alone. The dumps() method should take array, hash, or multiple variables.  
     136I'm afraid that this module should have another (and shorter) name and stand alone. The dumps() method should take array, hash, or multiple variables. 
    137137 
    138138=head1 SEE ALSO 
    … …  
    146146=head1 COPYRIGHT AND LICENSE 
    147147 
    148 Copyright (C) 2006 by Kenichi Ishigaki 
     148Copyright (C) 2006-2008 by Kenichi Ishigaki 
    149149 
    150150This library is free software; you can redistribute it and/or modify it 

  • lang/perl/CGI-Carp-DebugScreen/trunk/lib/CGI/Carp/DebugScreen/HTML/Template.pm

    r24376 r24382  
    88 
    99my $DebugTemplate =<<'EOT'; 
     10<!DOCTYPE html> 
    1011<html> 
    1112<head> 
    … …  
    4950<TMPL_LOOP NAME="watchlist"> 
    5051<li> 
    51 <b><TMPL_VAR NAME="key" ESCAPE=HTML></b> 
     52<strong><TMPL_VAR NAME="key" ESCAPE=HTML></strong> 
    5253<div class="scrollable"> 
    5354<TMPL_VAR NAME="value"> 
    … …  
    8990 
    9091my $ErrorTemplate =<<'EOT'; 
     92<!DOCTYPE html> 
    9193<html> 
    9294<head> 
    … …  
    99101<div id="page"> 
    100102<h1>An unexpected error has been detected</h1> 
    101 <p>Sorry for inconvenience.</p> 
     103<p>Sorry for the inconvenience.</p> 
    102104</div> 
    103105</body> 
    … …  
    158160=head1 COPYRIGHT AND LICENSE 
    159161 
    160 Copyright (C) 2005-2006 by Kenichi Ishigaki 
     162Copyright (C) 2005-2008 by Kenichi Ishigaki 
    161163 
    162164This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. 

  • lang/perl/CGI-Carp-DebugScreen/trunk/lib/CGI/Carp/DebugScreen/TT.pm

    r24376 r24382  
    88 
    99my $DebugTemplate =<<'EOT'; 
     10<!DOCTYPE html> 
    1011<html> 
    1112<head> 
    … …  
    6465[%- FOREACH watch = watchlist %] 
    6566<li> 
    66 <b>[% watch.key | html %]</b> 
     67<strong>[% watch.key | html %]</strong> 
    6768<div class="scrollable"> 
    6869[%- watch.value %] 
    … …  
    104105 
    105106my $ErrorTemplate =<<'EOT'; 
     107<!DOCTYPE html> 
    106108<html> 
    107109<head> 
    … …  
    114116<div id="page"> 
    115117<h1>An unexpected error has been detected</h1> 
    116 <p>Sorry for inconvenience.</p> 
     118<p>Sorry for the inconvenience.</p> 
    117119</div> 
    118120</body> 
    … …  
    183185=head1 COPYRIGHT AND LICENSE 
    184186 
    185 Copyright (C) 2005-2006 by Kenichi Ishigaki 
     187Copyright (C) 2005-2008 by Kenichi Ishigaki 
    186188 
    187189This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.