view release on metacpan or  search on metacpan

lib/App/Office/Contacts/Import/vCards/Controller.pm  view on Meta::CPAN

	# Set up the view.

	$self -> param(view => App::Office::Contacts::Import::vCards::View -> new
	(
		db          => $self -> param('db'),
		script_name => $self -> script_name,
		session     => $self -> param('session'),
		tmpl_path   => $self -> tmpl_path,
	) );

	if ($self -> validate_post == 0)
	{
		$self -> prerun_mode('Initialize');
	}

} # End of cgiapp_prerun.

# -----------------------------------------------

1;

lib/App/Office/Contacts/Import/vCards/Controller/Initialize.pm  view on Meta::CPAN

# -----------------------------------------------

sub display
{
	my($self)        = @_;
	my($cookie_name) = 'import_vcards';

	$self -> log(debug => 'Entered display');

	return 'Invalid cookie digest' if ($self -> validate_post($cookie_name) == 0);

	$self -> generate_cookie($cookie_name);

	return $self -> build_web_page;

} # End of display.

# -----------------------------------------------

1;