menu.php3 31.2 KB
Newer Older
1
<?php
Leigh B. Stoller's avatar
Leigh B. Stoller committed
2
3
#
# EMULAB-COPYRIGHT
4
# Copyright (c) 2000-2005 University of Utah and the Flux Group.
Leigh B. Stoller's avatar
Leigh B. Stoller committed
5
6
# All rights reserved.
#
7

8
$login_status     = CHECKLOGIN_NOTLOGGEDIN;
9
$login_uid        = 0;
10
$drewheader       = 0;
11
$noheaders	  = 0;
12
$autorefresh      = 0;
13

14
15
16
17
18
19
#
# This has to be set so we can spit out http or https paths properly!
# Thats because browsers do not like a mix of secure and nonsecure.
# 
$BASEPATH	  = "";

20
#
21
22
# TOPBARCELL - Make a cell for the topbar. Actually, the name lies, it can be
# used for cells in a bottombar too.
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#
function TOPBARCELL($contents) {
    echo "<td class=\"topbaropt\">";
    echo "<span class=\"topbaroption\">&nbsp;";
    echo $contents;
    echo "&nbsp;</span>";
    echo "</td>";
    echo "\n";
}

#
# SIDEBARCELL - Make a cell for the sidebar
#
function SIDEBARCELL($contents, $last = 0) {
    echo "<tr>";
    if ($last) {
	echo "<td class=\"menuoptb\">";
    } else {
	echo "<td class=\"menuopt\">";
    }
43
    echo "$contents";
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
    echo "</td>";
    echo "</tr>";
    echo "\n";
}

#
# WRITETOPBARBUTTON(text, base, link): Write a button in the topbar
#
function WRITETOPBARBUTTON($text, $base, $link ) {
    $link = "$base/$link";
    TOPBARCELL("<a href=\"$link\">$text</a>");
}
# same as above with "new" gif next to it.
function WRITETOPBARBUTTON_NEW($text, $base, $link ) {
    $link = "$base/$link";
    TOPBARCELL("<a href=\"$link\">$text</a>&nbsp;<img src=\"/new.gif\" />");
}

62
63
64
65
66
67
68
#
# WRITESIDEBARDIVIDER(): Put a bit of whitespace in the sidebar
#
function WRITESIDEBARDIVIDER() {
    global $BASEPATH;
    echo "<tr>";
    echo "<td class=\"menuoptdiv\">";
69
    # We have to put something in this cell, or IE ignores it. But, we do not
70
71
72
73
74
75
76
    # want to make the table row full line-height, so a space will not do.
    echo "<img src=\"$BASEPATH/1px.gif\" border=0 height=1 width=1 />";
    echo "</td>";
    echo "</tr>";
    echo "\n";
}

77
78
79
80
81
#
# WRITESIDEBARBUTTON(text, link): Write a button on the sidebar menu.
# We do not currently try to match the current selection so that its
# link looks different. Not sure its really necessary.
#
Chad Barb's avatar
   
Chad Barb committed
82
function WRITESIDEBARBUTTON($text, $base, $link ) {
83
84
    if ($base)
	$link = "$base/$link";
85
    SIDEBARCELL("<a href=\"$link\">$text</a>");
Chad Barb's avatar
   
Chad Barb committed
86
}
87

Chad Barb's avatar
   
Chad Barb committed
88
89
90
# same as above with "new" gif next to it.
function WRITESIDEBARBUTTON_NEW($text, $base, $link ) {
    $link = "$base/$link";
91
    SIDEBARCELL("<a href=\"$link\">$text</a>&nbsp;<img src=\"/new.gif\" />");
Chad Barb's avatar
   
Chad Barb committed
92
93
}

Chad Barb's avatar
   
Chad Barb committed
94
95
96
# same as above with "cool" gif next to it.
function WRITESIDEBARBUTTON_COOL($text, $base, $link ) {
    $link = "$base/$link";
97
    SIDEBARCELL("<a href=\"$link\">$text</a>&nbsp;<img src=\"/cool.gif\" />");
Chad Barb's avatar
   
Chad Barb committed
98
99
}

Leigh B. Stoller's avatar
Leigh B. Stoller committed
100
101
function WRITESIDEBARBUTTON_ABS($text, $base, $link ) {
    $link = "$link";
102
    SIDEBARCELL("<a href=\"$link\">$text</a>\n");
Leigh B. Stoller's avatar
Leigh B. Stoller committed
103
104
}

Chad Barb's avatar
   
Chad Barb committed
105
106
function WRITESIDEBARBUTTON_ABSCOOL($text, $base, $link ) {
    $link = "$link";
107
    SIDEBARCELL("<a href=\"$link\">$text</a>&nbsp;<img src=\"/cool.gif\" />");
Chad Barb's avatar
   
Chad Barb committed
108
109
}

Chad Barb's avatar
   
Chad Barb committed
110
111
112
113
114
# same as above, but uses a slightly different style sheet so there
# is more padding below the last button.
# The devil is, indeed, in the details.
function WRITESIDEBARLASTBUTTON($text, $base, $link) {
    $link = "$base/$link";
115
    SIDEBARCELL("<a href=\"$link\">$text</a>",1);
Chad Barb's avatar
   
Chad Barb committed
116
117
}

Chad Barb's avatar
Chad Barb committed
118
119
function WRITESIDEBARLASTBUTTON_COOL($text, $base, $link) {
    $link = "$base/$link";
120
    SIDEBARCELL("<a href=\"$link\">$text</a>&nbsp;<img src=\"/cool.gif\" />",1);
Chad Barb's avatar
Chad Barb committed
121
122
}

Chad Barb's avatar
   
Chad Barb committed
123
124
# writes a message to the sidebar, without clickability.
function WRITESIDEBARNOTICE($text) {
125
126
127
128
129
130
131
132
133
134
135
136
137
138
    SIDEBARCELL("<b>$text</b>");
}

#
# Something like the sidebar, but across the top, with only a few options.
# Think Google. For PlanetLab users, but it would be easy enough to make
# others. Still a work in progress.
#
function WRITEPLABTOPBAR() {
    echo "<table class=\"topbar\" width=\"100%\" cellpadding=\"2\" cellspacing=\"0\" align=\"center\">\n";
    global $login_status, $login_uid;
    global $TBBASE, $TBDOCBASE, $BASEPATH;
    global $THISHOMEBASE;

139
140
    WRITETOPBARBUTTON("Create a Slice",
        $TBBASE, "plab_ez.php3");
141

142
    WRITETOPBARBUTTON("Nodes",
143
144
145
146
147
148
149
150
        $TBBASE, "plabmetrics.php3");

    WRITETOPBARBUTTON("My Testbed",
	$TBBASE,
	"showuser.php3?target_uid=$login_uid");


    WRITETOPBARBUTTON("Advanced Experiment",
151
        $TBBASE, "beginexp_html.php3");
152

153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
    if ($login_status & CHECKLOGIN_TRUSTED) {
	# Only project/group leaders can do these options
	# Show a "new" icon if there are people waiting for approval
	$query_result =
	DBQueryFatal("select g.* from group_membership as authed ".
		     "left join group_membership as g on ".
		     " g.pid=authed.pid and g.gid=authed.gid ".
		     "left join users as u on u.uid=g.uid ".
		     "where u.status!='".
		     TBDB_USERSTATUS_UNVERIFIED . "' and ".
		     " u.status!='" . TBDB_USERSTATUS_NEWUSER . 
		     "' and g.uid!='$login_uid' and ".
		     "  g.trust='". TBDB_TRUSTSTRING_NONE . "' ".
		     "  and authed.uid='$login_uid' and ".
		     "  (authed.trust='group_root' or ".
		     "   authed.trust='project_root') ".
		     "ORDER BY g.uid,g.pid,g.gid");
	if (mysql_num_rows($query_result) > 0) {
	     WRITETOPBARBUTTON_NEW("Approve Users",
				   $TBBASE, "approveuser_form.php3");
	} else {
	    WRITETOPBARBUTTON("Approve Users",
			       $TBBASE, "approveuser_form.php3");
	}
    }

    WRITETOPBARBUTTON("Log Out", $TBBASE, "logout.php3?next_page=" .
	urlencode($TBBASE . "/login_plab.php3"));

182
183
184
    echo "</table>\n";
    echo "<br>\n";

185
186
}

187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203

#
# Put a few things that PlanetLab users should see, but are non-essential,
# across the bottom of the page rather than the top
#
function WRITEPLABBOTTOMBAR() {
    global $login_status, $login_uid;
    global $TBBASE, $TBDOCBASE, $BASEPATH;
    global $THISHOMEBASE;

    if ($login_uid) {
	$newsBase = $TBBASE; 
    } else {
	$newsBase = $TBDOCBASE;
    }

    echo "
204
205
206
	   <center>
	   <br>
	   <font size=-1>
207
	   <form method=get action=$TBDOCBASE/search.php3>
208
209
210
211
	   [ <a href='$TBDOCBASE/doc.php3'>
		Documentation</a> : <input name=query size = 15/>
		  <input type=submit style='font-size:10px;' value='Search' /> ]
	   [ <a href='$newsBase/news.php3'>
212
		News</a> ]
213
214
215
216
	   </form>
	   </font>
	   <br>
	   </center>\n";
217
218
219

}

220
221
222
223
224
#
# WRITESIDEBAR(): Write the menu. The actual menu options the user
# sees depends on the login status and the DB status.
#
function WRITESIDEBAR() {
225
226
    global $login_status, $login_uid, $pid, $gid;
    global $TBBASE, $TBDOCBASE, $BASEPATH, $WIKISUPPORT, $MAILMANSUPPORT;
227
    global $BUGDBSUPPORT, $BUGDBURL, $CVSSUPPORT, $CHATSUPPORT;
228
    global $CHECKLOGIN_WIKINAME;
229
    global $THISHOMEBASE;
230
    $firstinitstate = TBGetFirstInitState();
231
232
233

    #
    # The document base cannot be a mix of secure and nonsecure.
234
    #
Chad Barb's avatar
   
Chad Barb committed
235
236
237
    
    # create the main menu table, which also happens to reside in a form
    # (for search.)
Chad Barb's avatar
   
Chad Barb committed
238
239
240
241
242
243
244
245
246

    #
    # get post time of most recent news;
    # get both displayable version and age in days.
    #
    $query_result = 
	DBQueryFatal("SELECT DATE_FORMAT(date, '%M&nbsp;%e') AS prettydate, ".
		     " (TO_DAYS(NOW()) - TO_DAYS(date)) AS age ".
		     "FROM webnews ".
247
		     "WHERE archived=0 ".
Chad Barb's avatar
   
Chad Barb committed
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
		     "ORDER BY date DESC ".
		     "LIMIT 1");
    $newsDate = "";
    $newNews  = 0;

    #
    # This is so an admin can use the editing features of news.
    #
    if ($login_uid) { # && ISADMIN($login_uid)) { 
	$newsBase = $TBBASE; 
    } else {
	$newsBase = $TBDOCBASE;
    }

    if ($row = mysql_fetch_array($query_result)) {
	$newsDate = "(".$row[prettydate].")";
	if ($row[age] < 7) {
	    $newNews = 1;
	}
    }

269
    echo "<FORM method=get ACTION=$TBDOCBASE/search.php3>\n";
Chad Barb's avatar
   
Chad Barb committed
270
?>
271
  <script type='text/javascript' language='javascript' src='textbox.js'></script>
272
  <table class="menu" width=210 cellpadding="0" cellspacing="0">
Chad Barb's avatar
   
Chad Barb committed
273
274
    <tr><td class="menuheader"><b>Information</b></td></tr>
<?php
Chad Barb's avatar
   
Chad Barb committed
275
276
277
278
279
280
    if (0 == strcasecmp($THISHOMEBASE, "emulab.net")) {
	$rootEmulab = 1;
    } else {
	$rootEmulab = 0;
    }

281
    WRITESIDEBARBUTTON("Home", $TBDOCBASE, "index.php3?stayhome=1");
282

Chad Barb's avatar
   
Chad Barb committed
283
284

    if ($rootEmulab) {
285
	WRITESIDEBARBUTTON("Other Emulabs", $TBDOCBASE,
Chad Barb's avatar
   
Chad Barb committed
286
287
288
289
290
291
			       "docwrapper.php3?docname=otheremulabs.html");
    } else {
	WRITESIDEBARBUTTON_ABS("Utah Emulab", $TBDOCBASE,
			       "http://www.emulab.net/");

    }
Chad Barb's avatar
   
Chad Barb committed
292

Chad Barb's avatar
   
Chad Barb committed
293
294
295
296
297
298
    if ($newNews) {
	WRITESIDEBARBUTTON_NEW("News $newsDate", $newsBase, "news.php3");
    } else {
	WRITESIDEBARBUTTON("News $newsDate", $newsBase, "news.php3");
    }

299
    WRITESIDEBARBUTTON("Documentation", $TBDOCBASE, "doc.php3");
Chad Barb's avatar
   
Chad Barb committed
300
301

    if ($rootEmulab) {
302
303
	# Leave _NEW here about 2 weeks
	WRITESIDEBARBUTTON_NEW("Papers (Dec 24)", $TBDOCBASE, "pubs.php3");
304
	WRITESIDEBARBUTTON("Software (Jul 18)",
305
			       $TBDOCBASE, "software.php3");
306
307
	#WRITESIDEBARBUTTON("Add Widearea Node (CD)",
	#		    $TBDOCBASE, "cdrom.php");
308
309
310
311
312
313
314
315

	SIDEBARCELL("<a href=\"$TBDOCBASE/people.php3\">People</a> and " .
	            "<a href=\"$TBDOCBASE/gallery/gallery.php3\">Photos</a>");

	SIDEBARCELL("Emulab <a href=\"$TBDOCBASE/doc/docwrapper.php3? " .
		    "docname=users.html\">Users</a> and " .
	            "<a href=\"$TBDOCBASE/docwrapper.php3? " .
		    "docname=sponsors.html\">Sponsors</a>",1);
Chad Barb's avatar
   
Chad Barb committed
316
    } else {
317
	# Link ALWAYS TO UTAH
318
319
	#WRITESIDEBARBUTTON_ABSCOOL("Add Widearea Node (CD)",
	#		       $TBDOCBASE, "http://www.emulab.net/cdrom.php");
Chad Barb's avatar
   
Chad Barb committed
320
321
322
	WRITESIDEBARLASTBUTTON("Projects on Emulab", $TBDOCBASE,
			       "projectlist.php3");
    }
323

324
    # The actual search box. Form starts above ...
325
    echo "<tr><td class=menuoptst>
326
327
328
329
                 <input class='textInputEmpty' name=query
                        value='Search String'
                        size=16 onfocus='focus_text(this, \"Search String\")'
                        onblur='blur_text(this, \"Search String\")' />".
330
	"<input type=submit style='font-size:10px;' value=Search /><br>".
331
	"</td></tr>\n";
332
    WRITESIDEBARDIVIDER();
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361

    #
    # Cons up a nice message.
    # 
    switch ($login_status & CHECKLOGIN_STATUSMASK) {
    case CHECKLOGIN_LOGGEDIN:
	$login_message = 0;
	    
	if ($login_status & CHECKLOGIN_PSWDEXPIRED)
	    $login_message = "$login_message<br>(Password Expired!)";
	elseif ($login_status & CHECKLOGIN_UNAPPROVED)
	    $login_message = "$login_message<br>(Unapproved!)";
	break;
    case CHECKLOGIN_TIMEDOUT:
	$login_message = "Login Timed out.";
	break;
    default:
	$login_message = 0;
	break;
    }

    if ($login_message) {
      echo "<tr>";
      echo "<td class=menuoptst style='padding-top: 6px;' ><center><b>";
      echo "$login_message</b></center></td>";
      echo "</tr>";
    }

    #
362
363
    # Now the login box. Remember, already inside a table.
    # We want the links to the login pages to always be https,
364
365
366
    # but the images path depends on whether the page was loaded as
    # http or https, since we do not want to mix them, since they
    # cause warnings.
367
368
369
    #
    if (! ($login_status & (CHECKLOGIN_LOGGEDIN|CHECKLOGIN_MAYBEVALID)) &&
	!NOLOGINS()) {
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
	echo "<tr>";
	echo "<td class=\"menuoptst\" align=center valign=center>";

	if (!$firstinitstate) {
	    echo "<a href=\"$TBBASE/reqaccount.php3\">";
	    echo "<img alt=\"Request Account\" border=0 ";
	    echo "src=\"$BASEPATH/requestaccount.gif\"></a>";

	    echo "<br /><b>or</b><br />";
	}

	echo "<a href=\"$TBBASE/login.php3\">";
	echo "<img alt=\"logon\" border=0 ";
	echo "src=\"$BASEPATH/logon.gif\"></a>\n";

	echo "</td></tr>\n";
    }

    #
    # Login message. Set via 'web/message' site variable
    #
    $message = TBGetSiteVar("web/message");
    if (0 != strcmp($message,"")) {
	WRITESIDEBARNOTICE($message);    	
    }

396
    echo "</table>\n";
397

398
399
400
401
402
403
404
405
    # Start Interaction section if going to spit out interaction options.
    if ($login_status & (CHECKLOGIN_LOGGEDIN|CHECKLOGIN_MAYBEVALID)) {
	echo "<table class=menu width=210 cellpadding=0 cellspacing=0>".
	    "<tr><td class=menuheader>".
	    "<b>Experimentation</b>".
	    "</td></tr>\n";
    }

406
407
408
409
410
411
    #
    # Basically, we want to let admin people continue to use
    # the web interface even when nologins set. But, we want to make
    # it clear its disabled.
    # 
    if (NOLOGINS()) {
412
413
414
415
	echo "<table class=menu width=210 cellpadding=0 cellspacing=0>".
	    "<tr><td class=menuheader> &nbsp".
	    "</td></tr>\n";
	
416
417
        WRITESIDEBARBUTTON("<font color=red> ".
			   "Web Interface Temporarily Unavailable</font>",
418
419
			   $TBDOCBASE, "nologins.php3");

Chad Barb's avatar
   
Chad Barb committed
420
421
422
        if (!$login_uid || !ISADMIN($login_uid)) {	
	    WRITESIDEBARNOTICE("Please Try Again Later");
        }
423
	echo "</table>\n";
424
    }
Chad Barb's avatar
   
Chad Barb committed
425

426
    if ($login_status & (CHECKLOGIN_LOGGEDIN|CHECKLOGIN_MAYBEVALID)) {
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
	if ($firstinitstate != null) {    
	    if ($firstinitstate == "createproject") {
		WRITESIDEBARBUTTON("Create First Project",
				   $TBBASE, "newproject.php3");
	    }
	    elseif ($firstinitstate == "approveproject") {
		$firstinitpid = TBGetFirstInitPid();
		
		WRITESIDEBARBUTTON("Approve First Project",
				   $TBBASE,
				   "approveproject.php3?pid=$firstinitpid".
				   "&approval=approve");
	    }
	}
	elseif ($login_status & CHECKLOGIN_ACTIVE) {
442
	    if ($login_status & CHECKLOGIN_PSWDEXPIRED) {
443
		WRITESIDEBARBUTTON("Change Your Password",
444
				   $TBBASE, "moduserinfo.php3");
445
	    }
Leigh B. Stoller's avatar
Leigh B. Stoller committed
446
	    elseif ($login_status & (CHECKLOGIN_WEBONLY|CHECKLOGIN_WIKIONLY)) {
447
448
449
		WRITESIDEBARBUTTON("My Emulab",
				   $TBBASE,
				   "showuser.php3?target_uid=$login_uid");
450
451
452
453
454

		if ($WIKISUPPORT && $CHECKLOGIN_WIKINAME != "") {
		    $wikiname = $CHECKLOGIN_WIKINAME;
		
		    WRITESIDEBARBUTTON_ABSCOOL("My Wikis",
455
456
			       "gotowiki.php3?redurl=Main/$wikiname",
			       "gotowiki.php3?redurl=Main/$wikiname");
457
		}
458

459
460
461
		WRITESIDEBARBUTTON("Update User Information",
				   $TBBASE, "moduserinfo.php3");
	    }
462
	    else {
Leigh B. Stoller's avatar
Leigh B. Stoller committed
463
		WRITESIDEBARBUTTON("My Emulab",
464
465
				   $TBBASE,
				   "showuser.php3?target_uid=$login_uid");
466

467
		#
468
469
470
471
                # Since a user can be a member of more than one project,
                # display this option, and let the form decide if the 
                # user is allowed to do this.
                #
472
473
 		WRITESIDEBARBUTTON("Begin an Experiment",
				   $TBBASE, "beginexp_html.php3");
474
	
475
476
		# Put _NEW back when Plab is working again.
		WRITESIDEBARBUTTON("Create a PlanetLab Slice",
477
478
479
480
481
482
483
				       $TBBASE, "plab_ez.php3");

		WRITESIDEBARBUTTON("Experiment List",
				   $TBBASE, "showexp_list.php3");

		WRITESIDEBARDIVIDER();

484
		WRITESIDEBARBUTTON("Node Status",
485
486
				   $TBBASE, "nodecontrol_list.php3");

487
488
489
490
491
		SIDEBARCELL("List <a " .
			"href=\"$TBBASE/showimageid_list.php3\">" .
	        	"ImageIDs</a> or <a " .
	                "href=\"$TBBASE/showosid_list.php3\">OSIDs</a>");

492
		if ($login_status & CHECKLOGIN_TRUSTED) {
493
		  WRITESIDEBARDIVIDER();
494
495
496
                  # Only project/group leaders can do these options
                  # Show a "new" icon if there are people waiting for approval
		  $query_result =
497
498
499
		    DBQueryFatal("select g.* from group_membership as authed ".
				 "left join group_membership as g on ".
				 " g.pid=authed.pid and g.gid=authed.gid ".
500
				 "left join users as u on u.uid=g.uid ".
501
				 "where u.status!='".
502
				 TBDB_USERSTATUS_UNVERIFIED . "' and ".
503
504
505
506
507
508
				 " u.status!='" . TBDB_USERSTATUS_NEWUSER . 
				 "' and g.uid!='$login_uid' and ".
				 "  g.trust='". TBDB_TRUSTSTRING_NONE . "' ".
				 "  and authed.uid='$login_uid' and ".
				 "  (authed.trust='group_root' or ".
				 "   authed.trust='project_root') ".
509
510
511
512
513
				 "ORDER BY g.uid,g.pid,g.gid");
		  if (mysql_num_rows($query_result) > 0) {
		    WRITESIDEBARBUTTON_NEW("New User Approval",
					   $TBBASE, "approveuser_form.php3");
		  } else {
514
515

		      WRITESIDEBARBUTTON("New User Approval",
516
				       $TBBASE, "approveuser_form.php3");
517
		  }
518
		}
519
	    }
520
	}
521
	elseif ($login_status & (CHECKLOGIN_UNVERIFIED|CHECKLOGIN_NEWUSER)) {
522
523
	    WRITESIDEBARBUTTON("New User Verification",
			       $TBBASE, "verifyusr_form.php3");
524
	    WRITESIDEBARBUTTON("Update User Information",
525
			       $TBBASE, "moduserinfo.php3");
526
	}
527
	elseif ($login_status & (CHECKLOGIN_UNAPPROVED)) {
528
	    WRITESIDEBARBUTTON("Update User Information",
529
			       $TBBASE, "moduserinfo.php3");
530
	}
531
532
	#
	# Standard options for logged in users!
533
534
535
536
537
	#
	if (!$firstinitstate) {
	    WRITESIDEBARDIVIDER();
	    SIDEBARCELL("<a href=\"$TBBASE/newproject.php3\">Start</a> or " .
	             "<a href=\"$TBBASE/joinproject.php3\">Join</a> a Project",
538
			0);
539
	}
540
    }
541
542
    #WRITESIDEBARLASTBUTTON_COOL("Take our Survey",
    #    $TBDOCBASE, "survey.php3");
543

544
    # Terminate Interaction menu.
545
    if ($login_status & (CHECKLOGIN_LOGGEDIN|CHECKLOGIN_MAYBEVALID)) {
546
547
548
549
        # Logout option. No longer take up space with an image.
	WRITESIDEBARLASTBUTTON("<b>Logout</b>",
			       $TBBASE, "logout.php3?target_uid=$login_uid");
	
550
	echo "</table>\n";
551
    }
Chad Barb's avatar
Chad Barb committed
552

553
    # And now the Collaboration menu.
Leigh B. Stoller's avatar
Leigh B. Stoller committed
554
555
556
    if (($login_status & (CHECKLOGIN_LOGGEDIN|CHECKLOGIN_MAYBEVALID)) &&
	($WIKISUPPORT || $MAILMANSUPPORT || $BUGDBSUPPORT ||
	 $CVSSUPPORT  || $CHATSUPPORT)) {
557
558
559
560
561
562
563
564
565
566
	echo "<table class=menu width=210 cellpadding=0 cellspacing=0>".
	    "<tr><td class=menuheader>".
	    "<b>Collaboration</b>".
	    "</td></tr>\n";
     
	if ($WIKISUPPORT && $CHECKLOGIN_WIKINAME != "") {
	    $wikiname = $CHECKLOGIN_WIKINAME;
		
	    WRITESIDEBARBUTTON("My Wikis", $TBBASE,
			       "gotowiki.php3?redurl=Main/$wikiname");
567
	}
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
	if ($MAILMANSUPPORT || $BUGDBSUPPORT) {
	    if (!isset($pid) || $pid == "") {
		$query_result =
		    DBQueryFatal("select pid from group_membership where ".
				 "uid='$login_uid' and pid=gid and ".
				 "trust!='none' ".
				 "order by date_approved asc limit 1");
		if (mysql_num_rows($query_result)) {
		    $row = mysql_fetch_array($query_result);
		    $firstpid = $row[pid];
		}
	    }
	}
	if ($MAILMANSUPPORT) {
	    $mmurl  = "showmmlists.php3?target_uid=$login_uid";
	    WRITESIDEBARBUTTON("My Mailing Lists", $TBBASE, $mmurl);
	}
	if ($BUGDBSUPPORT) {
	    $bugdburl = "gotobugdb.php3";
		    
	    if (isset($pid) && !empty($pid)) {
		$bugdburl .= "?project_title=$pid";
	    }
	    elseif (isset($firstpid)) {
		$bugdburl .= "?project_title=$firstpid";
	    }
	    WRITESIDEBARBUTTON("My Bug Databases", $TBBASE, $bugdburl);
	}
	if ($CVSSUPPORT) {
597
598
	    WRITESIDEBARBUTTON("My CVS Repositories", $TBBASE,
			       "listrepos.php3?target_uid=$login_uid");
599
	}
600
601
	if ($CHATSUPPORT) {
	    WRITESIDEBARBUTTON("My Chat Buddies", $TBBASE,
602
603
604
			       "mychat.php3?target_uid=$login_uid");
	}
	WRITESIDEBARDIVIDER();
605
	echo "</table>\n";
606
    }
607

608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
    # Optional ADMIN menu.
    if ($login_status & CHECKLOGIN_LOGGEDIN && ISADMIN($login_uid)) {
	echo "<table class=menu width=210 cellpadding=0 cellspacing=0>".
	    "<tr><td class=menuheader>".
	    "<b>Administration</b>".
	    "</td></tr>\n";
	
	SIDEBARCELL("List <a " .
		    " href=\"$TBBASE/showproject_list.php3\">" .
		    "Projects</a> or <a " .
		    "href=\"$TBBASE/showuser_list.php3\">Users</a>");

	WRITESIDEBARBUTTON("View Testbed Stats",
			   $TBBASE, "showstats.php3");

	WRITESIDEBARBUTTON("Approve New Projects",
			   $TBBASE, "approveproject_list.php3");

	WRITESIDEBARBUTTON("Edit Site Variables",
			   $TBBASE, "editsitevars.php3");

	WRITESIDEBARBUTTON("Edit Knowledge Base",
			   $TBBASE, "kb-manage.php3");
		    
	$query_result = DBQUeryFatal("select new_node_id from new_nodes");
	if (mysql_num_rows($query_result) > 0) {
	    WRITESIDEBARBUTTON_NEW("Add Testbed Nodes",
				   $TBBASE, "newnodes_list.php3");
	}
	else {
	    WRITESIDEBARBUTTON("Add Testbed Nodes",
			       $TBBASE, "newnodes_list.php3");
	}
	WRITESIDEBARBUTTON("Approve Widearea User",
			   $TBBASE, "approvewauser_form.php3");
Chad Barb's avatar
   
Chad Barb committed
643

644
645
646
647
648
	# Link ALWAYS TO UTAH
	WRITESIDEBARLASTBUTTON("Add Widearea Node (CD)",
			       $TBDOCBASE, "http://www.emulab.net/cdrom.php");
	echo "</table>\n";
    }
649
    echo "</form>\n";
650
651
}

652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
#
# Simple version of above, that just writes the given menu.
# 
function WRITESIMPLESIDEBAR($menudefs) {
    $menutitle = $menudefs['title'];
    
    echo "<table class=menu width=210 cellpadding=0 cellspacing=0>
           <tr><td class=menuheader>\n";

    echo "<b>$menutitle</b>";
    echo " </td>";
    echo "</tr>\n";

    each($menudefs);    
    while (list($key, $val) = each($menudefs)) {
	WRITESIDEBARBUTTON("$key", null, "$val");
    }
    echo "</table>\n";
}

Chad Barb's avatar
   
Chad Barb committed
672
673
674
#
# spits out beginning part of page
#
675
function PAGEBEGINNING( $title, $nobanner = 0, $nocontent = 0 ) {
676
    global $BASEPATH, $TBMAINSITE, $THISHOMEBASE, $ELABINELAB;
Chad Barb's avatar
Chad Barb committed
677
    global $TBDIR, $WWW;
Chad Barb's avatar
   
Chad Barb committed
678
    global $MAINPAGE;
679
    global $TBDOCBASE;
680
    global $autorefresh;
Chad Barb's avatar
   
Chad Barb committed
681

682
683
    $MAINPAGE = !strcmp($TBDIR, "/usr/testbed/");

Chad Barb's avatar
   
Chad Barb committed
684
685
686
687
688
    echo "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 
          'http://www.w3.org/TR/html4/loose.dtd'>
	<html>
	  <head>
	    <title>$THISHOMEBASE - $title</title>
689
690
            <!--<link rel=\"SHORTCUT ICON\" HREF=\"netbed.ico\">-->
            <link rel=\"SHORTCUT ICON\" HREF=\"netbed.png\" TYPE=\"image/png\">
Chad Barb's avatar
   
Chad Barb committed
691
692
    	    <!-- dumbed-down style sheet for any browser that groks (eg NS47). -->
	    <link REL='stylesheet' HREF='$BASEPATH/common-style.css' TYPE='text/css' />
693
694
    	    <!-- do not import full style sheet into NS47, since it does bad job
            of handling it. NS47 does not understand '@import'. -->
Chad Barb's avatar
   
Chad Barb committed
695
696
697
    	    <style type='text/css' media='all'>
            <!-- @import '$BASEPATH/style.css'; -->";

698
699
700
    if (!$MAINPAGE) {
	echo "<!-- @import '$BASEPATH/style-nonmain.css'; -->";
    } 
Chad Barb's avatar
   
Chad Barb committed
701

Leigh B. Stoller's avatar
Leigh B. Stoller committed
702
    echo "</style>\n";
Chad Barb's avatar
   
Chad Barb committed
703
704

    if ($TBMAINSITE) {
Leigh B. Stoller's avatar
Leigh B. Stoller committed
705
	echo "<meta NAME=\"keywords\" ".
Leigh B. Stoller's avatar
Leigh B. Stoller committed
706
707
	           "CONTENT=\"network, emulation, internet, emulator, ".
	           "mobile, wireless, robotic\">\n";
Leigh B. Stoller's avatar
Leigh B. Stoller committed
708
709
710
711
712
	echo "<meta NAME=\"robots\" ".
	           "CONTENT=\"NOARCHIVE\">\n";
	echo "<meta NAME=\"description\" ".
                   "CONTENT=\"emulab - network emulation testbed home\">\n";
    }
Chad Barb's avatar
   
Chad Barb committed
713
714
    echo "</head>
            <body bgcolor='#FFFFFF' 
715
             topmargin='0' leftmargin='0' marginheight='0' marginwidth='0'>\n";
716
717
718
719
    
    if ($autorefresh) {
	echo "<meta HTTP-EQUIV=\"Refresh\" CONTENT=\"$autorefresh\">\n";
    }
720
    if (! $nobanner ) {
721
722
723
724
725
726
	echo "<map name=overlaymap>
                 <area shape=rect coords=\"100,60,369,100\"
                       href='http://www.emulab.net/index.php3'>
                 <area shape=rect coords=\"0,0,369,100\"
                       href='$TBDOCBASE/index.php3'>
              </map>
Chad Barb's avatar
   
Chad Barb committed
727
            <table cellpadding='0' cellspacing='0' width='100%'>
728
729
730
            <tr valign='top'>
              <td valign='top' class='bannercell'
                  background='$BASEPATH/headerbgbb.jpg'
Leigh B. Stoller's avatar
Leigh B. Stoller committed
731
                  bgcolor=#3D627F>
732
733
734
735
736
737
738
739
740
              <img width=369 height=100 border=0 usemap=\"#overlaymap\" ";

	if ($ELABINELAB) {
	    echo "src='$BASEPATH/overlay.elabinelab.gif' ";
	}
	else {
	    echo "src='$BASEPATH/overlay.".strtolower($THISHOMEBASE).".gif' ";
	}
	echo "alt='$THISHOMEBASE - the network testbed'>\n";
741
742
743
        if (!$MAINPAGE) {
	     echo "<font size='+1' color='#CCFFCC'>&nbsp;<b>$WWW</b></font>";
	}
744
	echo "</td>\n";
Leigh B. Stoller's avatar
Leigh B. Stoller committed
745
	echo "<td valign=top align=right width=200
746
                 class=banneriframe>
747
             <iframe src=$BASEPATH/currentusage.php3
748
749
750
751
752
753
754
755
756
757
                 width=100% height=100 marginheight=0 marginwidth=0
                 scrolling=no frameborder=0></iframe></td>\n";
        echo "</tr></table>\n";
    }
    if (! $nocontent ) {
	echo "<table cellpadding='8' cellspacing='0' height='100%'
                width='100%'>
                <tr height='100%'>
                  <td valign='top' class='leftcell' bgcolor='#ccddee'>
                  <!-- sidebar begins -->";
Chad Barb's avatar
   
Chad Barb committed
758
    }
Chad Barb's avatar
   
Chad Barb committed
759
760
761
762
763
764
765
}

#
# finishes sidebar td
#
function FINISHSIDEBAR()
{
Chad Barb's avatar
   
Chad Barb committed
766
    echo "<!-- sidebar ends -->
Chad Barb's avatar
   
Chad Barb committed
767
        </td>
Chad Barb's avatar
   
Chad Barb committed
768
        <td valign='top' width='100%' class='rightcell'>
769
          <!-- content body table -->
Chad Barb's avatar
   
Chad Barb committed
770
          <table class='content' width='100%' cellpadding='0' cellspacing='0'>
Chad Barb's avatar
   
Chad Barb committed
771
            <tr>
Chad Barb's avatar
   
Chad Barb committed
772
              <td class='contentheader'>";
Chad Barb's avatar
   
Chad Barb committed
773
774
}

775
776
777
#
# Spit out a vanilla page header.
#
778
function PAGEHEADER($title, $view = NULL) {
779
    global $login_status, $login_uid, $TBBASE, $TBDOCBASE, $THISHOMEBASE;
780
    global $BASEPATH, $SSL_PROTOCOL, $drewheader, $autorefresh;
781
    global $TBMAINSITE;
782
783

    $drewheader = 1;
784
785
786
    if (isset($_GET['refreshrate']) && is_numeric($_GET['refreshrate'])) {
	$autorefresh = $_GET['refreshrate'];
    }
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802

    #
    # Determine the proper basepath, which depends on whether the page
    # was loaded as http or https. This lets us be consistent in the URLs
    # we spit back, so that users do not get those pesky warnings. These
    # warnings are generated when a page *loads* (say, images, style files),
    # a mix of http and https. Links can be mixed, and in fact when there
    # is no login active, we want to spit back http for the documentation,
    # but https for the start/join pages.
    #
    if (isset($SSL_PROTOCOL)) {
	$BASEPATH = $TBBASE;
    }
    else {
	$BASEPATH = $TBDOCBASE;
    }
803

804
    #
805
    # Figure out who is logged in, if anyone.
806
    # 
807
808
809
810
    if (($known_uid = GETUID()) != FALSE) {
        #
        # Check to make sure the UID is logged in (not timed out).
        #
811
812
813
        $login_status = CHECKLOGIN($known_uid);
	if ($login_status & (CHECKLOGIN_LOGGEDIN|CHECKLOGIN_MAYBEVALID)) {
	    $login_uid = $known_uid;
814
815
816
	}
    }

817
818
819
820
821
822
823
    #
    # If no view options were specified, get the ones for the current user
    #
    if (!$view) {
	$view = GETUSERVIEW();
    }

824
    #
825
826
    # Check for NOLOGINS. 
    # We want to allow admin types to continue using the web interface,
827
828
    # and logout anyone else that is currently logged in!
    #
829
830
831
832
    if (NOLOGINS() && $login_uid && !ISADMIN($login_uid)) {
	DOLOGOUT($login_uid);
	$login_status = CHECKLOGIN_NOTLOGGEDIN;
	$login_uid    = 0;
833
    }
834
    
835
836
    header("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT");
    
837
    if (1) {
838
839
840
841
842
843
844
	header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
	header("Cache-Control: no-cache, must-revalidate");
	header("Pragma: no-cache");
    }
    else {
	header("Expires: " . gmdate("D, d M Y H:i:s", time() + 300) . " GMT"); 
    }
Chad Barb's avatar
   
Chad Barb committed
845

846
847
848
849
850
    if (isset($view['hide_banner'])) {
	$nobanner = 1;
    } else {
	$nobanner = 0;
    }
851
    PAGEBEGINNING( $title, $nobanner, 0 );
852
853
854
    if (!isset($view['hide_sidebar'])) {
	WRITESIDEBAR();
    }
855
856
857
    elseif (isset($view['menu'])) {
	WRITESIMPLESIDEBAR($view['menu']);
    }
Chad Barb's avatar
   
Chad Barb committed
858
    FINISHSIDEBAR();
859
    echo "<h2 class=\"nomargin\">\n";
Chad Barb's avatar
   
Chad Barb committed
860

861
    if ($login_uid && ISADMINISTRATOR()) {
Chad Barb's avatar
   
Chad Barb committed
862
	if (ISADMIN($login_uid)) {
863
	    echo "<a href=$TBBASE/toggle.php?target_uid=$login_uid&type=adminoff&value=1>
Chad Barb's avatar
   
Chad Barb committed
864
865
866
867
	             <img src='/redball.gif'
                          border=0 alt='Admin On'></a>\n";
	}
	else {
868
	    echo "<a href=$TBBASE/toggle.php?target_uid=$login_uid&type=adminoff&value=0>
Chad Barb's avatar
   
Chad Barb committed
869
870
871
	             <img src='/greenball.gif'
                          border=0 alt='Admin Off'></a>\n";
	}
872
    }
873
874
875
876
    $major = "";
    $minor = "";
    $build = "";
    TBGetVersionInfo($major, $minor, $build);
877
878
879
880
    if ($view['hide_versioninfo'] == 1)
	$versioninfo = "";
    else
	$versioninfo = "Vers: $major.$minor Build: $build";
881
    
882
883
    $now = date("D M d g:ia T");
    echo "$title</h2></td>\n";
884
    echo "<td class=contentheader align=right>\n";
885
886
    echo "<table border='0' cellpadding='0' cellspacing='0'>";
    echo "  <tr>";
887
    echo "  <td class=contentheader><font size=-2>$versioninfo</font></td>";
888
889
    echo "  <td class=contentheader>&nbsp&nbsp</td>";
    echo "  <td class=contentheader align=right>";
Robert Ricci's avatar
Robert Ricci committed
890
891
    if ($login_uid) {
	echo "<font size=-1>'<b>$login_uid</b>' Logged in.<br>$now</font>\n";
892
893
    }
    else {
Robert Ricci's avatar
Robert Ricci committed
894
	echo "$now";
Chad Barb's avatar
   
Chad Barb committed
895
896
    }
    echo "</td>";
897
898
899
    echo "</tr>";
    echo "</table>";
    echo "</td>";
Chad Barb's avatar
   
Chad Barb committed
900
901
    echo "</tr>\n";
    echo "<tr><td colspan=3 class=\"contentbody\" width=*>";
Chad Barb's avatar
   
Chad Barb committed
902
    echo "<!-- begin content -->\n";
903
904
905
    if ($view['show_topbar'] == "plab") {
	WRITEPLABTOPBAR();
    }
906
907
908
909
910
911
}

#
# ENDPAGE(): This terminates the table started above.
# 
function ENDPAGE() {
Chad Barb's avatar
   
Chad Barb committed
912
913
  echo "</td></tr></table>";
  echo "</td></tr></table>";
914
915
916
917
918
}

#
# Spit out a vanilla page footer.
#
919
function PAGEFOOTER($view = NULL) {
920
    global $TBDOCBASE, $TBMAILADDR, $THISHOMEBASE;
Leigh B. Stoller's avatar
Leigh B. Stoller committed
921
    global $TBMAINSITE, $SSL_PROTOCOL;
922

923
924
925
926
    if (!$view) {
	$view = GETUSERVIEW();
    }

927
928
    $today = getdate();
    $year  = $today["year"];
Chad Barb's avatar
   
Chad Barb committed
929

930
931
932
933
934
935
    echo "<!-- end content -->\n";
    if ($view['show_bottombar'] == "plab") {
	WRITEPLABBOTTOMBAR();
    }

    echo "
Chad Barb's avatar
   
Chad Barb committed
936
              </td>
937
938
            </tr>
            <tr>
939
940
941
              <td colspan=2 class=contentbody>\n";
    if (!$view['hide_copyright']) {
	echo "
942
943
	        <center>
                <font size=-1>
944
		[ <a href=http://www.cs.utah.edu/flux/>
945
                    Flux&nbsp;Research&nbsp;Group</a> ]
946
947
948
		[ <a href=http://www.cs.utah.edu/>
                    School&nbsp;of&nbsp;Computing</a> ]
		[ <a href=http://www.utah.edu/>
949
                    University&nbsp;of&nbsp;Utah</a> ]
950
951
		</font>
		<br>
Chad Barb's avatar
   
Chad Barb committed
952
                <!-- begin copyright -->
953
                <font size=-2>
954
955
956
957
                <a href='$TBDOCBASE/docwrapper.php3?docname=copyright.html'>
                    Copyright &copy; 2000-$year The University of Utah</a>
                </font>
                <br>
958
959
960
		</center>\n";
    }
    echo "
961
                <p align=right>
Chad Barb's avatar
   
Chad Barb committed
962
963
		  <font size=-2>
                    Problems?
964
	            Contact $TBMAILADDR.
Chad Barb's avatar
   
Chad Barb committed
965
966
                  </font>
                </p>
967
                <!-- end copyright -->\n";
Chad Barb's avatar
   
Chad Barb committed
968
969

    ENDPAGE();
970

Leigh B. Stoller's avatar
Leigh B. Stoller committed
971
972
973
    # Plug the home site from all others.
    echo "\n<p><a href=\"www.emulab.net/netemu.php3\"></a>\n";

Chad Barb's avatar
   
Chad Barb committed
974
    echo "</body></html>\n";
975
}
976
977

function PAGEERROR($msg) {
978
    global $drewheader, $noheaders;
979

980
    if (! $drewheader && ! $noheaders)
981
	PAGEHEADER("Page Error");
982
983
984

    echo "$msg\n";

985
986
    if (! $noheaders) 
	PAGEFOOTER();
987
988
    die("");
}
989
990
991
992

#
# Sub Page/Menu Stuff
#
993
function WRITESUBMENUBUTTON($text, $link, $target = "") {
Chad Barb's avatar
   
Chad Barb committed
994

995
996
997
998
999
1000
    #
    # Optional 'target' agument, so that we can pop up new windows
    #
    if ($target) {
	$targettext = "target='$target'";
    }
Chad Barb's avatar
   
Chad Barb committed
1001

1002
1003
1004
1005
    echo "<!-- Table row for button $text -->
          <tr>
            <td valign=center align=left nowrap>
                <b>
1006
         	 <a class=sidebarbutton href='$link' $targettext>$text</a>\n";
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016

    echo "      </b>
            </td>
          </tr>\n";
}

#
# Start/End a page within a page. 
#
function SUBPAGESTART() {
Chad Barb's avatar
   
Chad Barb committed
1017
    echo "<!-- begin subpage -->";
Chad Barb's avatar
   
Chad Barb committed
1018
    echo "<table class=\"stealth\"
1019
	  cellspacing='0' cellpadding='0' width='100%' border='0'>\n
1020
            <tr>\n
Chad Barb's avatar
   
Chad Barb committed
1021
              <td class=\"stealth\"valign=top>\n";
1022
1023
1024
1025
1026
1027
}

function SUBPAGEEND() {
    echo "    </td>\n
            </tr>\n
          </table>\n";
Chad Barb's avatar
   
Chad Barb committed
1028
    echo "<!-- end subpage -->";
1029
1030
1031
1032
1033
1034
1035
}

#
# Start/End a sub menu, located in the upper left of the main frame.
# Note that these cannot be used outside of the SUBPAGE macros above.
#
function SUBMENUSTART($title) {
Chad Barb's avatar
   
Chad Barb committed
1036
1037
?>
    <!-- begin submenu -->
1038
    <table class='menu' cellpadding="0" cellspacing="0"
Chad Barb's avatar
   
Chad Barb committed
1039
	style="margin-right: 6px;" >
Chad Barb's avatar
   
Chad Barb committed
1040
1041
1042
1043
      <tr>
        <td class="menuheader"><b><?php echo "$title";?></b></td>
      </tr>
<?php
1044
1045
1046
}

function SUBMENUEND() {
Chad Barb's avatar
   
Chad Barb committed
1047
1048
1049
1050
?>
    </table>
    <!-- end submenu -->
  </td>
1051
  <td class="stealth" valign=top align=left width='100%'>
Chad Barb's avatar
   
Chad Barb committed
1052
<?php
1053
1054
}

1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
# Start a new section in an existing submenu
# This includes ending the one before it
function SUBMENUSECTION($title) {
    SUBMENUSECTIONEND();
?>
      <!-- new submenu section -->
      <tr>
        <td class="menuheader"><b><?php echo "$title";?></b></td>
      </tr>
<?php
}

# End a submenu section - only need this on the last one of the table.
function SUBMENUSECTIONEND() {
?>
      <tr height=5><td></td></tr>
<?php
}
Chad Barb's avatar
   
Chad Barb committed
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089

# These are here so you can wedge something else under the menu in the left column.

function SUBMENUEND_2A() {
?>
    </table>
    <!-- end submenu -->
<?php
}

function SUBMENUEND_2B() {
?>
  </td>
  <td class="stealth" valign=top align=left width='85%'>
<?php
}

1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
#
# Get a view, for use with PAGEHEADER and PAGEFOOTER, for the current user
#
function GETUSERVIEW() {
    if (GETUID() && ISPLABUSER()) {
	return array('hide_sidebar' => 1, 'hide_banner' => 1,
	    'show_topbar' => "plab", 'show_bottombar' => 'plab',
	    'hide_copyright' => 1);
    } else {
	# Most users get the default view
	return array();
    }
}

1104
?>