view release on metacpan or  search on metacpan

cgi-bin/admin.cgi  view on Meta::CPAN

		page_title => "Main Menu"
	);

	print "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>\n";
	
	# Project menu
	print "<TR><TD VALIGN=top>\n";
	$project_h->main_menu ($q, $projects, $flags);
	print "</TD>\n";

	# vertical blanker
	print "<TD>$CFG::FONT_BIG&nbsp; &nbsp;</FONT></TD>\n";

	# User menu
	print "<TD VALIGN=top>\n";
	if ( $flags->{USER} ) {
		$passwd_h->main_menu ($q, $projects, $flags);
	} else {
		print "&nbsp;\n";
	}
	print "</TD></TR>\n";

	# horizontal blanker

	print "<TR><TD COLSPAN=3>&nbsp;</TD></TR>\n";

	# Account menu
	print "<TR><TD VALIGN=top>\n";
	$passwd_h->account_menu ($q, $projects, $flags);
	print "</TD>\n";

	print "</TABLE>\n";
	
	NewSpirit::end_page();
}

sub project_event {
	my $q = shift;
	my ($event) = @_;
	
	my $project_h = new NewSpirit::Project ($q);
	my $method = "event_$event";
	
	$project_h->$method();
}

sub user_event {
	my $q = shift;
	my ($event) = @_;
	
	my $passwd_h = new NewSpirit::Passwd ($q);
	my $method = "event_$event";
	
	$passwd_h->$method();
}

sub pref_event {
	my $q = shift;
	my ($event) = @_;
	
	my $prefs_h = new NewSpirit::Prefs ($q);
	my $method = "event_$event";
	
	$prefs_h->$method();
}

sub changes {
	my $q = shift;
	
	NewSpirit::std_header (
		page_title => "CHANGES of new.spirit version $CFG::VERSION",
		window_title => "CHANGES of new.spirit version $CFG::VERSION",
	);
	
	print <<__HTML;
$CFG::FONT
<a href="$CFG::admin_url"><b>[ Go back to the login screen ]</b></a>
</font>
<p>
__HTML
	
	print "$CFG::FONT_FIXED<pre>\n";
	open (IN, $CFG::changes_file) or die "can't read $CFG::changes_file";
	while (<IN>) {
		print;
	}
	close IN;

	print "</pre></font>\n";
	NewSpirit::end_page();
}