Hello
The new version of links-SQL is very cool & complete template based
I have in my current 1.11 version some extra modifications, namely:
badlink.cgi
recommend_it.cgi
to install this options, some templates & modifications should be added in HTML_templates.pm
badlinks.cgi has in links-SQL 1.11 the following subroutine:
sub site_html_badlink_form {
# --------------------------------------------------------
# This routine is displayed if there was a problem subscribing.
#
my ($tags, $dynamic) = @_;
my $template = defined $dynamic ? $dynamic->param('t') : undef;
(ref $tags eq 'HASH') or croak "HTML_TEMPLATES: Argument '$tags' must be hash reference";
defined $dynamic and &load_user ($dynamic, $tags);
my $output = &load_template ('badlink.html', {
%$tags,
%GLOBALS
}, undef, $template);
defined $dynamic and &clean_output($dynamic, \$output);
print $output;
}
sub site_html_badlink_success {
# --------------------------------------------------------
# This routine is displayed if there was a problem subscribing.
#
my ($tags, $dynamic) = @_;
my $template = defined $dynamic ? $dynamic->param('t') : undef;
(ref $tags eq 'HASH') or croak "HTML_TEMPLATES: Argument '$tags' must be hash reference";
defined $dynamic and &load_user ($dynamic, $tags);
my $output = &load_template ('badlink_success.html', {
%$tags,
%GLOBALS
}, undef, $template);
defined $dynamic and &clean_output($dynamic, \$output);
print $output;
}
and recommend_it.cgi
has in links-SQL this subroutine
sub site_html_recommend {
# --------------------------------------------------------
# This routine determines how the recommend form page will look like.
#
my ($tags, $dynamic) = @_;
my $template = defined $dynamic ? $dynamic->param('t') : undef;
(ref $tags eq 'HASH') or croak "HTML_TEMPLATES: Argument '$tags' must be hash reference";
defined $dynamic and &load_user ($dynamic, $tags);
my $output = &load_template ('recommend.html', {
%$tags,
%GLOBALS
}, undef, $template);
defined $dynamic and &clean_output($dynamic, \$output);
print $output;
}
sub site_html_recc_success {
# --------------------------------------------------------
# This routine determines how the recommend succes page will look like.
#
my ($tags, $dynamic) = @_;
my $template = defined $dynamic ? $dynamic->param('t') : undef;
(ref $tags eq 'HASH') or croak "HTML_TEMPLATES: Argument '$tags' must be hash reference";
defined $dynamic and &load_user ($dynamic, $tags);
my $output = &load_template ('recc_success.html', {
%$tags,
%GLOBALS
}, undef, $template);
defined $dynamic and &clean_output($dynamic, \$output);
print $output;
}
Now my question is:
How can I add these subroutines in Links-SQL 2.0 Beta???
Do you have any ideas:
The new version of links-SQL is very cool & complete template based
I have in my current 1.11 version some extra modifications, namely:
badlink.cgi
recommend_it.cgi
to install this options, some templates & modifications should be added in HTML_templates.pm
badlinks.cgi has in links-SQL 1.11 the following subroutine:
sub site_html_badlink_form {
# --------------------------------------------------------
# This routine is displayed if there was a problem subscribing.
#
my ($tags, $dynamic) = @_;
my $template = defined $dynamic ? $dynamic->param('t') : undef;
(ref $tags eq 'HASH') or croak "HTML_TEMPLATES: Argument '$tags' must be hash reference";
defined $dynamic and &load_user ($dynamic, $tags);
my $output = &load_template ('badlink.html', {
%$tags,
%GLOBALS
}, undef, $template);
defined $dynamic and &clean_output($dynamic, \$output);
print $output;
}
sub site_html_badlink_success {
# --------------------------------------------------------
# This routine is displayed if there was a problem subscribing.
#
my ($tags, $dynamic) = @_;
my $template = defined $dynamic ? $dynamic->param('t') : undef;
(ref $tags eq 'HASH') or croak "HTML_TEMPLATES: Argument '$tags' must be hash reference";
defined $dynamic and &load_user ($dynamic, $tags);
my $output = &load_template ('badlink_success.html', {
%$tags,
%GLOBALS
}, undef, $template);
defined $dynamic and &clean_output($dynamic, \$output);
print $output;
}
and recommend_it.cgi
has in links-SQL this subroutine
sub site_html_recommend {
# --------------------------------------------------------
# This routine determines how the recommend form page will look like.
#
my ($tags, $dynamic) = @_;
my $template = defined $dynamic ? $dynamic->param('t') : undef;
(ref $tags eq 'HASH') or croak "HTML_TEMPLATES: Argument '$tags' must be hash reference";
defined $dynamic and &load_user ($dynamic, $tags);
my $output = &load_template ('recommend.html', {
%$tags,
%GLOBALS
}, undef, $template);
defined $dynamic and &clean_output($dynamic, \$output);
print $output;
}
sub site_html_recc_success {
# --------------------------------------------------------
# This routine determines how the recommend succes page will look like.
#
my ($tags, $dynamic) = @_;
my $template = defined $dynamic ? $dynamic->param('t') : undef;
(ref $tags eq 'HASH') or croak "HTML_TEMPLATES: Argument '$tags' must be hash reference";
defined $dynamic and &load_user ($dynamic, $tags);
my $output = &load_template ('recc_success.html', {
%$tags,
%GLOBALS
}, undef, $template);
defined $dynamic and &clean_output($dynamic, \$output);
print $output;
}
Now my question is:
How can I add these subroutines in Links-SQL 2.0 Beta???
Do you have any ideas: