#!/usr/bin/perl
require 'cgi-libs.pl';
&ReadParse;

# DB Manager 5.01 Database Setup File Creator
# Developed by Jeremy Schell, Global Marketing Concepts, Inc.
# Visit http://www.thoseinternetguys.com/createdb.html for HTML form
# E-mail jeremy@thatinternetguy.com for additional information

print "HTTP/1.0 200 OK\n\n";
        $in{'db'} =~ s/ //g;
        @lines = $in{'db'}; 
      $in{'sortby'} =~ s/ //g;
      $in{'email'} =~ s/ //g;
        chop(@line);
        $x=0;
        $main="";
        $sortby="<font color=red>UNKNOWN</font>";
        $email="<font color=red>UNKNOWN</font>";

foreach $lines (@line) {
        chop($lines);
      $lines =~ s/ //g;
      $lines =~ s/\n//g;
        $main .= "\$db{\"$lines\"}=$x;<br>";
        if ($lines eq "$in{'sortby'}") { $sortby=$x; }
        if ($lines eq "$in{'email'}") { $email=$x; }
        $x=$x+1;
        }

        $main .= "\$db{\"modification_time\"}=$x;<br>";
        $x=$x+1;
        if ($in{'admin'} eq "Yes") {
        $main .= "\$db{\"who_modified\"}=$x;<br>";
                $x=$x+1;
        $main .= "\$db{\"group_modified\"}=$x;<br>";
                $x=$x+1;
        }
        $main .= "\$db{\"db_id\"}=$x;<br>";
        $main .= "<br>\$index_of_db_id_number=$x;<br>";
        $x=$x-1;
        if ($in{'admin'} eq "Yes") {
        $main .= "\$index_of_group_who_modified=$x;<br>";
                $x=$x-1;
        $main .= "\$index_of_who_modified=$x;<br>";
                $x=$x-1;
        }
        $main .= "\$index_of_modification_time=$x;<br>";
        $x=$x-1;
        $main .= "\$index_for_email=\"$email\";<br>\n";
        $main .= "\$index_of_field_to_be_sorted_by=\"$sortby\";<br>\n";
        print "$main";
        $newline="\@db_user_definable_field_order = (\n";

        foreach $lines (@line) {
                $lines =~ s/ //g;
        $lines =~ s/\n//g;
                $newline .= "\"$lines\", ";
        }
        chop($newline);
        chop($newline);
        $newline .= ");";
        print "<br><br>$newline";
exit;