Thread: [Compbench-web-devel] compbenchmarks-web/lib config.pl, 1.6, 1.7 html.pl, 1.15, 1.16 interface.pl,

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

Update of /cvsroot/compbench/compbenchmarks-web/lib
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv17384

Modified Files:
	config.pl html.pl interface.pl session.pl 
Log Message:
HTML conformance (mainly).

Index: html.pl
===================================================================
RCS file: /cvsroot/compbench/compbenchmarks-web/lib/html.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** html.pl	30 Nov 2006 18:32:10 -0000	1.15
--- html.pl	24 Sep 2007 21:29:03 -0000	1.16
***************
*** 66,70 ****
    }
  
!   lt_session_write();
  
    sys_env_init($dbh);
--- 66,70 ----
    }
  
!   lt_session_write($script);
  
    sys_env_init($dbh);

Index: session.pl
===================================================================
RCS file: /cvsroot/compbench/compbenchmarks-web/lib/session.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** session.pl	30 Nov 2005 18:17:41 -0000	1.10
--- session.pl	24 Sep 2007 21:29:03 -0000	1.11
***************
*** 11,16 ****
--- 11,19 ----
  use Digest::MD5 qw(md5_hex);
  
+ require "interface.pl";
  require "sql.pl";
  
+ our %menus;
+ 
  our $LT_GCC_BENCH_WWW_COOKIE_PREFIX;
  our $LT_GCC_SYS_SESSION;
***************
*** 165,168 ****
--- 168,172 ----
  
  sub lt_session_write {
+   my $script = shift;
  
    print "Content-Type: text/html; charset=utf-8\n";
***************
*** 172,181 ****
    # 		     -charset=>'iso-8859-1');
  
!   print start_html(-title=>'CompilerBenchmarks\' Page',
  		   -author=>'fr...@li...',
  		   -lang=>'UTF-8',
  		   -encoding=>'UTF-8',
  		   -meta=>{'http-equiv' => 'content-type',
! 			   'keywords' => 'C/C++ Compiler benchmarks Linux UNIX',
  			   'content' => 'text/html;charset=iso-8859-1'},
  		   -style=>{-src=>["$LT_WEB_CSS/lt.css"]});
--- 176,195 ----
    # 		     -charset=>'iso-8859-1');
  
!   my $title = "CompilerBenchmarks";
!   my $stit = "";
! 
!   if (defined($menus{$script})) {
!     $stit=${$menus{$script}}[0];
!   }
! 
!   if (defined($stit)) {
!     $title.="::$stit";
!   }
!   print start_html(-title=>$title,
  		   -author=>'fr...@li...',
  		   -lang=>'UTF-8',
  		   -encoding=>'UTF-8',
  		   -meta=>{'http-equiv' => 'content-type',
! 			   'keywords' => 'C C++ Compiler benchmarks Linux UNIX',
  			   'content' => 'text/html;charset=iso-8859-1'},
  		   -style=>{-src=>["$LT_WEB_CSS/lt.css"]});

Index: interface.pl
===================================================================
RCS file: /cvsroot/compbench/compbenchmarks-web/lib/interface.pl,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** interface.pl	9 Sep 2007 18:19:51 -0000	1.32
--- interface.pl	24 Sep 2007 21:29:03 -0000	1.33
***************
*** 30,63 ****
  my $no_rights = 0;
  
! my %menus = ('browse' =>
! 	     ['Results', '',
! 	      'browse.png' ],
! 	     'login' =>
! 	     ['Login', 'nobody',
! 	      'login.png' ],
! 	     'logout' =>
! 	     ['Logout', 'user',
! 	      'logout.png' ] ,
! 	     'index' =>
! 	     ['Home page', '',
! 	     'home.png'],
! 	     'feedback' =>
! 	     ['Feedback', '',
! 	      'feedback.png' ],
! 	     'downloads' =>
! 	     [ 'Downloads', '',
! 	       'downloads.png' ],
! 	     'links' =>
! 	     ['Links', '',
! 	     'links.png' ],
  	     'users' =>
! 	     ['Manage users', 'user:users',
! 	      ''],
! 	     'admin' =>
! 	     ['Administration', 'user',
! 	      'admin.png' ],
! 	     'doc' =>
! 	     ['Documentation', '',
! 	      'doc.png']);
  
  my %tabs = ( 'feedback' =>
--- 30,63 ----
  my $no_rights = 0;
  
! our %menus = ('browse' =>
! 	      ['Results', '',
! 	       'browse.png' ],
! 	      'login' =>
! 	      ['Login', 'nobody',
! 	       'login.png' ],
! 	      'logout' =>
! 	      ['Logout', 'user',
! 	       'logout.png' ] ,
! 	      'index' =>
! 	      ['Home page', '',
! 	       'home.png'],
! 	      'feedback' =>
! 	      ['Feedback', '',
! 	       'feedback.png' ],
! 	      'downloads' =>
! 	      [ 'Downloads', '',
! 		'downloads.png' ],
! 	      'links' =>
! 	      ['Links', '',
! 	       'links.png' ],
  	     'users' =>
! 	      ['Manage users', 'user:users',
! 	       ''],
! 	      'admin' =>
! 	      ['Administration', 'user',
! 	       'admin.png' ],
! 	      'doc' =>
! 	      ['Documentation', '',
! 	       'doc.png']);
  
  my %tabs = ( 'feedback' =>
***************
*** 69,73 ****
  	     { 'tabs' => { 'motivations' => 'Motivations',
  			   'package' => "User documentation",
! 			   'core'   => "API & Concepts",
  			   'compilers' => "Supported compilers",
  			   'benchs' => 'Supported benchmarks' },
--- 69,73 ----
  	     { 'tabs' => { 'motivations' => 'Motivations',
  			   'package' => "User documentation",
! 			   'core'   => "API &amp; Concepts",
  			   'compilers' => "Supported compilers",
  			   'benchs' => 'Supported benchmarks' },
***************
*** 233,237 ****
    print "</h1>";
    if (defined($topics_order)) {
!     print "<h2>$topics->{$topic}</h2>";
    }
  
--- 233,237 ----
    print "</h1>";
    if (defined($topics_order)) {
!     print "<h2>$topics->{$topic}XXXX</h2>";
    }
  
***************
*** 270,274 ****
    print "<table width='100%' summary='iface_start' cellpadding='2' cellspacing='0'>";
  
!   print "<tr><td class='iface_title'>CompBenchmarks</td><td align='right' class='iface_title' valign='top'><img src=\"$LT_WEB_ICONS/logo-24x32.png\" alt=\"Logo\" height='24'></td></tr>";
    print "<tr><td valign='top' class='iface_menu'>";
  
--- 270,277 ----
    print "<table width='100%' summary='iface_start' cellpadding='2' cellspacing='0'>";
  
!   print "<tr>";
!   print "<td class='iface_title' colspan='2'>";
!   print "<table width='100%' summary='top banner'><tr><td>CompBenchmarks</td><td align='right' valign='top'><img src=\"$LT_WEB_ICONS/logo-24x32.png\" alt=\"Logo\" height='24'></td></tr>";
!   print "</table></td></tr>";
    print "<tr><td valign='top' class='iface_menu'>";
  
***************
*** 336,339 ****
--- 339,343 ----
  sub iface_end {
    my ($an, $us) = lt_session_opened();
+   my @tabs      = iface_tabs_for_acls();
  
    my $mod;
***************
*** 350,353 ****
--- 354,383 ----
  
    print "</td></tr>";
+ 
+ #  if (@tabs+0) {
+ #    print "<td> </td></tr>";
+ 
+ #    print "<tr><td> </td>";
+ #    print "<td colspan='*' align='right'>";
+ #    my $cur_i = 0;
+ #    my $i = 0;
+ #    my $n = (@tabs + 0);
+ 
+ #    foreach(@tabs) {
+ #      if ($tab eq $_) {
+ #	$cur_i=$i;
+ #	$i++;
+ #	last;
+ #      }
+ #    }
+ #    $i=0;
+ #    if ($cur_i != 0) {
+ #      print "&lt;&lt;<a href='/cgi-bin/?tab=$Previous
+ 
+ #    }
+ #    print "
+ #    print "</td></tr>";
+ #  }
+ 
    print "<tr><td class='iface_bottom' colspan='2'>";
  

Index: config.pl
===================================================================
RCS file: /cvsroot/compbench/compbenchmarks-web/lib/config.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** config.pl	30 Nov 2006 18:31:35 -0000	1.6
--- config.pl	24 Sep 2007 21:29:03 -0000	1.7
***************
*** 28,31 ****
--- 28,32 ----
  		 'lt_gcc_sys_user',
  		 'lt_gcc_sys_session',
+ 		 'lt_cbm_version',
  		 'lt_gcc_sys_env');
  
***************
*** 60,63 ****
--- 61,66 ----
  our $LT_GCC_SYS_USER;
  
+ our $LT_CBM_VERSION;
+ 
  my  $config_read = 0;

Thread: [Compbench-web-devel] compbenchmarks-web/lib config.pl, 1.6, 1.7 html.pl, 1.15, 1.16 interface.pl,

compbench-web-devel