Untitled

			case 'newserv': {
				$fn = explode("@",$tc);
				$file="/listserv/".$fn[0].".dat";
				$fp = fopen($file,"x+");
				if ($fp==false) { $err='Error: Listserv already exists!'; }
				else { 
					fclose($fp); 
					$newarray = array();
					$lf = "/listserv/listserv.aliases2";
					$size = filesize($lf);
					$file_content=array();
					echo "size: $size<BR>";
					if ($size>0) {
						$fp=fopen($file,"rb") or die("Error: Unable to open $file!");
						$data = fread($fp,$size);
						if ($data==FALSE) { echo "ERROR reading data! FP: $fp File: $file Size: $size"; }
						echo "data: $data<BR>";
						fclose($fp);
						$file_content = preg_split("/\n/",$data);
						echo "FC: <pre>".print_r($file_content)."</pre>";
						foreach ($file_content as $c) { $newarray[count($newarray)]=$c; }
					}
					$newc = $fn[0].": :include:$file";
					$newarray[count($newarray)]=$newc;
					$data = implode("\n",$newarray);
					echo $data;
					exit;
					$fp = fopen("/listserv/listserv.aliases","w+b") or die("Error opening file.");
					fwrite($fp,$data);
					fclose($fp);
					$s = exec("chmod +x $file");
					echo $s."<BR>";
					$s = exec("sendmail -bi");
					echo $s."<BR>";
					break;
				}

				break;
			}