Repository List / svnadmin / trunk / users.pl @ HEAD

#!/usr/bin/perl

use strict;
use warnings;
use CGI::Carp qw/fatalsToBrowser/;
use SVNAdmin;
#use CGI::Pretty qw/:all -no_xhtml -oldstyle_urls -no_undef_params *table *TR *Tr *td *div *span *label *ul *li/;
use CGI qw/:all -no_xhtml -oldstyle_urls -no_undef_params *table *TR *Tr *td *div *span *label *ul *li/;

menu_default_item( -key => 'action', -item => 'list' );


print
	http_header() .
	start_page(-style => 'style.css', -title => 'SVN Users') .
		start_menu() .
			start_menu_sect('Users') .
				menu_item(-key => 'action', -value => 'list', -text => 'list') .
				menu_item(-key => 'action', -value => 'add', -text => 'add') .
			end_menu_sect() .
		end_menu() .
		start_content() .
			start_div({-class => 'ui_box'}) .
				start_div() . 'nothing' . end_div() .
			end_div() .
		end_content() .
	end_page();

sub menu {
	my $admin = $acl->group('admin');

}

sub su_admin_menu {

}

sub admin_menu {

}

sub user_menu {

}

sub su_admin_table {

}

sub admin_table {

}

sub user_table {

}