package CGI::Dissociate;

use base 'CGI::Application';
use CGI::Carp qw(fatalsToBrowser);
use CGI::Pretty;
use JFH::Dissociate;

use strict;

sub setup {
  my $self = shift;
  $self->start_mode('JSH_embed');
  $self->run_modes(
		   'JSH_embed' => 'dissoc_JSH_embedded_script',
		   'JFH_embed' => 'dissoc_JFH_embedded_script',
#		   'JSH' => 'dissoc_JSH',
#		   'JFH' => 'dissoc_JFH',
		  );

}

sub teardown {
  my $self = shift;
}

sub dissoc{
  my $q = shift;
  my $glob = shift;
  my $title = shift;
  my $bg = shift || "#EAF2E5";
    
  my $output = $q->start_table({align => "center", border => 0, bgcolor => 0}).
    $q->start_Tr.$q->start_td({bgcolor => $bg});

  $output .=
    $q->start_div
      ({style => "margin-top: 10px; margin-bottom: 10px; margin-left: 15px; margin-right: 15px"});

  $output .= $q->center($q->a({name => "Meat"},$q->u($q->h2($title)))) . 
    $q->pre(dissociate_glob($glob,2,12));

  $output .= $q->end_div . $q->end_td . $q->end_Tr . $q->end_table;

}

sub dissoc_JSH_embedded_script{
  my $self = shift;
  my $q = $self->query();

  my $output;
  my $glob="/home/jesse/.sigs/Longer_Quotes/JSH*";

  $output.=$q->pre(CGI::escapeHTML(dissociate_glob($glob,2,12)));
  return $output;
}

sub dissoc_JFH_embedded_script{
  my $self = shift;
  my $q = $self->query();

  my $output;
  my $glob="/home/jesse/public_html/geek/Usenet_archive/*";
  #$glob="/home/jesse/.sigs/Longer_Quotes/JSH*";

  $output.=$q->pre(CGI::escapeHTML(dissociate_glob($glob,2,12)));
  return $output;
}


1;