Initial Kohana install

[speedfreak] / Server / system / helpers / remote.php

diff --git a/Server/system/helpers/remote.php b/Server/system/helpers/remote.php
new file mode 100644 (file)
index 0000000..f9e0267
--- /dev/null
+++ b/Server/system/helpers/remote.php
@@ -0,0 +1,66 @@
+<?php defined('SYSPATH') OR die('No direct access allowed.');
+/**
+ * Remote url/file helper.
+ *
+ * $Id: remote.php 3769 2008-12-15 00:48:56Z zombor $
+ *
+ * @package    Core
+ * @author     Kohana Team
+ * @copyright  (c) 2007-2008 Kohana Team
+ * @license    http://kohanaphp.com/license.html
+ */
+class remote_Core {
+
+       public static function status($url)
+       {
+               if ( ! valid::url($url, 'http'))
+                       return FALSE;
+
+               // Get the hostname and path
+               $url = parse_url($url);
+
+               if (empty($url['path']))
+               {
+                       // Request the root document
+                       $url['path'] = '/';
+               }
+
+               // Open a remote connection
+               $remote = fsockopen($url['host'], 80, $errno, $errstr, 5);
+
+               if ( ! is_resource($remote))
+                       return FALSE;
+
+               // Set CRLF
+               $CRLF = "\r\n";
+
+               // Send request
+               fwrite($remote, 'HEAD '.$url['path'].' HTTP/1.0'.$CRLF);
+               fwrite($remote, 'Host: '.$url['host'].$CRLF);
+               fwrite($remote, 'Connection: close'.$CRLF);
+               fwrite($remote, 'User-Agent: Kohana Framework (+http://kohanaphp.com/)'.$CRLF);
+
+               // Send one more CRLF to terminate the headers
+               fwrite($remote, $CRLF);
+
+               while ( ! feof($remote))
+               {
+                       // Get the line
+                       $line = trim(fgets($remote, 512));
+
+                       if ($line !== '' AND preg_match('#^HTTP/1\.[01] (\d{3})#', $line, $matches))
+                       {
+                               // Response code found
+                               $response = (int) $matches[1];
+
+                               break;
+                       }
+               }
+
+               // Close the connection
+               fclose($remote);
+
+               return isset($response) ? $response : FALSE;
+       }
+
+} // End remote
\ No newline at end of file