skadategems-dev 0.0.9

data/lib/skadategems/dev/remote/configs.rb

@@ -0,0 +1,97 @@
+require 'json'
+
+module SkadateGems
+  module Dev
+
+    class Remote
+
+      # Represents remote application configurations accessor.
+      class Configs
+
+        # @param remote [Remote] skadate remote app
+        def initialize(remote)
+          @remote = remote
+        end
+
+        # Configuration value accessor method.
+        # @param section_path_or_id [Fixnum|String] config section path or `config_id`
+        def [](section_path_or_id)
+          case section_path_or_id.class.to_s
+            when 'String'
+              raise 'Getting remote configs by path is currently not implemented'
+            when 'Fixnum'
+              get_by_id(section_path_or_id)
+            else
+              raise ArgumentError, "unexpected `section_path_or_id` type #{section_path_or_id.class}"
+          end
+        end
+
+        # @param config_id [Fixnum] configuration id
+        def get_by_id(config_id)
+          response = @remote.exec include: 'mysql_connect' do |script|
+            script << <<-PHPSCRIPT
+$result = $mysql->query("SELECT `name`, `value` FROM `".TBL_CONFIG."` WHERE `config_id`=#{config_id}");
+$config = $result->fetch_object();
+echo '{ ';
+echo '"name": "'.$config->name.'", ';
+echo '"value": '.$config->value;
+echo ' }';
+            PHPSCRIPT
+          end
+
+          result = JSON.parse(response.body)
+
+          Config.new(@remote, config_id, result['name'], result['value'])
+        end
+
+        # Represents remote application config entry.
+        class Config
+
+          # @return [Fixnum] config entry id
+          attr_reader :id
+
+          # @return [String] config entry name
+          attr_reader :name
+
+          # @return [mixed] config entry value
+          attr_reader :value
+
+          # @return [nil | :updated | :not_modified] config value update status
+          attr_reader :update_status
+
+          # @param remote [Remote] remote skadate app
+          # @param id [Fixnum] config id
+          # @param name [String] config name
+          # @param value [mixed] config value
+          def initialize(remote, id, name, value)
+            @remote, @id, @name, @value = remote, id, name, value
+          end
+
+          # Perform remote application config value update.
+          # Changes the #update_status value.
+          # @param value [#to_json] json serializable value
+          def value=(value)
+            if value == @value
+              @update_status = :not_modified
+              return
+            end
+
+            response = @remote.exec(include: 'mysql_connect') do |script|
+              script << <<-PHPSCRIPT
+$value = $mysql->real_escape_string('#{value.to_json.gsub(/['\\]/, '\\\\\0')}');
+$mysql->query("UPDATE `".TBL_CONFIG."` SET `value`='$value' WHERE `config_id`=#{@id}");
+echo $mysql->affected_rows;
+              PHPSCRIPT
+            end
+
+            @update_status = (response.body == '1') ? :updated : :not_modified
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+end

data/lib/skadategems/dev/remote/directory.rb

@@ -0,0 +1,88 @@
+require 'json'
+require 'skadategems/dev/remote/file'
+
+module SkadateGems
+  module Dev
+
+    class Remote
+
+      # Represents a remote directory.
+      class Directory < File
+
+        # @attr list_hidden [boolean]
+        attr_accessor :list_hidden
+
+        # @return [boolean] always true
+        def directory?
+          true
+        end
+
+        # @return [String] always '/'
+        def extname
+          '/'
+        end
+
+        # List remote directory files.
+        # @return [Array < Directory | File >] where each entry
+        #   may be either a `Remote::Directory` or a `Remote::File` accessor object.
+        def list
+          path = self.path.dup
+          path[0] = '' if path[0] == '/'
+          path[-1] = '' if path[-1] == '/'
+
+          response = @remote.exec do |batch|
+            batch << <<-PHPSCRIPT
+$dir = dir(DIR_SITE_ROOT . '#{path.gsub(/['\\]/, '\\\\\0')}');
+
+$list = array();
+while (false !== ($file = $dir->read())) {
+  if (#{if list_hidden
+          '$file === \'.\' || $file === \'..\''
+        else
+          '$file{0} === \'.\' && $file !== \'.htaccess\''
+        end}) {
+    continue;
+  }
+
+  $path = "$dir->path/$file";
+
+  if ($path === $_SERVER['SCRIPT_FILENAME']) {
+    continue;
+  }
+
+  if (is_file($path)) {
+    $type = 'f';
+  } elseif (is_dir($path)) {
+    $type = 'd';
+  } else {
+    continue;
+  }
+
+  $list[] = array($file, $type, filesize($path));
+}
+
+echo json_encode($list);
+            PHPSCRIPT
+          end
+
+          result = []
+
+          JSON.parse(response.body).each do |entry|
+            name, type, size = entry
+            _path = ::File.join(self.path, name)
+
+            result << if type == 'd'
+              Directory.new(@remote, _path, size)
+            else
+              File.new(@remote, _path, size)
+            end
+          end
+
+          result.sort! { |a, b| a.basename <=> b.basename }
+        end
+      end
+
+    end
+
+  end
+end

data/lib/skadategems/dev/remote/file.rb

@@ -0,0 +1,157 @@
+require 'fileutils'
+require 'digest/md5'
+require 'tempfile'
+
+module SkadateGems
+  module Dev
+
+    class Remote
+
+      # Remote file accessor.
+      class File
+
+        # @return [String] relative path to a file
+        attr_reader :path
+
+        # @return [Fixnum] remote file size in bytes
+        attr_reader :size
+
+        def initialize(remote, path, size = nil)
+          @remote, @path, @size = remote, path, size
+        end
+
+        def directory?
+          false
+        end
+
+        # @return [String] remote file basename
+        def basename
+          ::File.basename(@path)
+        end
+
+        # @return [String] remote file extension
+        def extname
+          ::File.extname(@path)
+        end
+
+        # @return [String] human readable file size
+        def friendly_size
+          units = %W(B KiB MiB GiB TiB)
+
+          size, unit = units.reduce(@size.to_f) do |(fsize, _), type|
+            fsize > 512 ? [fsize / 1024, type] : (break [fsize, type])
+          end
+
+          "#{size > 9 || size.modulo(1) < 0.1 ? '%d' : '%.1f'} %s" % [size, unit]
+        end
+
+        # Request remote file to read it's contents.
+        # @yield [response] passes a http response to the block
+        def request(md5_checksum: nil, &block)
+          path = self.path.dup
+          path[0] = '' if path[0] == '/'
+
+          batch = ScriptBatch.new
+
+          batch << <<-PHPSCRIPT
+$filename = DIR_SITE_ROOT . '#{path.gsub(/['\\]/, '\\\\\0')}';
+
+if (!file_exists($filename)) {
+  header('HTTP/1.1 404 Not Found');
+  exit;
+}
+
+$md5_checksum = md5_file($filename);
+          PHPSCRIPT
+
+          if md5_checksum
+            raise ':md5_checksum must be a String' unless md5_checksum.is_a? String
+
+            batch << <<-PHPSCRIPT
+if ($md5_checksum === '#{md5_checksum.gsub(/['\\]/, '\\\\\0')}') {
+  header('HTTP/1.1 304 Not Modified');
+  exit;
+}
+            PHPSCRIPT
+          end
+
+          batch << <<-PHPSCRIPT
+header('Content-Description: File Transfer');
+header('Content-Type: application/octet-stream');
+header('Content-Disposition: attachment; filename=' . basename($filename));
+header('Content-Length: ' . filesize($filename));
+header('X-Content-MD5-Checksum: ' . $md5_checksum);
+ob_clean();
+flush();
+readfile($filename);
+exit;
+          PHPSCRIPT
+
+          @remote.accessor.exec(batch) do |response|
+            if response.is_a?(Net::HTTPNotModified)
+              block.call(response)
+            elsif response.is_a?(Net::HTTPOK)
+              if response['content-disposition'] == "attachment; filename=#{basename}" &&
+                  response['x-content-md5-checksum']
+                block.call(response)
+              else
+                raise 'unexpected response headers'
+              end
+            else
+              raise "[#{response.code} \"#{response.message}\"]"
+            end
+          end
+        end
+
+        # Download and save a remote file as a given filename.
+        # @param filename [String] filename to save file as
+        # @yield [chunk_size] on each segment receive
+        # @yieldparam chunk_size [Fixnum] received segment size
+        def save_as(filename)
+          current_checksum = if ::File.exists?(filename)
+            Digest::MD5.file(filename).hexdigest
+          end
+
+          request(md5_checksum: current_checksum) do |response|
+            if response.is_a?(Net::HTTPNotModified)
+              return false
+            elsif response.is_a?(Net::HTTPOK)
+              @size = response['content-length'].to_i if @size.nil?
+              new_checksum = response['x-content-md5-checksum']
+              md5 = Digest::MD5.new
+
+              begin
+                tempfile = Tempfile.create([basename, extname])
+                response.read_body do |chunk|
+                  tempfile << chunk
+                  md5 << chunk
+                  yield chunk.size if block_given?
+                end
+                tempfile.close
+
+                if md5.hexdigest != new_checksum
+                  raise "md5 checksum mismatch:\n  [#{md5.hexdigest}]\n  [#{new_checksum}]"
+                end
+
+                parent_dir = ::File.dirname(filename)
+                FileUtils.mkdir_p(parent_dir) unless ::File.exists?(parent_dir)
+
+                FileUtils.mv(tempfile.path, filename)
+                FileUtils.chmod(0644, filename)
+
+                return true
+              ensure
+                tempfile.close unless tempfile.closed?
+              end
+            else
+              raise "unexpected response #{response}"
+            end
+          end
+        end
+
+      end
+
+    end
+
+  end
+end

data/lib/skadategems/dev/remote/includes/mysql_connect.php

@@ -0,0 +1,8 @@
+<?php
+
+$mysql = new mysqli(DB_HOST, DB_USER, DB_PASS, DB_NAME) or die("Error " . mysqli_error($link));
+if ($mysql->connect_error) {
+    die('Connect Error (' . $mysql->connect_errno . ') ' . $mysql->connect_error);
+}
+
+require_once DIR_INTERNALS . 'db_tbl.const.php';

data/lib/skadategems/dev/skadate.rb

@@ -0,0 +1,30 @@
+require 'skadategems/dev/source_controller'
+require 'skadategems/dev/remote'
+
+module SkadateGems
+  module Dev
+
+    # Represents Skadate development project that is located in a specified `:root_dir`.
+    class Skadate
+
+      attr_reader :root_dir
+
+      # @param root_dir [String] path to skadate source root directory
+      def initialize(root_dir)
+        @root_dir = root_dir
+      end
+
+      # @return [SourceController] skadate source controller object
+      def source
+        @source ||= SourceController.new(@root_dir)
+      end
+
+      # @return [Remote] remote application accessor
+      def remote
+        @remote ||= Remote.new(source.filename '.dev/remote-server.json')
+      end
+
+    end
+
+  end
+end

data/lib/skadategems/dev/software_version.rb

@@ -0,0 +1,66 @@
+require 'date'
+
+module SkadateGems
+  module Dev
+
+    # Represents Skadate software version
+    class SoftwareVersion
+      LIST, MAP = [], {}
+
+      attr_reader :major
+      attr_reader :minor
+      attr_reader :build
+      attr_reader :release_date
+      attr_reader :codename
+
+      # @param version [String] string version representation
+      # @param release_date [Date] version release date
+      # @param codename [String] software version codename
+      def initialize(version, release_date = nil, codename = nil)
+        @major, @minor, @build = version.split('.', 3).map { |n| n.to_i }
+        @release_date = release_date
+        @codename = codename
+      end
+
+      # @return [String] version string representation
+      def to_s
+        "#{@major}.#{@minor}.#{@build}"
+      end
+
+      # Versions equality operator
+      def == (other)
+        return other == to_s if other.instance_of?(String)
+
+        return false unless other.instance_of?(SoftwareVersion)
+
+        @major == other.major &&
+        @minor == other.minor &&
+        @build == other.build
+      end
+
+      # @return [boolean] true if current version is supported by `skadategems-dev`
+      def supported?
+        MAP.key?(to_s)
+      end
+
+      # Raised in case of software version compatibility error.
+      # @see Dev::SourceController#version!
+      class CompatibilityError < StandardError; end
+    end
+
+    # Skadate software supported versions.
+    [ ['9.0.2500', Date.new(2012,  1, 30)],
+      ['9.0.2555', Date.new(2012,  5, 23)],
+      ['9.2.2657', Date.new(2012, 10, 12)],
+      ['9.2.2960', Date.new(2013,  4, 16), 'Master'],
+      ['9.3.3144', Date.new(2013, 10,  8), 'Master II']
+    ].each do |params|
+      version = SoftwareVersion.new(*params)
+      SoftwareVersion::LIST << version
+      SoftwareVersion::MAP[params[0]] = version
+    end
+
+    SoftwareVersion::LIST.freeze
+    SoftwareVersion::MAP.freeze
+  end
+end