package	dustInformation;

use vars qw($VERSION @ISA @EXPORT);
require Exporter;

@ISA	= qw(Exporter);
@EXPORT	= qw(%teamMembers @pi &get_real_time &printCenterLinks &dSidebar &dHeader &dMainNavbar $siteBackground %navLinks);	#export list of galaxies
$VERSION	= 1.00;			#version number

 
 
#2dust development team (top two are leads)
%teamMembers = 

 ("Margaret Meixner" => ["Space Telescope Science Institute","meixner\@stsci.edu"],
  "Toshiya Ueta" => ["NASA Ames Research Center/SOFIA project","toshiya\_ueta\@fastmail.us"],
  "Megan Sosey" => ["Space Telescope Science Institute","sosey\@stsci.edu"] );
 


#display 2dust pretty header
sub dHeader {
print <<HTML;
 	<div id="banner">

		<center><br>
		<table border=0 cellpadding=0 cellspacing=5>
		<tr><td></td><td><center>
		<img src="./example1.jpg" height=200 width=200 align="left"> 
		
		<a href="./index.cgi" class="2dust"> 
                  <br><br><br><br><img src="./logo1.jpg"></a><br><br>
		  <p align="center">
		  General-purpose dust radiative transfer code for an axisymmetric system <br>
		  </p>
		</td>
		<td></td></tr>
		
		</table><br>
        </div>
HTML
}

#display the side navigation bar
sub dSidebar {
print "<div id=\"sidebar-a\">";
 
 #add in the team links for the left sidebar
@mykeys = keys(%navLinks);
 for $i (sort(@mykeys)){
	if ($i eq "Calendar") {
		print "\t\t<a href=\"$navLinks{$i}\" target=\"new\">$i</a><br>\n";
	} else {
 		print "\t\t<a href=\"$navLinks{$i}\">$i</a><br>\n";
	}
 }
print <<HTML;
  <!-- Display basic search box -->
  <form method="get" action="http://www.stsci.edu/resources/WebSearch">
  <table border="0" cellspacing="5" cellpadding="0">
  <tr><td><input type="hidden" name="uq" value="www.stsci.edu/science/2dust%"></td></tr>
 <tr><td>
  Search 2Dust for: <br>
  <input size="20" name="query" value=""></td>
  </tr>
 <!-- Search box with options -->
    <!-- Submit buttons -->
  <tr>
  <td>
  <input type="submit" name="command" value="Submit">
    </td>
  </tr>
  </table>

  </form>
</div>
HTML
}

	
	
#some default site variables
#$siteBackground = "../../bg.gif"; #the basic background image for the site

#team links for the frontpage and navigation
%navLinks = ("Home" => "./index.cgi",
		"Latest News" => "./news.cgi",
		"Test Datasets" => "./testData.cgi",
		"Publications" => "./publications.cgi",
		"Software Distribution" =>"./software.cgi",
		"Resources" => "./resources.cgi",
		"Reference Manuals" => "./reference.cgi",
		"Algorithm Details" => "./algorithm.cgi",
		"Work in Progress" => "./workinprogress.cgi",
		 "Legalities" => "./legalities.cgi",
                "GRAMS Models" => "./grams_models.cgi");

#display the main navigation toolbar
sub dMainNavbar {

print <<HTML;

	<div id="sidebar-a"><br>
	<p align="left">
HTML
 
#add in the team links for the left sidebar
@mykeys = keys(%navLinks);
 for $i (sort(@mykeys)){
 	print "<a href=\"$navLinks{$i}\">$i</a><br>";
 }
print <<HTML;
	</p>
<br>
	</div> 
HTML

}

#print a table of other related astro centers

sub printCenterLinks {

print <<HTML;
<div id="footer" align="center">
<center>
<table border=0 cellspacing=0 cellpadding=10 style="text-align:center">
<tr>
<td><a class="image" href="http://www.stsci.edu"><img src="./stsci_logo.gif"></a></td>
</tr>
</table>
</center> </div>
HTML
}

sub get_real_time ($) {
        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime $_[0];
        $year += 1900;
        #$mon += 1;
	my @month_names=("January","February");
	$mymonth = $month_names[$mon];
        return "$year\-$mymonth\-$mday";
}

1;