From owner-svn-src-user@FreeBSD.ORG  Tue Feb 19 02:25:06 2013
Return-Path: <owner-svn-src-user@FreeBSD.ORG>
Delivered-To: svn-src-user@freebsd.org
Received: from mx1.freebsd.org (mx1.FreeBSD.org [8.8.178.115])
 by hub.freebsd.org (Postfix) with ESMTP id D9F1590;
 Tue, 19 Feb 2013 02:25:06 +0000 (UTC)
 (envelope-from linimon@FreeBSD.org)
Received: from svn.freebsd.org (svn.freebsd.org
 [IPv6:2001:1900:2254:2068::e6a:0])
 by mx1.freebsd.org (Postfix) with ESMTP id BD8A4629;
 Tue, 19 Feb 2013 02:25:06 +0000 (UTC)
Received: from svn.freebsd.org ([127.0.1.70])
 by svn.freebsd.org (8.14.5/8.14.5) with ESMTP id r1J2P6Bq015523;
 Tue, 19 Feb 2013 02:25:06 GMT (envelope-from linimon@svn.freebsd.org)
Received: (from linimon@localhost)
 by svn.freebsd.org (8.14.5/8.14.5/Submit) id r1J2P6uV015522;
 Tue, 19 Feb 2013 02:25:06 GMT (envelope-from linimon@svn.freebsd.org)
Message-Id: <201302190225.r1J2P6uV015522@svn.freebsd.org>
From: Mark Linimon <linimon@FreeBSD.org>
Date: Tue, 19 Feb 2013 02:25:06 +0000 (UTC)
To: src-committers@freebsd.org, svn-src-user@freebsd.org
Subject: svn commit: r246961 - user/bugmeister/gnats/tools
X-SVN-Group: user
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-BeenThere: svn-src-user@freebsd.org
X-Mailman-Version: 2.1.14
Precedence: list
List-Id: "SVN commit messages for the experimental &quot; user&quot;
 src tree" <svn-src-user.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/options/svn-src-user>,
 <mailto:svn-src-user-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/svn-src-user>
List-Post: <mailto:svn-src-user@freebsd.org>
List-Help: <mailto:svn-src-user-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/svn-src-user>,
 <mailto:svn-src-user-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Tue, 19 Feb 2013 02:25:06 -0000

Author: linimon (doc,ports committer)
Date: Tue Feb 19 02:25:06 2013
New Revision: 246961
URL: http://svnweb.freebsd.org/changeset/base/246961

Log:
  Production copy of www/en/cgi/cgi-style.pl.

Added:
  user/bugmeister/gnats/tools/cgi-style.pl   (contents, props changed)

Added: user/bugmeister/gnats/tools/cgi-style.pl
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ user/bugmeister/gnats/tools/cgi-style.pl	Tue Feb 19 02:25:06 2013	(r246961)
@@ -0,0 +1,224 @@
+# $FreeBSD$
+#
+# Perl routines to encapsulate various elements of HTML page style.
+
+# For future reference, when is now?
+($se,$mn,$hr,$md,$mo,$yr,$wd,$yd,$dst) = localtime(time);
+$yr += 1900;
+$mo += 1;
+$timestamp = "$mo-$md-$yr";
+
+if (!defined($hsty_base)) { 
+    # $hsty_base should be relative if possible, so that mirrors
+    # serve their local copy instead of going to the main site.
+    # However, if we aren't running as a cgi, or if we're
+    # running on cgi, hub, docs or people, use the absolute home path.
+    if (!defined($ENV{'HTTP_HOST'}) ||
+	$ENV{'HTTP_HOST'} =~ /(cgi|hub|docs|people).freebsd.org/i) {
+
+	$hsty_base = 'http://www.FreeBSD.org'
+    } else {
+	$hsty_base = '..';
+    }
+}
+if (!defined($hsty_email)) {
+    $hsty_email = 'www@FreeBSD.org';
+}
+if (!defined($hsty_author)) {
+    $hsty_author = "<a href='$hsty_base/mailto.html'>$hsty_email</a>";
+}
+
+if (!defined($hsty_date)) {
+    $hsty_date = '';
+}
+
+# This can be set to either a string containing an inline CSS stylesheet
+# or to a <link> element that references an external CSS stylesheet, to
+# make local modifications to the style of a CGI script's output.
+$t_style = "";	# Don't allow script to override completely, just
+		# let the script's setting cascade with the master.
+
+$i_topbar = qq`
+    <div id="containerwrap">
+      <div id="container">
+        <span class="txtoffscreen"><a href="#content"
+        title="Skip site navigation" accesskey="1">Skip site
+        navigation</a> (1)</span><span class="txtoffscreen"><a
+        href="#content" title="Skip section navigation"
+        accesskey="2">Skip section navigation</a> (2)</span>
+
+        <div id="headercontainer">
+          <div id="header">
+            <h2 class="blockhide">Header And Logo</h2>
+
+            <div id="headerlogoleft">
+              <a href="$hsty_base" title="FreeBSD"><img
+              src="$hsty_base/layout/images/logo-red.png" width="457"
+              height="75" alt="FreeBSD" /></a>
+            </div>
+
+            <div id="headerlogoright">
+              <h2 class="blockhide">Peripheral Links</h2>
+
+              <div id="searchnav">
+                <ul id="searchnavlist">
+                  <li>Text Size: <a href="#"
+                  onkeypress="return false;"
+                  onclick="setActiveStyleSheet('Normal Text'); return false;"
+                   title="Normal Text Size">Normal</a> / <a
+                  href="#" onkeypress="return false;"
+                  onclick="setActiveStyleSheet('Large Text'); return false;"
+                   title="Large Text Size">Large</a></li>
+
+                  <li><a href="$hsty_base/donations/"
+                  title="Donate">Donate</a></li>
+
+                  <li class="last-child"><a href="$hsty_base/mailto.html"
+                  title="Contact">Contact</a></li>
+                </ul>
+              </div>
+
+              <div id="search">
+                <form
+                action="http://www.FreeBSD.org/cgi/search.cgi"
+                method="get">
+                  <div>
+                    <h2 class="blockhide"><label
+                    for="words">Search</label></h2>
+                    <input type="hidden" name="max"
+                    value="25" /><input type="hidden" name="source"
+                    value="www" /><input id="words" name="words"
+                    type="text" size="20" maxlength="255"
+                    onfocus="if( this.value==this.defaultValue ) this.value='';"
+                     value="Search" />&nbsp;<input id="submit"
+                    name="submit" type="submit" value="Search" />
+                  </div>
+                </form>
+              </div>
+            </div>
+          </div>
+
+          <h2 class="blockhide">Site Navigation</h2>
+
+          <div id="topnav">
+            <ul id="topnavlist">
+              <li><a href="$hsty_base/" title="Home">Home</a></li>
+
+              <li><a href="$hsty_base/about.html"
+              title="About">About</a></li>
+
+              <li><a href="$hsty_base/where.html" title="Get FreeBSD">Get
+              FreeBSD</a></li>
+
+              <li><a href="$hsty_base/docs.html"
+              title="Documentation">Documentation</a></li>
+
+              <li><a href="$hsty_base/community.html"
+              title="Community">Community</a></li>
+
+              <li><a href="$hsty_base/projects/index.html"
+              title="Developers">Developers</a></li>
+
+              <li><a href="$hsty_base/support.html"
+              title="Support">Support</a></li>
+            </ul>
+          </div>
+        </div>
+
+	<div id="content">
+`;
+
+#XXX does anyone use this? I don't know what it should be in the new style.
+if (!defined($hsty_home)) {
+    $hsty_home = "<a href='$hsty_base/'><img src='$hsty_base/gifs/home.gif'
+  alt='FreeBSD Home Page' border='0' align='right'></a>";
+}
+
+sub html_header {
+    local ($title, $xhtml) = @_;
+
+    # XXX MCL refactored
+    return qq`Content-type: text/html
+
+` . short_html_header($title, $xhtml) . "<h1>$title</h1>\n";
+}
+
+# XXX MCL added
+sub noninteractive_html_header {
+    local ($title, $xhtml) = @_;
+
+    return short_html_header($title, $xhtml) . "<h1>$title</h1>\n";
+}
+
+sub short_html_header {
+    local ($title, $xhtml) = @_;
+
+    $xhtml = 1 unless defined($xhtml);
+    $doctype = $xhtml ?  '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' : '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">';
+    $html = $xhtml ? '<html xmlns="http://www.w3.org/1999/xhtml">' : '<html>';
+    $endslash = $xhtml ? '/' : '';
+    $csshack = (1 || $xhtml) ? '' : q`<style type="text/css">
+tr, td {
+  margin: 0;
+  padding: 0;
+  font-family: verdana, sans-serif;
+  font-size: 69%;
+  color: #000;
+}
+</style>
+`;
+
+    return qq`$doctype
+$html
+
+<head><title>$title</title>
+<meta http-equiv='content-type' content='text/html; charset=iso-8859-1' $endslash>
+<meta name='robots' content='nofollow' $endslash>
+    <link rel="stylesheet" media="screen"
+    href="$hsty_base/layout/css/fixed.css" type="text/css"
+    title="Normal Text" $endslash>
+    <link rel="alternate stylesheet" media="screen"
+    href="$hsty_base/layout/css/fixed_large.css" type="text/css"
+    title="Large Text" $endslash>
+$csshack
+<script type="text/javascript" src="$hsty_base/layout/js/styleswitcher.js">
+</script>
+$t_style
+</head>
+<body>
+$i_topbar
+`;
+}
+
+sub html_footer {
+    return qq`
+	</div>
+        <div id="footer">
+          <a href="$hsty_base/copyright/">Legal Notices</a> | &copy; 1995-2008
+          The FreeBSD Project. All rights reserved.<br />
+	  <address>$hsty_author<br />$hsty_date</address>
+        </div>
+      </div>
+    </div>
+  </body>
+</html>
+`;
+
+
+}
+
+sub get_the_source {
+    return if $ENV{'PATH_INFO'} ne '/get_the_source';
+
+    open(R, $0) || do { 
+	print "Oops! open $0: $!\n";  # should not reached
+	exit;
+    };
+
+    print "Content-type: text/plain\n\n";
+    while(<R>) { print }
+    close R;
+    exit;
+}
+
+1;