[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>&nbsp; &nbsp;</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>&nbsp; &nbsp;</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>&nbsp; &nbsp;</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>&nbsp; &nbsp;</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> &nbsp;
+				(<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>&nbsp; &nbsp;</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>&nbsp; &nbsp;</TD>
+	<TD>[version]</TD>
+</TR>
+
+<TR>
+	<TH VALIGN=3DTOP ALIGN=3DRIGHT>
+	[L]Server hostname[/L]
+	</TH>
+	<TD>&nbsp; &nbsp;</TD>
+	<TD>[version extended=3D1 hostname=3D1]</TD>
+</TR>
+
+<TR>
+	<TH VALIGN=3DTOP ALIGN=3DRIGHT>
+	[L]Interchange PID[/L]
+	</TH>
+	<TD>&nbsp; &nbsp;</TD>
+	<TD>[version extended=3D1 pid=3D1]</TD>
+</TR>
+
+<TR>
+	<TH VALIGN=3DTOP ALIGN=3DRIGHT>
+	[L]Interchange SUID User[/L]
+	</TH>
+	<TD>&nbsp; &nbsp;</TD>
+	<TD>[version extended=3D1 uid=3D1]</TD>
+</TR>
+
+<TR>
+	<TH VALIGN=3DTOP ALIGN=3DRIGHT>
+	[L]Server mode[/L]
+	</TH>
+	<TD>&nbsp; &nbsp;</TD>
+	<TD>[version extended=3D1 mode=3D1]</TD>
+</TR>
+
+<TR>
+	<TH VALIGN=3DTOP ALIGN=3DRIGHT>
+	[L]Last time server restarted[/L]
+	</TH>
+	<TD>&nbsp; &nbsp;</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>&nbsp; &nbsp;</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>&nbsp; &nbsp;</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>&nbsp; &nbsp;</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>&nbsp; &nbsp;</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>&nbsp; &nbsp;</TD>
+	<TD>[version extended=3D1 safe=3D1]</TD>
+</TR>
+
+<TR>
+  <TD COLSPAN=3D3>&nbsp;</TD>
+</TR>
+
+[/tabbed-panel]
+[tabbed-panel [L]Database Information[/L]]
+
+<TR>
+	<TH VALIGN=3DTOP ALIGN=3DRIGHT>
+	[L]Database Interfaces[/L]
+	</TH>
+	<TD>&nbsp; &nbsp;</TD>
+	<TD VALIGN=3Dtop>
+		[version extended=3D1 db=3D1]
+	</TD>
+</TR>
+
+<TR>
+	<TH VALIGN=3DTOP ALIGN=3DRIGHT>
+	[L]Database Tables[/L]
+	</TH>
+	<TD>&nbsp; &nbsp;</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