[interchange-cvs] interchange - heins modified 2 files
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Thu Sep 26 00:36:01 2002
User: heins
Date: 2002-09-26 04:35:03 GMT
Modified: dist/lib/UI/pages/admin genconfig.html
Added: dist/lib/UI/pages/admin show_session.html
Log:
* Use tabbed display for admin information.
* Add some more perl modules to list to check for...
* Give show_session its own page, it was really hard to see on
the older one.
Revision Changes Path
2.7 +252 -0 interchange/dist/lib/UI/pages/admin/genconfig.html
rev 2.7, prev_rev 2.6
Index: genconfig.html
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/dist/lib/UI/pages/admin/genconfig.html,v
retrieving revision 2.6
retrieving revision 2.7
diff -u -r2.6 -r2.7
--- genconfig.html 18 Aug 2002 15:38:26 -0000 2.6
+++ genconfig.html 26 Sep 2002 04:35:02 -0000 2.7
@@ -8,6 +8,257 @@
<!-- ----- BEGIN REAL STUFF ----- -->
=20
<div style=3D"margin-left: 5%">
+
+[if !scratch ui_old_browser]
+[tabbed-display
+ panel-prepend=3D"<table>"
+ panel-append=3D"</table>"
+ start-at-index=3D"[cgi start_at_index]"
+ panel-width=3D"[either][cgi panel_width][or]800[/either]"
+ panel-height=3D"[either][cgi panel_height][or]500[/either]"
+ tab-width=3D160]
+[tabbed-panel [L]Catalog Information[/L]]
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Catalog URL[/L]
+ </TH>
+ <TD> </TD>
+ <TD>[calc]$url=3D$Scratch->{ui_catalog_url};$url=3D~s%/index[^/]*%%;retur=
n qq{<A HREF=3D"$url">$url}[/calc]</A></TD>
+</TR>
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Secure URL[/L]
+ </TH>
+ <TD> </TD>
+ <TD>[calc]return qq{<A HREF=3D"$Config->{SecureURL}">$Config->{SecureURL}=
}[/calc]</A></TD>
+</TR>
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Location of Error Logs[/L]
+ </TH>
+ <TD> </TD>
+ <TD>
+ [L]Global[/L]: [version extended=3D1 global_error=3D1]<br>
+ [L]Local[/L]: [version extended=3D1 local_error=3D1]
+ </TD>
+</TR>
+
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Active sessions[/L]
+ [if cgi list_sessions]<br><i>
+ ([L]last[/L]
+ [calc] int (
+ $::Variable->{ACTIVE_SESSION_MINUTES}
+ || ( ($Config->{SessionExpire} || 60) / 60)
+ )
+ [/calc] [L]minutes[/L])</I>
+ [/if]
+ </TH>
+ <TD> </TD>
+ <TD>
+ [if cgi list_sessions]
+ [loop list=3D"[dump-session find=3D1]"]
+ <A HREF=3D"[area
+ href=3D'__UI_BASE__/show_session'
+ form=3D'show_session=3D[loop-code]'
+ ]"
+ >[loop-code]</A>
+ (<A HREF=3D"[area
+ href=3D'__UI_BASE__/show_session'
+ form=3D'show_session=3D[loop-code]'
+ ]"
+ TARGET=3D"_blank"
+ >in new window</A>)<BR>
+ [/loop]
+=09=09=20
+ [else]
+ [page href=3D"@@MV_PAGE@@" form=3D"list_sessions=3D1"][L]Show active ses=
sions[/L]</A>
+ <br>
+ <i>([L]last[/L]
+ [calc] int (
+ $::Variable->{ACTIVE_SESSION_MINUTES}
+ || ( ($Config->{SessionExpire} || 60) / 60)
+ )
+ [/calc] [L]minutes[/L])</I>
+
+ [/else]
+ [/if]
+ [if cgi show_session]
+ <P><B>[L]Showing session[/L]: [cgi show_session]</B>
+<XMP style=3D"font-size: small">
+[dump-session name=3D"[cgi show_session]"]
+</XMP>
+ [/if]
+ </TD>
+</TR>
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Last order number[/L]
+ </TH>
+ <TD> </TD>
+ <TD>
+ [calc]
+ my $cfn =3D $Variable->{MV_ORDER_COUNTER_FILE} || 'etc/order.number';
+ $Values->{new_order_number} =3D $Tag->file($cfn);
+ $Values->{new_order_number} =3D~ s/.*\n([A-Za-z0-9]+).*$/$1/s;
+ return;
+ [/calc]
+ [page __UI_BASE__/misc_order_number][value new_order_number]</A>
+ </TD>
+</TR>
+
+[/tabbed-panel]
+[tabbed-panel[L]Interchange Server Information[/L]]
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Interchange version[/L]
+ </TH>
+ <TD> </TD>
+ <TD>[version]</TD>
+</TR>
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Server hostname[/L]
+ </TH>
+ <TD> </TD>
+ <TD>[version extended=3D1 hostname=3D1]</TD>
+</TR>
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Interchange PID[/L]
+ </TH>
+ <TD> </TD>
+ <TD>[version extended=3D1 pid=3D1]</TD>
+</TR>
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Interchange SUID User[/L]
+ </TH>
+ <TD> </TD>
+ <TD>[version extended=3D1 uid=3D1]</TD>
+</TR>
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Server mode[/L]
+ </TH>
+ <TD> </TD>
+ <TD>[version extended=3D1 mode=3D1]</TD>
+</TR>
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Last time server restarted[/L]
+ </TH>
+ <TD> </TD>
+ <TD>[calc] scalar localtime([file-info conf=3D1 name=3D"interchange.pid" =
time=3D1])[/calc]</TD>
+</TR>
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Last time changes applied[/L]
+ </TH>
+ <TD> </TD>
+ <TD>[file name=3D`"etc/status.$Config->{CatalogName}"`] ([page __UI_BASE_=
_/reconfig @@MV_PAGE@@][L]apply now[/L]</A>)</TD>
+</TR>
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [msg arg.0=3D'<A HREF=3D"[area __UI_BASE__/env_vars]">' arg.1=3D"</A>"]%s=
Environment%s variables passed[/msg]
+ </TH>
+ <TD> </TD>
+ <TD>[version extended=3D1 env=3D1]</TD>
+</TR>
+
+[/tabbed-panel]
+[tabbed-panel [L]Perl Information[/L]]
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ <A HREF=3D"[area href=3D"@@MV_PAGE@@"
+ form=3D"
+ more_perl=3D1
+ start_at_index=3D2
+ panel_width=3D1000
+ panel_height=3D800
+ "]">[L]Perl Version[/L]</A>
+ </TH>
+ <TD> </TD>
+ <TD>Perl [version extended=3D1 perl=3D1 perl_config=3D"[cgi more_perl]"]<=
/TD>
+</TR>
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Optional Module Information[/L]
+ </TH>
+ <TD> </TD>
+ <TD>
+ <table>
+ [table-organize columns=3D2 columnize=3D1 td=3D'width=3D"50%"']
+ <td>[version extended=3D1 modules=3D1 joiner=3D"</td><td>"]</TD>
+ [/table-organize]
+ </table>
+ </TD>
+</TR>
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Safe operations untrapped[/L]
+ </TH>
+ <TD> </TD>
+ <TD>[version extended=3D1 safe=3D1]</TD>
+</TR>
+
+<TR>
+ <TD COLSPAN=3D3> </TD>
+</TR>
+
+[/tabbed-panel]
+[tabbed-panel [L]Database Information[/L]]
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Database Interfaces[/L]
+ </TH>
+ <TD> </TD>
+ <TD VALIGN=3Dtop>
+ [version extended=3D1 db=3D1]
+ </TD>
+</TR>
+
+<TR>
+ <TH VALIGN=3DTOP ALIGN=3DRIGHT>
+ [L]Database Tables[/L]
+ </TH>
+ <TD> </TD>
+ <TD VALIGN=3Dtop>=09
+ <table width=3D"400">
+ [table-organize cols=3D3 columnize=3D1]
+ [loop list=3D"[list-databases]"]
+ <TD>
+ <A HREF=3D"[area __UI_BASE__/dbinfo [loop-code]]">[loop-code]</A><br>
+ </TD>
+ [/loop]
+ [/table-organize]
+ </table>
+ </TD>
+</TR>
+[/tabbed-panel]
+[/tabbed-display]
+
+[/if]
+
+[if scratch ui_old_browser]
<table>
<tr><td align=3Dleft class=3Drnorm>
<TABLE __UI_T_PROPERTIES__>
@@ -243,6 +494,7 @@
=20
</table>
</div>
+[/if]
=20
<!-- ----- END REAL STUFF ----- -->
=20
2.1 interchange/dist/lib/UI/pages/admin/show_session.html
rev 2.1, prev_rev 2.0