зеркало из https://github.com/mozilla/gecko-dev.git
77 строки
2.1 KiB
Perl
77 строки
2.1 KiB
Perl
# ***** BEGIN LICENSE BLOCK *****
|
|
# Version: MPL 1.1
|
|
#
|
|
# The contents of this file are subject to the Mozilla Public License Version
|
|
# 1.1 (the "License"); you may not use this file except in compliance with
|
|
# the License. You may obtain a copy of the License at
|
|
# http://www.mozilla.org/MPL/
|
|
#
|
|
# Software distributed under the License is distributed on an "AS IS" basis,
|
|
# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
|
# for the specific language governing rights and limitations under the
|
|
# License.
|
|
#
|
|
# The Original Code is Tinderbox 3.
|
|
#
|
|
# The Initial Developer of the Original Code is
|
|
# John Keiser (john@johnkeiser.com).
|
|
# Portions created by the Initial Developer are Copyright (C) 2004
|
|
# the Initial Developer. All Rights Reserved.
|
|
#
|
|
# Contributor(s):
|
|
#
|
|
# ***** END LICENSE BLOCK *****
|
|
|
|
package Tinderbox3::Header;
|
|
|
|
use strict;
|
|
|
|
use CGI::Carp qw(fatalsToBrowser);
|
|
|
|
require Exporter;
|
|
our @ISA = qw(Exporter);
|
|
our @EXPORT = qw(header footer);
|
|
|
|
sub header {
|
|
my ($p, $login, $cookie, $title, $tree, $machine_id, $machine_name) = @_;
|
|
print $p->header(-cookie => $cookie);
|
|
print <<EOM;
|
|
<html>
|
|
<head>
|
|
<title>Tinderbox - $title</title>
|
|
<link rel="stylesheet" type="text/css" href="tbox3-admin.css">
|
|
</head>
|
|
<body>
|
|
<h2>$title</h2>
|
|
EOM
|
|
|
|
nav_links($login, $tree, $machine_id, $machine_name);
|
|
}
|
|
|
|
sub footer {
|
|
print <<EOM;
|
|
</body>
|
|
</html>
|
|
EOM
|
|
}
|
|
|
|
sub nav_links {
|
|
my ($login, $tree, $machine_id, $machine_name) = @_;
|
|
print "<p>\n";
|
|
if ($login) {
|
|
print "Logged in as: $login (<a href='admin.pl?-logout=1'>Log out</a>)\n";
|
|
} else {
|
|
print "Not Logged In (<a href='login.pl'>Log in</a>)\n";
|
|
}
|
|
print "<br><strong><a href='admin.pl'>Administrate Tinderbox</a></strong>";
|
|
if ($tree) {
|
|
print "<br>Tree $tree: <a href='sheriff.pl?tree=$tree'>Sheriff Tree</a> | <a href='admintree.pl?tree=$tree'>Edit Tree</a> | <a href='showbuilds.pl?tree=$tree'>View Tree</a>\n";
|
|
if ($machine_id) {
|
|
print "<br>$machine_name: <a href='adminmachine.pl?machine_id=$machine_id'>Edit</a> | <a href='adminmachine.pl?action=kick_machine&machine_id=$machine_id'>Kick</a>\n";
|
|
}
|
|
}
|
|
print "</strong></p>\n";
|
|
}
|
|
|
|
1
|