"; echo "

LIF->SDD Converter





"; echo ""; echo ""; echo ""; echo ""; echo ""; echo ""; echo ""; echo ""; echo "
"; echo "

Choose a .LIF file to convert:

or
Upload a .LIF from your computer:
or
From a location on the web:
"; exit; } if($func=="load") { unset($matrix); unset($taxa_scores); unset($lineinfo); unset($statetext); unset($taxontext); unset($statemedia); unset($taxonmedia); unset($metric); unset($selected_state); unset($preferences); unset($family); unset($charstuff); unset($statestuff); unset($user_mode); unset($multimedia); unset($mediadir); unset($charimage); unset($is_open); unset($depend); unset($depends); unset($subkey); unset($taxanames); unset($subkey_text); unset($stylesheet); unset($tns_names); unset($nametype); session_unregister("matrix"); session_unregister("taxa_scores"); session_unregister("lineinfo"); session_unregister("statetext"); session_unregister("taxontext"); session_unregister("statemedia"); session_unregister("taxonmedia"); session_unregister("metric"); session_unregister("selected_state"); session_unregister("preferences"); session_unregister("family"); session_unregister("charstuff"); session_unregister("statestuff"); session_unregister("user_mode"); session_unregister("multimedia"); session_unregister("mediadir"); session_unregister("charimage"); session_unregister("is_open"); session_unregister("depend"); session_unregister("depends"); session_unregister("subkey"); session_unregister("taxanames"); session_unregister("subkey_text"); session_unregister("stylesheet"); session_unregister("tns_names"); session_unregister("nametype"); if($bgcolor) { echo ""; }else { echo ""; } echo "

Loading...


"; if((isset($location3))&&($location3!="none")&&($location3!="")) { if(ereg("[[:space:]]",$location3_name)) { echo "

Please choose a *.LIF that does
"; echo "not contain any spaces in the title

"; echo "

"; ?>

"; }else if(!(eregi("\.LIF$",$location3_name))) { echo "

You did not choose a *.LIF file

"; echo "

"; ?>

"; } else { $newlifname = "user_log/$location3_name"; if(file_exists($newlifname)) { echo "

A file aready exists with this name, please rename and try again

"; echo "

"; ?>

"; }else { echo ""; @copy ("$location3", $newlifname) or die ("Couldn't copy the file. Go Back."); } } echo "
"; }else { echo ""; echo "
"; } exit; } if($func=="import") { if($bgcolor) { echo ""; }else { echo ""; } echo "

Loading...


"; if($location) { $LIF_file="$location"; }else if($location2) { $LIF_file="$location2"; }else { echo "








"; echo "

You Need To Choose A *.LIF File To Open.
"; echo "

"; ?>

"; exit; } if(!$file=@fopen($LIF_file,"r")) { echo "








Can't open file: $LIF_file

"; echo "

"; ?>

"; exit; } $LIF=file($LIF_file); $character = read2blank("Character List","states", $LIF,"char"); $charstuff = $character[0]; $statestuff = $character[1]; $family = $character[2]; session_register("charstuff"); session_register("statestuff"); session_register("family"); unset($character); $data=read2blank("Main Data","matrix", $LIF,"matrix"); $matrix = $data[0]; $lineinfo = $data[1]; $taxanames=read2blank("Taxon","taxa", $LIF,"taxa"); $metric=read2blank("Metric Data","metric", $LIF,"metric"); $statemedia=read2blank("State Media","statemedia", $LIF,"smedia"); $statetext=read2blank("State Text","statetext",$LIF,"stext"); $taxonmedia=read2blank("Taxon Media","taxonmedia", $LIF,"tmedia"); $taxontext=read2blank("Taxon Text","taxontext",$LIF,"ttext"); $mediadir=read2blank("Multimedia","mediadir",$LIF,"mediadir"); $depend=read2blank("Dependency","depend",$LIF,"depend"); $subkeyinfo=read2blank("Subkey","subkeyinfo",$LIF,"subkey"); if($subkeyinfo) { $num = count($subkeyinfo); for($i=0 ; $i<$num ; $i++) { $array = split("[[:space:]]\"",$subkeyinfo[$i]); $n = $array[0]; $url = substr($array[2],0,-2); $subkey[$n] = trim($url); $text = substr($array[1],0,-1); if($text) { $subkey_text[$n] = trim($text); } } } if(!$taxonmedia) { $taxonmedia[]=a; $taxonmedia[]=b; } if(!$statemedia) { $statemedia[]=a; $statemedia[]=b; } if(!$statetext) { $statetext[]=a; $statetext[]=b; } if(!$taxontext) { $taxontext[]=a; $taxontext[]=b; } if(!$metric) { $metric[]=a; $metric[]=b; } if(ereg("^(.*)/(.*)/(.*)\.LIF",$LIF_file,$arr)) { $LIFname = $arr[3]; }elseif(ereg("^Keys/(.*)\.LIF$",$LIF_file,$arr)) { $LIFname = $arr[1]; } if($location) { $multimedia = "local"; }elseif($location2) { $multimedia = "url"; } if($location3) { $multimedia = "remote"; } if(ereg("http://",$mediadir[1])) { $multimedia = "url"; } $preferences[0]=$LIFname; $preferences[1]=$taxaimage; $preferences[2]=$fontname; $preferences[3]=$bgcolor; $num=count($family); for($i=1 ;$i<=$num ; $i++) { $images = imagestuff(state,$i); if($images[0]) { $char = $family[$i]; $charimage[$char] = 1; } } fclose($file); if($location3) { $preferences[4]="upload"; $success = @unlink($filename) or die ("Could not delete file.
Contact David Remsen (dremsen@mbl.edu)"); } echo ""; $pass_color="green"; $fail_color="red"; $user_mode = $user_mode1; $charstuff = array_replace($charstuff); $statestuff = array_replace($statestuff); $taxanames = array_replace($taxanames); $taxonmedia = array_replace($taxonmedia); $taxontext = array_replace($taxontext); $statemedia = array_replace($statemedia); $subkeytest = array_replace($subkeytest); session_register("matrix"); session_register("selected_state"); session_register("taxa_scores"); session_register("lineinfo"); session_register("statemedia"); session_register("taxonmedia"); session_register("statetext"); session_register("taxontext"); session_register("preferences"); session_register("metric"); session_register("user_mode"); session_register("webkey"); session_register("family"); session_register("statestuff"); session_register("charstuff"); session_register("taxanames"); session_register("multimedia"); session_register("mediadir"); session_register("charimage"); session_register("pass_color"); session_register("fail_color"); session_register("depend"); session_register("subkey"); session_register("subkey_text"); session_register("stylesheet"); echo ""; ?> "; } fwrite($file,"\n"); fwrite($file,"\n"); fwrite($file,"\t\n"); fwrite($file,"\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\n"); fwrite($file,"\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t$preferences[0].LIF\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t". date("Y-m-d\TH:i:s", filectime("../Keys/$preferences[0]/$preferences[0].LIF")) ."\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t(c) 2004 uBio Project : Marine Biological Laboratories\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\n"); fwrite($file,"\t\t\n"); fwrite($file,"\t\t\t\n"); function compare($a,$b) { if($a < $b) { return -1; }elseif($a==$b) { return ($taxa_scores[$a] < $taxa_scores[$b]) ? 1 : -1; }else { return 1; } } if($taxa_scores) { $test=0; $thelasttaxon=-1; reset($taxa_scores); uksort($taxa_scores,"compare"); while(list($key,$val)=each($taxa_scores)) { if(get_score1($matrix[$key])==0) { $tid = $key+1; $taxa = trim($taxanames[$key]); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); if($test==0) $thelasttaxon = $key; $test=1; } } reset($taxa_scores); uksort($taxa_scores,"compare"); while(list($key,$val)=each($taxa_scores)) { if(get_score1($matrix[$key])!=0) { $tid = $key+1; $taxa = trim($taxanames[$key]); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); } } } else { $num = count($taxanames); for($i=0 ; $i<$num ; $i++) { $tid = $i+1; $taxa = trim($taxanames[$i]); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); } } fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\n"); $numberofmedia = 1; $num = count($statestuff); for($i=0 ; $i<$num ; $i++) { $stid = $i+1; $media = imagestuff(state,$stid); $images = $media[0]; $titles = $media[1]; $image = $images[0]; $title = $titles[0]; if($image) { if(!$title || (ereg("^[[:space:]]*$", $title))) $title = $image; fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t$image\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\tImage\n"); fwrite($file,"\t\t\t\t\n"); $numberofmedia++; } } $num = count($taxanames); for($i=0 ; $i<$num ; $i++) { $media = media($i+1); $titles = $media["text"]; $images = $media["images"]; if($images) { $num2 = count($images); for($j=0 ; $j<$num2 ; $j++) { $image = $images[$j]; $title = $titles[$image]; if(!$title) $title = $image; fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t$image\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\tImage\n"); fwrite($file,"\t\t\t\t\n"); $numberofmedia++; } } $videos = $media["video"]; if($videos) { $num2 = count($videos); for($j=0 ; $j<$num2 ; $j++) { $video = $videos[$j]; $title = $titles[$video]; if(!$title) $title = $video; fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t$video\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\tVideo\n"); fwrite($file,"\t\t\t\t\n"); $numberofmedia++; } } $sounds = $media["sounds"]; if($sounds) { $num2 = count($sounds); for($j=0 ; $j<$num2 ; $j++) { $sound = $sounds[$j]; $title = $titles[$sound]; if(!$title) $title = $sound; fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t$sound\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\tSound\n"); fwrite($file,"\t\t\t\t\t\n"); $numberofmedia++; } } $htmls = $media["html"]; if($htmls) { $num2 = count($htmls); for($j=0 ; $j<$num2 ; $j++) { $html = $htmls[$j]; $title = $titles[$html]; if(ereg("(\&)",$html,$arr)) { $html = ereg_replace($arr[1],"&",$html); } if(!$title) $title = $html; fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t$html\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\tWeb Page\n"); fwrite($file,"\t\t\t\t\n"); $numberofmedia++; } } $subkey = $media["subkey"]; if($subkey) { $title = $titles[$subkey]; if(!$title) $title = $subkey; fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t$subkey\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\tSubkey\n"); fwrite($file,"\t\t\t\t\n"); $numberofmedia++; } } fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\n"); fwrite($file,"\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); if($multimedia == "local") { if(@$a = fopen("../Keys/$preferences[0]/Header/header.jpg",r)) { fwrite($file,"\t\t\t\t\t\t$preferences[0]\n"); fclose($a); }else { fwrite($file,"\t\t\t\t\t\theader\n"); } }else { fwrite($file,"\t\t\t\t\t\theader\n"); } fwrite($file,"\t\t\t\t\t\t$func\n"); if($nametype) { fwrite($file,"\t\t\t\t\t\t$nametype\n"); } fwrite($file,"\t\t\t\t\t\t$user_selection\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\ten\n"); fwrite($file,"\t\t\t\t\t\t\t0\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\tde\n"); fwrite($file,"\t\t\t\t\t\t\t0\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\ttrue\n"); fwrite($file,"\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); $numberofmedia=1; fwrite($file,"\t\t\t\t\n"); $num = count($charstuff); for ($i=0 ; $i < $num ; $i++) { $z=$i+1; $char=$z; $character=trim($charstuff[$z]); $xmlopenC = '0'; $xmldependsC = '0'; if(check($is_open,$char) == 1) $xmlopenC = '1'; if($depends[$char]) $xmldependsC = '1'; fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\n"); $num2=count($family); $statesID=array(); for($j=0 ; $j<$num2 ; $j++) { $u=$j+1; $char2=$family[$u]; if($char2==$char) { $statesID[]=$u; } } $num2 = count($statesID); for($j=0 ; $j<$num2 ; $j++) { $xmlimageS = '0'; $xmlchosenS = '0'; $stid = $statesID[$j]; $statename = trim($statestuff[$stid]); $num3=count($selected_state); $open=0; for($d=0 ; $d<$num3 ; $d++) { if($stid==$selected_state[$d]) { $open=1; break; } } $media = imagestuff(state,$stid); $images = $media[0]; if($open==1) $xmlchosenS = '1'; if(isset($images[0])) $xmlimageS = '1'; fwrite($file,"\t\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\t\n"); } fwrite($file,"\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); } fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\t\n"); $num = count($matrix); for($i=0 ; $i<$num ; $i++) { $a = $i+1; fwrite($file,"\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t
\n"); fwrite($file,"\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t
\n"); $media = media($a); $titles = $media["text"]; $images = $media["images"]; fwrite($file,"\t\t\t\t\t\n"); if($images) { $num2 = count($images); for($j=0 ; $j<$num2 ; $j++) { fwrite($file,"\t\t\t\t\t\t\n"); $numberofmedia++; } } $videos = $media["video"]; if($videos) { $num2 = count($videos); for($j=0 ; $j<$num2 ; $j++) { fwrite($file,"\t\t\t\t\t\t\n"); $numberofmedia++; } } $sounds = $media["sounds"]; if($sounds) { $num2 = count($sounds); for($j=0 ; $j<$num2 ; $j++) { fwrite($file,"\t\t\t\t\t\t\n"); $numberofmedia++; } } $htmls = $media["html"]; if($htmls) { $num2 = count($htmls); for($j=0 ; $j<$num2 ; $j++) { fwrite($file,"\t\t\t\t\t\t\n"); $numberofmedia++; } } $subkey = $media["subkey"]; if($subkey) { fwrite($file,"\t\t\t\t\t\t\n"); $numberofmedia++; } fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\n"); $num2 = count($charstuff); $unit=0; for ($j=0 ; $j<$num2 ; $j++) { $z=$j+1; $char=$z; $num3=count($family); fwrite($file,"\t\t\t\t\t\t\n"); $statesID=array(); for($k=0 ; $k<$num3 ; $k++) { $u=$k+1; $char2=$family[$u]; if($char2==$char) { $statesID[]=$u; } } $num3 = count($statesID); for($k=0 ; $k<$num3 ; $k++) { $b = $unit+1; $stid = $statesID[$k]; $matrix_value = substr($matrix[$i],$unit,1); switch($matrix_value) { case(0): break; case(1): fwrite($file,"\t\t\t\t\t\t\t\n"); break; case(2): fwrite($file,"\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\n"); break; case(3): fwrite($file,"\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\n"); break; case(4): fwrite($file,"\t\t\t\t\t\t\t\n"); break; case(5): fwrite($file,"\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\t\t\t\n"); break; case(6): fwrite($file,"\t\t\t\t\t\t\t\n"); break; } $unit++; } fwrite($file,"\t\t\t\t\t\t\n"); } fwrite($file,"\t\t\t\t\t\n"); fwrite($file,"\t\t\t\t\n"); } fwrite($file,"\t\t\t\n"); fwrite($file,"\t\t\n"); fwrite($file,"\t\n"); fwrite($file,"\n"); fclose($file); chdir(".."); } // **When given a line of matrix, it returns the fail_value function get_score1($taxa) { if(ereg("\[(.*)\]",$taxa,$arr)) { $fail_value=$arr[1]; } return $fail_value; } //This function used to interpret the *.LIF file into our variables function read2blank($string,$arrayname,$LIF,$flag) { global $statestuff; global $family; $numchars = 0; $numstates = 0; if($flag=="matrix") { //**Making the tail for the matrix i.e.:(:---:--:---:-:------:) $num = count($statestuff); $lastchar = 0; unset($lineinfo); unset($pf_record); for($i=1 ; $i<=$num ; $i++) { $b=$family[$i]; $charval[]=$b; $charid[$b]=5; } $num2= count($charid); $newnum = $num + $num2 + 2; for($i=1 ; $i<=$num ; $i++) { $currchar = $family[$i]; if($lastchar == $currchar) { $pf_record .= "-"; $lineinfo[] = $newnum; }else { $newnum--; $pf_record .= ":-"; $lineinfo[] = $newnum; } $lastchar = $currchar; } $pf_record .= ":"; session_register("lineinfo"); } for ($i=0; $i< count($LIF); $i++) { if (ereg($string,$LIF[$i])) { $reading=1; continue; } if ((ereg("^[[:space:]]*$",$LIF[$i]) && ($reading==1)) || (($i == count($LIF)-1) && ($reading==1))) { $reading=0; if($flag=="char") { $array[0] = $charstuff; $array[1] = $statestuff; $array[2] = $family; return $array; } if($flag=="matrix") { $array2[0] = $array; $array2[1] = $lineinfo; return $array2; } return $array; } if($reading) { if($flag=="matrix") { $temp = substr($LIF[$i],0,-1); $array[]=$temp . "[0]" . $pf_record; }elseif($flag=="char") { if(ereg("^[a-zA-Z0-9]",$LIF[$i])) { $numchars++; $charstuff[$numchars] = $LIF[$i]; }else { $numstates++; $family[$numstates]=$numchars; $statestuff[$numstates]=trim($LIF[$i]); } }elseif($flag=="metric" || $flag=="depend") { $temp = ereg_replace("[[:space:]]{1,}",":",$LIF[$i]); $array[]=trim(substr($temp,0,-1)); }elseif($flag=="mediadir") { if(ereg("^Sounds",$LIF[$i],$arr)) { $curr = -1; } $curr++; if(ereg("\"(.+)\"",$LIF[$i],$arr)) { $array[$curr]=$arr[1]; } $curr5 = $curr + 5; $pat = "[\\]"; $repl = "\\\\"; $array[$curr5] = ereg_replace($pat,$repl,$array[$curr]); //$array[$curr5] = $array[$curr]; if(substr($array[$curr],-1)=="/") { $array[$curr] = substr($array[$curr],0,-1); } $array[$curr] = ereg_replace($pat,$repl,$array[$curr]); } else { $array[]=$LIF[$i]; } } } } function media($id) { global $taxonmedia; global $preferences; global $taxanames; global $subkey; global $subkey_text; global $taxontext; global $taxonmedia; global $mediadir; global $multimedia; $taxa = $taxanames[$id-1]; $num = count($taxontext); for($i=0 ; $i<$num ; $i++) { if(ereg("^($id) \"(.*)\" \"(.*)\"",$taxontext[$i],$arr)) { $a = $arr[3]; $b = $arr[2]; if(eregi("(.htm|.html)",$a,$arrr)) { $html[]=$a; $text[$a]=$b; }elseif(eregi("http://",$a,$arrr)) { $html[]=$a; $text[$a]=$b; } } } $num = count($taxonmedia); for($i=0 ; $i<$num ; $i++) { if(ereg("^($id )\"(.*)\" \"(.*)\" \"(.*)\"",$taxonmedia[$i],$arr)) { $a = $arr[3]; $b = $arr[2]; if(eregi("(.jpg|.gif|.png|.jpeg)",$a,$arrr)) { if($multimedia=="local") { $na = "Keys/$preferences[0]/Images/$a"; }elseif($multimedia=="remote") { $na = "$mediadir[6]" . "$a"; }elseif($multimedia=="url") { $na = "$mediadir[1]/" . "$a"; } $images[]=$na; if($b) { $text[$na]=$b; }else { $text[$na]=$a; } }else if(eregi("(.mpeg|.avi|.mpg|.mov|.moov|.qt)",$a,$arrr)) { if($multimedia=="local") { $na = "Keys/$preferences[0]/Video/$a"; }elseif($multimedia=="remote") { $na = "$mediadir[4]" . "$a"; }elseif($multimedia=="url") { $na = "$mediadir[4]/" . "$a"; } $video[]=$na; if($b) { $text[$na]=$b; }else { $text[$na]=$a; } }else if(eregi("(.wav|.mp3|.midi)",$a,$arrr)) { if($multimedia=="local") { $na = "Keys/$preferences[0]/Sounds/$a"; }elseif($multimedia=="remote") { $na = "$mediadir[0]" . "$a"; }elseif($multimedia=="url") { $na = "$mediadir[0]/" . "$a"; } $sounds[]=$na; if($b) { $text[$na]=$b; }else { $text[$na]=$a; } } } } $place = $subkey[$id]; if($subkey_text[$id]) { $text[$place] = $subkey_text[$id]; }else { $text[$place] = $place; } $array["images"] = $images; $array["video"] = $video; $array["sounds"] = $sounds; $array["html"] = $html; $array["text"] = $text; $array["subkey"] = $subkey[$id]; return $array; } function array_replace($array) { $num = count($array); if($array[0]) { for($i=0 ; $i<$num ; $i++) { $array[$i] = replace($array[$i]); } }else { for($i=1 ; $i<=$num ; $i++) { $array[$i] = replace($array[$i]); } } return $array; } function replace($name) { if(ereg("&",$name)) { $name = ereg_replace("&","&",$name); } if(ereg("(ò|ó|ô|õ|ö)",$name)) { $name = ereg_replace("(ò|ó|ô|õ|ö)","o",$name); } if(ereg("(é|è|ê|ë)",$name)) { $name = ereg_replace("(é|è|ê|ë)","e",$name); } if(ereg("(ù|ú|û|ü|µ)",$name)) { $name = ereg_replace("(ù|ú|û|ü|µ)","u",$name); } if(ereg("(à|á|â|ã|ä|å)",$name)) { $name = ereg_replace("(à|á|â|ã|ä|å)","a",$name); } if(ereg("(ç)",$name)) { $name = ereg_replace("(ç)","c",$name); } return $name; } function imagestuff($type,$number) { global $taxonmedia; global $statemedia; global $family; if($type=="taxon") { $num = count($taxonmedia); for($i=0 ; $i<$num ; $i++) { if(ereg("^($number )\"(.*)\" \"(.*)\" \"(.*)\"",$taxonmedia[$i],$arr)) { $a = $arr[3]; $b = $arr[2]; if(eregi("(.jpg|.gif|.png|.jpeg)",$a,$arrr)) { $images[]=$a; $text[]=$b; } } } } if($type=="state") { $num = count($statemedia); for($i=0 ; $i<$num ; $i++) { if(ereg("^($number )\"(.*)\" \"(.*)\" \"(.*)\"",$statemedia[$i],$arr)) { $a = $arr[3]; $b = $arr[2]; if(eregi("(.jpg|.gif|.png|.jpeg)",$a,$arrr)) { $images[]=$a; $text[]=$b; } } } } $new[0]=$images; $new[1]=$text; return $new; } function check($array,$cid) { $num = count($array); for($i=0 ; $i<$num ; $i++) { $a = $array[$i]; if($cid==$a) { return 1; break; } } return 0; } ?>