From c4f926438dcb8abe805e910399940f79ff643c4b Mon Sep 17 00:00:00 2001
From: ziejd2
Date: Thu, 14 Sep 2017 15:39:41 -0500
Subject: Add files via upload

---
 sourcecodes/tier_description_processing_gom.php | 216 ++++++++++++++++++++++++
 1 file changed, 216 insertions(+)
 create mode 100644 sourcecodes/tier_description_processing_gom.php

(limited to 'sourcecodes/tier_description_processing_gom.php')

diff --git a/sourcecodes/tier_description_processing_gom.php b/sourcecodes/tier_description_processing_gom.php
new file mode 100644
index 00000000..48ac172c
--- /dev/null
+++ b/sourcecodes/tier_description_processing_gom.php
@@ -0,0 +1,216 @@
+<?php
+
+$keyval=$_GET["My_key"];
+
+function get_tier($keyval)
+{
+
+$tier=trim($_GET['tier']);
+$dir="./data/";
+$tf=$dir.$keyval."tier.txt";
+$fpvar = fopen("$tf","w");
+
+fwrite($fpvar,"$tier");
+fclose($fpvar);
+}
+
+
+function enter_ban_list($t1,$s1,$t2,$s2,$tier_d,$fpvar)
+{
+  
+   for ($i=0;$i<$s1;$i++)
+   {
+        $data_val_1=$tier_d[$t1][$i];
+           
+        for ($j=0;$j<$s2;$j++)
+        {
+            $data_val_2=$tier_d[$t2][$j];
+            if($data_val_1!=$data_val_2)
+            {
+               
+               fprintf($fpvar,"%s\t%s\n",$data_val_1,$data_val_2); 
+              
+
+            }
+   
+        }
+         
+   }
+  
+
+}
+
+
+
+function describe_tier($fpvar,$keyval)
+{
+
+
+$tierdesc=trim($_GET['tierdesc']);
+$dir="./data/";
+$tf=$dir.$keyval."tier.txt";
+$tier=file_get_contents("$tf");
+
+$tier_data=array();
+$tier_size=array();
+$tier_d=array();
+$tier_data=explode(",",$tier);
+
+$tn=$tier_data[0];
+$count=0;
+
+for ($i=0;$i<$tn;$i++)
+{
+    $count+=2;
+    $tier_size[$i]=$tier_data[$count];
+         
+    $rs=$tier_size[$i];
+    for ($j=0;$j<$rs;$j++)
+    {
+     $count++;  
+     $tier_d[$i][$j]=$tier_data[$count];
+     
+    
+    }
+   
+}
+
+
+
+$data=array();
+$data=explode(",",$tierdesc);
+$n=count($data);
+$nn=0;
+$di=0;
+for ($i=0;$i<$tn;$i++)
+{
+
+$d_y=trim($data[$di]);
+$di++;
+$d_n=trim($data[$di]);
+
+if($d_n=="true") //put data in banlist
+{
+   $s1=$tier_size[$i];
+   enter_ban_list($i,$s1,$i,$s1,$tier_d,$fpvar);
+
+}
+$di++;
+
+
+   for ($j=0;$j<$tn;$j++)
+   {
+      if($j!=$i)
+      {
+        $p_d=trim($data[$di]);
+        $di++;
+    
+        if($p_d=="false") //put data in banlist
+        {
+             $s1=$tier_size[$j];
+             $s2=$tier_size[$i];
+             //echo $tier_size[$j];
+            enter_ban_list($j,$s1,$i,$s2,$tier_d,$fpvar);
+        }
+    
+
+
+        $c_d=trim($data[$di]);
+        $di++;
+        if($c_d=="false") //put data in banlist
+        {
+             $s1=$tier_size[$i];
+             $s2=$tier_size[$j];
+                  // echo $tier_size[$j];
+            enter_ban_list($i,$s1,$j,$s2,$tier_d,$fpvar);
+        }
+
+ 
+      }
+   }
+
+}
+
+
+}
+
+
+function banlist($fpvar)
+{
+$ban=trim($_GET['ban']);
+$data=array();
+$data=explode(",",$ban);
+$n=count($data);
+$nn=0;
+for ($i=0;$i<$n;$i+=2)
+{
+	$ii=$i+1;
+	$d1=trim($data[$i]);
+	$d2=trim($data[$ii]);
+
+	if($d1!="" && $d2!="")
+	{
+  		fprintf($fpvar,"%s\t%s\n",$d1,$d2);
+  		$nn++;
+	}
+
+}
+
+}
+
+function whitelist($fpvar)
+{
+
+$white=trim($_GET['white']);
+
+
+
+$data=array();
+$data=explode(",",$white);
+$n=count($data);
+$nn=0;
+for ($i=0;$i<$n;$i+=2){
+$ii=$i+1;
+$d1=trim($data[$i]);
+$d2=trim($data[$ii]);
+
+if($d1!="" && $d2!="")
+{
+  fprintf($fpvar,"%s\t%s\n",$d1,$d2);
+  $nn++;
+}
+
+}
+
+
+}
+
+
+/////////////////////Call functions//////////////////////
+
+
+
+$dir="./data/";
+
+$sid1=$dir.$keyval."ban";
+$sid2=$dir.$keyval."white";
+
+$Textban=$sid1.".txt";
+$Textwhite=$sid2.".txt";
+$fpb = fopen($Textban,"w");
+$fpw = fopen($Textwhite,"w");
+$datpost="From\tTo\n";
+fwrite($fpb,"$datpost");
+fwrite($fpw,"$datpost");
+
+get_tier($keyval);
+describe_tier($fpb,$keyval);
+banlist($fpb);
+whitelist($fpw);
+
+
+////////////////////////////////////execute structurelearning/////////////////////////////////////////////////////////////////////////////////////////////
+?>
+<script>
+window.open("executionprogress.php?My_key=<?php print($keyval);?>",'_self',false);
+</script>
\ No newline at end of file
-- 
cgit 1.4.1