<?php
 // Get company list
 $c = file_get_contents("http://www.crunchbase.com/companies");
 $company = array();
 foreach (explode("\n", $c) as $l) {
  if (preg_match('#href="/company/([^"]+)#', $l, $m)) {
   $company[$m[1]] = true;
  }
 }
 $companies = array_keys($company);

 function person_list($company_permalink) {
  $person_list = array();
  $url = "http://api.crunchbase.com/v/1/company/{$company_permalink}.js";
  $data = json_decode(file_get_contents($url));
  for($i=0; $i<count($data->relationships); $i++) {
   $person_list[]= $data->relationships[$i]->person->permalink;
  }
  return $person_list;
 }

 // Output himmeli format edge data as edges.txt and vertice data as vertice.txt
 $ed = fopen("edges.txt", "w");
 $ve = fopen("vertices.txt", "w");
 fputs($ed, "HEAD\tTAIL\tWEIGHT\tWIDTH\tCOLOR\n");
 fputs($ve, "NAME\tGROUP\n");
 foreach ($companies as $co) {
  echo "{$co}\n";
  fputs($ve, "{$co}\t7\n"); // 7 means a box in himmeli
  $p = person_list($co);
  foreach ($p as $person) {
   fputs($ed, "{$co}\t{$person}\t0.1\t-1\t\n");
   fputs($ve, "{$person}\t5\n"); // 5 is a star
  }
 }
 fclose($ve);
 fclose($ed);

?>