#!/usr/bin/perl

use strict;
use warnings;
use POSIX;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
require SDBM_File;


my %data;
my $data     = "mylist.dbm";  
my $specifics= param('specifics');

my $lookup    = url_param('lookup');

tie %data, 'SDBM_File', $data, O_CREAT | O_RDWR, 0644;
if ( !tied %data ) {
    print "error $!.\n";
    }

print header();
print start_html();

print <<"ALL";

<table width="470" border="0">
<form name="extract" method="post" action="extract.pl">
<tr><td colspan="2"><textarea name="specifics" cols="40" rows="5" id="specifics">$specifics</textarea></td></tr>
<tr><td><input type="submit" name="submit1" value="submit"></td></tr>
</form>
</table>

ALL

if (param('submit1'))
{

 foreach (sort keys %data)
 {
   my ($ab, $bb, $cb, $db, $eb, $fb) = split(/::/, $data{$_});

$specifics =~ s/\[a\]/$ab/;
$specifics =~ s/\[b\]/$bb/;
$specifics =~ s/\[more\]/$data{$_}/;
$specifics =~ s/\[c\]/$cb/;
$specifics =~ s/\[d\]/$db/;
$specifics =~ s/\[e\]/$eb/;
$specifics =~ s/\[f\]/$fb/;



   print "$specifics<br>";

  }

}