#!/usr/bin/perl

################################################################
######################################################## 
sub valid_cookie{
    $flag=0;

    my $session_file=$companyrepository."/session.txt"; #file where sessions are stored
    unless(open(INTT, "$session_file")){print "Session not found $session_file. $cookie<br>";}
    while (<INTT>){ #find existing cookie
	if($_=~/^$cookie\;/){#if cookie exist
	    $flag=1;
            last;
        }
    }
    close INTT;

    return $flag;
}
############################################################################ 
sub writeData {
    unless(open (OUT,">>".$companyrepository."/PO.txt")){
	open (OUT, ">".$companyrepository."/PO.txt");
    }
    print OUT "$write_data\n";
    
    close (OUT);
}
############################################################################       
sub readData {
    if (-e $datafile) {
	open (IN,"<".$datafile);
	while (<IN>) {
		push @values, $_;
	}
	close (IN);
    }
}
############################################################################ 

use CGI;
$query = new CGI;

$repository="/home/warp/userdata/";
#$flag2=0; #init flag for existing users

####check for valid cookie####
$cookie="";
@temp="";
$cookie=$ENV{'HTTP_COOKIE'}; #identify cookie
@temp_cookie=split(';',$cookie);
$cookie=$temp_cookie[0];
($sess_id,$company,$site,$user)=split('%2C', $cookie);
$companyrepository=$repository.$company."/".$site;

valid_cookie();

# If cookie not valid, then redirect to login page
if ($flag==0){print $query->redirect('http://services.genband.com/cgi-bin/dbq/na/DBQ_welcome.cgi'); }#redirect to another location 


$answer=$query->param("answer");

print "Content-type: text/html\n\n";

foreach $paramname ($query->param) {
    $formcomplete=1;
    #$paramcount++;
    $paramvalue=$query->param($paramname);
    $$paramname=$paramvalue;
    
  # preserve ratearea names
    if($paramname =~ /^sub/){ # read in subject
     	chomp $$paramname;
	$write_data="$${paramname}:::";
    }elsif($paramname =~ /^com/){ # read in PO
	chomp $$paramname;
	$com=$$paramname;
	$write_data=$write_data."$$paramname";
    }elsif (($paramname eq "answer") && ($answer eq "finish")) {
	$finished=1;
    }
   
}

# create company specific variables
$datafile=$companyrepository."/PO.txt";
$master_file=$companyrepository."/master_grpnum.txt";
################################
# start html
$header_file = "header5.html";
open(FILE,"$header_file");
while(<FILE>) { print $_; }
close FILE;


print <<'ENDHTML';
<tr>
        <td width="1020" bgcolor="#f4f4f4" align="center">
    <table width="900" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td bgcolor="#232021" height="25px" width="499" align="left" valign="bottom"><p class="h1">Project Overview</p></td>
     <tr><td colspan="2" bgcolor="#ffffff"><div id="container">
 
ENDHTML

   $datafile="$companyrepository/PO.txt";

 if ($finished){
	writeData;
	print "<p class=status>";
	print "The Project Overview has been saved. <br>Choose your region to continue<br><I>Note: Any location other than North 
      America is considered International</I></p>";
	print "<p class=status><button type=button type=button type=button type=button onclick=\"window.location='http://services.genband.com/cgi-bin/dbq/na/home.cgi'\">North American Database Questionnaire</button> 
<button type=button type=button type=button type=button onclick=\"window.location='http://services.genband.com/cgi-bin/dbq/int/home.cgi'\">International Database Questionnaire</button></p>";   

}else{
 
    print "<form action='PO.cgi' method='post'>";
    if (-e $datafile){

    }
    
    print "<br>";
    $cnt=1;
    foreach $v (@values){
	@com=split(/:::/, $v);
	print "<b>$cnt.  $com[0]</b><br>$com[1]<br><br>";
	$cnt++;
    }
	$paramname='txt1';
	print "<p class=status><b>Application</b> <i>(check all that apply)</i><br></p>";
	$paramname='app';
    print "<p class=status><INPUT TYPE=CHECKBOX NAME='app' VALUE=appclass4>  Class 4 - trunk to trunk tandem calls only </p>";
	print "<p class=status><INPUT TYPE=CHECKBOX NAME='app' VALUE=appclass5> Class 5 - station to staion, station to trunk, trunk to staion only </p>";
    $paramname='type';
    
	print "<p class=status><br><b>Type of Install</b><br><br><SELECT NAME='type'>
<OPTION SELECTED>Greenfield - new switch, no existing customer base per say</OPTION>
<OPTION>Cap and Grow - subtend and existing sysytem and provide growth Capacity</OPTION>
<OPTION>Migration - replace an existing system</OPTION>
</SELECT><br><br></p>";
print "<p class=status> <form action='/home/warp/userdata/$companyrepository' method='post' enctype='multipart/form-data'> </p>";
print "<p class=status><b>Network Diagram:</b><br><br><input type=file name='network_diagram' /></p>";
print "<p class=status><i>Present the node to be provisioned and show all connections to external nodes.<br />
Other SP's, STP's, VMS, Servers or Remote Hosts.</i><br><br></p>";

print "<p class=status> <form action='/home/warp/userdata/$companyrepository' method='post' enctype='multipart/form-data'> </p>";
print "<p class=status><b>Call Flow Models: </b><br><br><input type=file name='call_flow_models' /></p>";
print "<p class=status><i>Povide high level and detailed information.</i></p>";

     
	
	
	
    
###########################################################################################################

 
    # initial presentation of the page
    if ((!$formcomplete) && ($error eq "")) {
	print "<p class=status>";
	print "<input type=submit name=answer value=finish>";
      
        
	print "</p>";
	# errors found when processing
    }elsif((!$formcomplete) && ($error ne "")){
	print "<p class=status>";
	print "<input type=submit name=answer value='re-submit'>";
        print "<button type=button type=button type=button type=button onclick=\"window.location='home.cgi'\">";
        print "cancel</button><p class=main>$error</p>";
       	print "</p>";	
# form has been completed without errors
    }elsif ($formcomplete) {
	print "<p class=status>";
	print "<input type=submit name=answer value=finish>";
       
       
	print "</p>";
    }
print "</form>";
}







print <<'ENDHTML';
</div>
</td></tr>
</table>
 </td></tr>
<tr>
    <td colspan="4" height="25px" bgcolor="#f4f4f4"></td>
  </tr>

  <tr>
    <td colspan="4" height="25px" bgcolor="#F0251A"><p class="h2">&nbsp;</p></td>
  </tr>

ENDHTML

    $footer_file = "footer1.html";
open(FILE,"$footer_file");
while(<FILE>) { print $_; }
close FILE;