#!/usr/local/bin/perl

use strict ;
use warnings ;

use Data::Dumper ;

use template ;
use process_input ;

my @templates = qw(

	header
	intro
	header2
	entry_table
	navbar
	footer
) ;

my $tmpls = load_templates( @templates ) ;

my $template = <<TMPL ;
$tmpls->{header}
$tmpls->{navbar}
$tmpls->{intro}
<%CHUNK_FAQ%>
$tmpls->{entry_table}
<%END_FAQ%>
<%CHUNK_SCENARIOS%>
$tmpls->{entry_table}
<%END_SCENARIOS%>
$tmpls->{navbar}
$tmpls->{footer}
TMPL

my @sections = input() ;

my %tmpl_data = (

	process_intro_section( shift @sections ),
	process_entry_section( name => 'FAQ',
			       input => shift @sections,
			       entries => 1,
	),
	process_entry_section( name => 'SCENARIOS',
			       input => shift @sections,
			       title => 1,
			       text => 1,
			       entries => 1,
	),
	LAST_MOD	=> scalar localtime,
) ;

#warn Dumper \%tmpl_data ;

print expand_template( $template, \%tmpl_data ) ;

exit ;

sub input {

	return map [ split /\n{2,}/ ], split /\*+/, <<'TEXT' ;

Perl On Call

***************

What is Perl On Call?

Perl On Call is an affordable subscription service for Perl support. It
offers multiple tiers of support ranging from emailed questions to on-site
training and development.

What are the Subscription Plans?

There are <A href="plans.html">subscription plans</A> to suit every
situation where Perl hackers exist. They range from $100/week for
individuals to $500/week for dedicated time.

What are the Services?

A full list is in the <A href="glossary.html">glossary of
services</A>. This explains the many software engineering services and
terms. The most useful services, <A href="review.html">code review</A>
and <A href="refactor.html">Refactoring</A> have their own pages.

Why Should I Subscribe?

There are many <A href="reasons.html">reasons to subscribe</A>.

Why Should I Not Subscribe?

And we even list <A href="reasons.html">reasons to not subscribe</A>.

************

Scenarios

Here are some scenarios showing how Perl on Call can work with your
Perl hackers.

Small Startup

Your technical staff is doing what needs to be done in a startup and also the
long hours. They don't have the time to waste with a tough Perl
problem. Having a Perl expert available who can help keep the work from
stopping is valuable in many ways.

Technical Specialty (e.g. Biotech)

Your staff has its strength in a technical specialty in a field such as
biotech. Purl is commonly used but no one is really a Perl expert. The
work gets done but you know it could be better and probably more
importantly, faster. I can help out with working with the staff and
creating easy ways to improve the quality of the code base and of future
work. This will let the staff focus more of their energy on their
specialty and less on Perl techniques.

Large IT Shop

You're a large corporation with many development groups. Perl is not the
primary language used but it is used in many places around the
enterprise. Each group probably can't afford to hire a Perl expert just
for their amount of work. But across the whole company there is enough
Perl work to make this a smart budget decision. If the cost is spread
across all the divisions, it would be a small amount for each but they
get a high RIO. Any developer who is using Perl can have access to a
Perl expert, regardless of his group or division. This is what I did at
Fidelity Investments in 2004. My work as a Perl expert was part of a
central technical services group for the entire company.

Perl Guru on Staff

You're lucky to have a Perl Guru on your staff. But usually s/he will
be already busy with development projects to spend much time helping
out others with their Perl. Also they may have not have the experience
needed to do such things as code review, integrated training and other
support services. Perl on Call is meant to help your staff with those
services and thus keeping your guru free to focus on your company
projects.

******************

 And the typical cost will be less
than 1/5 than a full time slot.



One need I see at many of the shops where I have consulted is having
access to a Perl expert. Few places could afford one full time so this
is a way to have the access you need but without the major costs.

Having a subscription for Perl expert support has many advantages.

You build up a long term relationship with me and I get to know your
staff and their projects. There is no need to bring a new Perl expert up
to speed each time you bring one in.

You don't waste time trying to find a Perl expert when problems
arise. Perl On Call is there when you need it.

The first tier of support is unlimited questions via email or
IRC. This can be used for all sorts of topics in Perl. Over email I have
done code review of Perl subs and modules, finding regular expressions
solutions, locating the right CPAN modules.

The second tier of support adds up to 3 hours per week of telephone
support. This can be valuable when working out a design, discussing
API's and other interactive subjects where email isn't good enough.

The third tier of support adds one on-site day for every 6 weeks of
subscription. This can be used for training multiple developers, code
review of larger projects, brainstorming and whatever works better
on-site. You can accumulate these on-site days and cash them in during a
single period if desired.

I bring honesty and integrity to the table.  If I can't figure out
something, I will let you know and I will find a person who can help you
solve the problem. I express my true opinion about technicals decisions
because that is what is expected of a prefessional.

TEXT

}