# ==================================================================
# Plugins::Recip_Link - Auto Generated Program Module
#
# Plugins::Recip_Link
# Author : Andy Newby
# Version : 1
# Updated : Mon Aug 19 11:30:50 2002
#
# ==================================================================
#

package Plugins::Recip_Link;
# ==================================================================

use strict;
use GT::Base;
use GT::Plugins qw/STOP CONTINUE/;
use GT::Socket;
use Links::SiteHTML;
use GT::SQL;
use Links::Plugins;
use Links qw/$CFG $IN $DB/;

# Inherit from base class for debug and error methods
@Plugins::Recip_Link::ISA = qw(GT::Base);

# Your code begins here! Good Luck!


# PLUGIN HOOKS
# ===================================================================


sub do_checks {
# -------------------------------------------------------------------
# set the header...
print $IN->header();

# print this, just to see if it will work!
print "doing stuiff";


}

# ADMIN MENU OPTIONS
# ===================================================================

sub readme {
# -------------------------------------------------------------------
# This subroutine will get called whenever the user clicks
# on 'Readme' in the admin menu. Remember, you need to print
# your own content-type headers; you should use
#
# print $IN->header();
#

}

# Always end with a 1.
1;

$mgr->install_hooks ( 'Recip_Link', [ ['do_checks', 'PRE', 'Plugins::Recip_Link::do_checks', 'FIRST'] ]);

package Plugins::ZipCodeSearch;
# ==================================================================
use strict;
use vars qw/$VERSION $DEBUG $NAME $META/;
use GT::Base;
use GT::Plugins qw/STOP CONTINUE/;
use Links qw/$CFG $IN $DB/;
use GT::Config;
use Links::Tools;

$VERSION = '1.1';
$DEBUG = 0;
$NAME = 'ZipCodeSearch';
# Inhert from base class for debug and error methods
@Plugins::ZipCodeSearch::ISA = qw(GT::Base);

...

sub install {
# -----------------------------------------------------------------------------
$mgr->install_hooks('ZipCodeSearch', [['site_html_link', 'PRE', 'Plugins::ZipCodeSearch::link', 'FIRST']]);
}

package Plugins::ZipCodeSearch;
# ==================================================================

use strict;
use GT::Base;
use GT::Plugins qw/STOP CONTINUE/;
use Links::SiteHTML;
use Links::Plugins;
use Links qw/$CFG $IN $DB $TPL/;

use GT::Config;
use Links::Tools;

# Inherit from base class for debug and error methods
@Plugins::ZipCodeSearch::ISA = qw(GT::Base);

# Your code begins here.

...

sub link {
# -----------------------------------------------------------------------------
# This subroutine will be called whenever the hook 'add_link' is run. You
# should call $PLG->action(STOP) if you don't want the regular
# 'add_link' code to run, otherwise the code will continue as normal.
#
my $args = $IN->get_hash;

my $zip = "53140";
my $zipdb = $DB->table('UNKNOWN') || return $GT::SQL::error;
my $rec = $zipdb->select ('*', { ZipCode => $zip })->fetchrow_hashref;

print "Hello is there anyone out there?";

$args->{'TestTag'} = "Goodbye";
$args->{'Longitude'} = "Goodbye";

# print $IN->header();
# print Links::SiteHTML::display ('link', $args);
# exit;
return $args;
}

'ZipCodeSearch' => {
'hooks' => [
[
'add_link',
'PRE',
'Plugins::ZipCodeSearch::add_link_hook',
'1'
],
[
'modify_link',
'PRE',
'Plugins::ZipCodeSearch::modify_link_hook',
'1'
],
[
'site_html_link',
'PRE',
'Plugins::ZipCodeSearch::link',
'1'
]
],

sub link {
# -----------------------------------------------------------------------------
# This subroutine will be called whenever the hook 'add_link' is run. You
# should call $PLG->action(STOP) if you don't want the regular
# 'add_link' code to run, otherwise the code will continue as normal.
#
my $args = $IN->get_hash;

my $zip = "53140";
my $zipdb = $DB->table('UNKNOWN') || return $GT::SQL::error;
my $rec = $zipdb->select ('*', { ZipCode => $zip })->fetchrow_hashref;

print $IN->header();
print "Hello is there anyone out there?";

$args->{'TestTag'} = "Goodbye";
$args->{'Longitude'} = "Goodbye";

# print $IN->header();
# print Links::SiteHTML::display ('link', $args);
# exit;
return $args;
}

$mgr->install_hooks('ZipCodeSearch', [['site_html_link', 'PRE', 'Plugins::ZipCodeSearch::my_site_html_hook', '']]);

sub my_site_html_hook {
# -----------------------------------------------------------------------------
# This subroutine will be called whenever the hook 'add_link' is run. You
# should call $PLG->action(STOP) if you don't want the regular
# 'add_link' code to run, otherwise the code will continue as normal.
#
my (@args) = @_;

die "At least I got here";
exit;

return @args;
}

'ZipCodeSearch' => {
'hooks' => [
[
'add_link',
'PRE',
'Plugins::ZipCodeSearch::add_link_hook',
'0'
],
[
'modify_link',
'PRE',
'Plugins::ZipCodeSearch::modify_link_hook',
'0'
],
[
'site_html_link',
'PRE',
'Plugins::ZipCodeSearch::my_site_html_hook',
'1'
]
],

sub site_html_link {
# --------------------------------------------------------
# Format and return the HTML for a single link.
#
# Note that this method is deprecated in favour of generating all the html in
# the templates. Instead, you should be doing:
# <%Links::Utils::load_link_info%><%include link.html%>
#
...