[CVS] OpenPKG: openpkg-registry/ registry-ui.pl

[Thomas Lotterer]

  OpenPKG CVS Repository
  http://cvs.openpkg.org/
  ____________________________________________________________________________

  Server: cvs.openpkg.org                  Name:   Thomas Lotterer
  Root:   /v/openpkg/cvs                   Email:  [EMAIL PROTECTED]
  Module: openpkg-registry                 Date:   27-Nov-2005 00:40:51
  Branch: HEAD                             Handle: 2005112623405100

  Modified files:
    openpkg-registry        registry-ui.pl

  Log:
    status line in html tail

  Summary:
    Revision    Changes     Path
    1.35        +28 -1      openpkg-registry/registry-ui.pl
  ____________________________________________________________________________

  patch -p0 <<'@@ .'
  Index: openpkg-registry/registry-ui.pl
  ============================================================================
  $ cvs diff -u -r1.34 -r1.35 registry-ui.pl
  --- openpkg-registry/registry-ui.pl   26 Nov 2005 23:40:13 -0000      1.34
  +++ openpkg-registry/registry-ui.pl   26 Nov 2005 23:40:51 -0000      1.35
  @@ -72,6 +72,9 @@
   $cfg->{canvas}->{mark_head}="<!-- CANVAS: HEAD -->";
   $cfg->{canvas}->{mark_body}="<!-- CANVAS: BODY -->";
   $cfg->{page}->{default} = undef;
  +$cfg->{status}->{showuser} = 1;
  +$cfg->{status}->{showversion} = 1;
  +$cfg->{status}->{showsid} = 1;
   
   my $ase;
   $ase = undef;
  @@ -424,7 +427,7 @@
   
   sub viewhtmltail ()
   {
  -    my ($html);
  +    my ($msg, $html);
   
       $html = "";
   
  @@ -432,6 +435,26 @@
           $html .= $ase->canvas(-part => "body") . "\n";
       }
   
  +    $msg = "";
  +    if ($cfg->{status}->{showversion}) {
  +        $msg .= ($msg ? " &nbsp;|&nbsp; " : "" );
  +        $msg .= $progname . "&nbsp;" . $progvers . "&nbsp;(" . $progdate . 
")";
  +    }
  +    if ($cfg->{status}->{showuser}) {
  +        $msg .= ($msg ? " &nbsp;|&nbsp; " : "" );
  +        $msg .= &prettyauthinfo;
  +    }
  +    if ($cfg->{status}->{showsid}) {
  +        $msg .= ($msg ? " &nbsp;|&nbsp; " : "" );
  +        $msg .= "sid=" . $session->id;
  +    }
  +    if ($msg) {
  +        $html .= "<p/>\n";
  +        $html .= "<div class=\"status\">\n";
  +        $html .= $msg;
  +        $html .= "</div>\n";
  +    }
  +
       $html .= "  </div></body>\n";
       $html .= "</html>\n";
       return $html;
  @@ -450,6 +473,10 @@
       $css .= "DIV.registry {\n";
       $css .= "    font-family:     sans-serif, helvetica, arial;\n";
       $css .= "}\n";
  +    $css .= "DIV.status {\n";
  +    $css .= "    font-family:     sans-serif, helvetica, arial;\n";
  +    $css .= "    font-size:       66%;\n";
  +    $css .= "}\n";
       $css .= "BODY.registry DIV.registry {\n";
       $css .= "    background-image: url($myurl?page=jpg&name=bg);\n";
       $css .= "    border:           1px solid #000000;\n";
  @@ .
______________________________________________________________________
The OpenPKG Project                                    www.openpkg.org
CVS Repository Commit List                     openpkg-cvs@openpkg.org