ZemHost Forums - Useful Scripts http://www.zemhost.com/forums/ Have a useful script that you like? Share it with everybody else here. en Thu, 09 Sep 2010 20:58:04 GMT vBulletin 60 http://www.zemhost.com/forums/images/misc/rss.png ZemHost Forums - Useful Scripts http://www.zemhost.com/forums/ <![CDATA[[PHP]recursive_files]]> http://www.zemhost.com/forums/threads/4055-PHP-recursive_files?goto=newpost Tue, 07 Sep 2010 13:40:25 GMT
PHP Code:
<?php
/**
 * Loops through every folder from the specified path and lists the files with full path to.
 * 
 * @author    Dan
 * @param    String    $path    path to scanned folder
 * @return    array            path to each file
 */
function recursive_files($path) {
    $path = str_ireplace('//', '/', $path);
    if (is_dir($path)) {
        $files = array();
        $dirHandle = opendir($path);
        while ($file = readdir($dirHandle)) {
            if (($file != '.') && ($file != '..')) {
                $file = $path . '/' . $file;
                $files = array_merge($files, recursive_files($file));
            }
        }
        return $files;
    } else if (is_file($path)) {
        return array($path);
    } else {
        return array();
    }
}
?>
*Dan is my real name, that's why it's author is "Dan". I'm not ripping any PHP snippets, I like to do anything from scratch. ]]> Useful Scripts DunnKz http://www.zemhost.com/forums/threads/4055-PHP-recursive_files <![CDATA[[PHP] Gradient function]]> http://www.zemhost.com/forums/threads/4036-PHP-Gradient-function?goto=newpost Sat, 04 Sep 2010 08:11:46 GMT Hello! I'm really bored so I decided to do something nice. I just thought on doing a gradient generator. Here it is:
Code:
<?php
/**
 * Generates a gradient with <code>$stages</code>, using colors <code>$from</code> and <code>$to</code>.
 *
 * @param        String        $from        begin
 * @param        String        $to                end
 * @param        int                $stages        number of stages
 * @todo        test and bug-fix(if any)
 *
 * @author        Dan <DunnKz, from ZemHost community>
 */
function gradient($from, $to, $stages) {
        $hexdec_color = function($color) {
                $color = str_ireplace('#', '', $color);
                $color = str_split($color, 2);
                $_color['r'] = hexdec($color[0]);
                $_color['g'] = hexdec($color[1]);
                $_color['b'] = hexdec($color[2]);
                return $_color;
        };
        $dechex_color = function ($color) {
                $color['r'] = dechex($color['r']);
                $color['g'] = dechex($color['g']);
                $color['b'] = dechex($color['b']);
                if (strlen($color['r']) < 2) {
                        $color['r'] = '0' . $color['r'];
                }
                if (strlen($color['g']) < 2) {
                        $color['g'] = '0' . $color['g'];
                }
                if (strlen($color['b']) < 2) {
                        $color['b'] = '0' . $color['b'];
                }
                return '#' . $color['r'] . $color['g'] . $color['b'];
        };
        $from = $hexdec_color($from);
        $to = $hexdec_color($to);
        $R_stage = floor(($from['r'] - $to['r']) / $stages);
        $G_stage = floor(($from['g'] - $to['g']) / $stages);
        $B_stage = floor(($from['b'] - $to['b']) / $stages);
        $_gradient[0] = $from;
        $_gradient[$stages - 1] = $to;
        for ($i = 1; $i < $stages - 1; $i++) {
                $_gradient[$i]['r'] = $_gradient[$i - 1]['r'] - $R_stage;
                $_gradient[$i]['g'] = $_gradient[$i - 1]['g'] - $G_stage;
                $_gradient[$i]['b'] = $_gradient[$i - 1]['b'] - $B_stage;
                if ($_gradient[$i]['r'] < 0) {
                        $_gradient[$i]['r'] = 0;
                }
                if ($_gradient[$i]['r'] > 255) {
                        $_gradient[$i]['r'] = 255;
                }
                if ($_gradient[$i]['g'] < 0) {
                        $_gradient[$i]['g'] = 0;
                }
                if ($_gradient[$i]['g'] > 255) {
                        $_gradient[$i]['g'] = 255;
                }
                if ($_gradient[$i]['b'] < 0) {
                        $_gradient[$i]['b'] = 0;
                }
                if ($_gradient[$i]['b'] > 255) {
                        $_gradient[$i]['b'] = 255;
                }
        }
        for ($i = 0; $i < $stages; $i++) {
                $gradient[$i] = $dechex_color($_gradient[$i]);
        }
        return $gradient;
}
/*
 * Example 1
 */
$gradient = gradient('#0000ff', '#ff0000', 50);                // Nice blue -> red gradient using 50 stages.
foreach ($gradient as $color) {
        echo '<div style="background-color: ' . $color .'; width: 50px; height: 10px; display: block;"></div>';
}
/*
 * Example 2
 */
$stringArray = str_split('ZemHost');
$len = count($stringArray);
$gradient = gradient('#0000ff', '#ff0000', $len);
for ($i = 0; $i < $len; $i++) {
        echo '[COLOR="'. $gradient[$i] .'"]' . $stringArray[$i] . '[/COLOR]';
}
?>
Example 2: ZemHost ]]> Useful Scripts DunnKz http://www.zemhost.com/forums/threads/4036-PHP-Gradient-function <![CDATA[[PHP] Useful functions related to IPs (ipToInt, is_ipInRange)]]> http://www.zemhost.com/forums/threads/4035-PHP-Useful-functions-related-to-IPs-%28ipToInt-is_ipInRange%29?goto=newpost Sat, 04 Sep 2010 06:45:15 GMT Hello guys!
I hadn't posted a good thing for ages, so I just thought I should give you my functions that I use for IPs related problems.

Code:
<?php
/**
 * Converts an IP to an integer.
 *
 * @param        String        $ip        ip, ready for conversion
 * @return        int                requested IP to int(it's size being 4 classes * 3 digits each class = 12)
 * @todo        There's a little problem. 2^31 - 1 (maxint) has 10 digits, but this has 12 digits. :(
 *
 * @author        Dan <DunnKz, from ZemHost community>
 */
function ipToInt($ip) {
        $ip = explode('.', $ip);
        while (strlen($ip[0]) < 3) {
                $ip[0] = '0' . $ip[0];
        }
        while (strlen($ip[1]) < 3) {
                $ip[1] = '0' . $ip[1];
        }
        while (strlen($ip[2]) < 3) {
                $ip[2] = '0' . $ip[2];
        }
        while (strlen($ip[3]) < 3) {
                $ip[3] = '0' . $ip[3];
        }
        return $ip[0] . $ip[1] . $ip[2] . $ip[3];
}

/**
 * Checks if an <code>$ip</code> is in range(<code>$from</to> to <code>$to</code>).
 * @param        String        $from
 * @param        String        $to
 * @param        String        $ip
 * @return        bool        <code>true</code> if yes, else <code>false</code>
 * @uses        <code>ipToInt($ip)</code>
 *
 * @author        Dan <DunnKz, from ZemHost community>
 */
function is_ipInRange($from, $to, $ip) {
        $from = ipToInt($from);
        $to = ipToInt($to);
        if ($from > $to) {
                $_ = $to;
                $to = $from;
                $from = $_;
        }
        $ip = ipToInt($ip);
        return (($ip <= $to) && ($ip >= $from));
}

/*
 * Examples
 */
echo is_ipInRange('127.0.0.255', '127.0.0.0', '127.0.0.1') ? 'Yes' : 'No';                // Outputs "Yes"
echo is_ipInRange('127.0.0.255', '127.0.0.0', '127.0.0.255') ? 'Yes' : 'No';        // Outputs "Yes"
echo is_ipInRange('126.0.0.255', '126.0.0.0', '127.0.0.1') ? 'Yes' : 'No';                // Outputs "No"
echo is_ipInRange('126.0.0.255', '128.0.0.0', '127.0.0.1') ? 'Yes' : 'No';                // Outputs "Yes"
?>
This can be used for ban IP systems, if requested, I'll post here one. :D

I'm waiting for feedback. ]]> Useful Scripts DunnKz http://www.zemhost.com/forums/threads/4035-PHP-Useful-functions-related-to-IPs-%28ipToInt-is_ipInRange%29 <![CDATA[[C] Little Timer]]> http://www.zemhost.com/forums/threads/4023-C-Little-Timer?goto=newpost Mon, 30 Aug 2010 10:34:36 GMT This is a little timer program I wrote, a clone of sleep (in GNU coreutils) but it displays more information. It uses the same argument format as... This is a little timer program I wrote, a clone of sleep (in GNU coreutils) but it displays more information. It uses the same argument format as sleep. It's not really a script (but a program), but there's no more suitable places to post it.
It's untested under any environment other than my Gentoo. It uses a nonstandard sleep() function that may or may not exist in your C library. (It exists in glibc.) And a C99-compliant compiler is required.
For any results that it creates, I'm not liable. (For example, if you overcook your dinner because the timing does not work, you won't get a free lunch from me. :D )
Code:
// timer.c -- sleep clone with more information displayed
// Richard Grenville
// August 30th, 2010
// License: GPLv3 (or a newer version)
// Tested with gcc 4.4.4 under Gentoo amd64
#include        <stdio.h>
#include        <stdlib.h>
#include        <limits.h>

const char *MSG[] = {
        [0] = "Usage: timer <waiting time (s/m/h/d) ...>\n"
};

inline void prttime(const long time, const long totaltime) {
        printf("%2ld:%2ld:%2ld (%4.1f%%) left.\n", time / 3600, time % 3600 / 60
                        , time % 60, (double) time / totaltime * 100);
}

long argproc(const char *str);

int main(int argc, char *argv[]) {
        long time, totaltime = 0;
        long i;
        char **argptr, **argend;

        if(1 == argc) {
                fputs(MSG[0], stderr);
                return -1;
        }       
        for(argptr = argv + 1, argend = argv + argc
                                ; argptr < argend; argptr++) {
                if((i = argproc(*argptr)) < 0) {
                        if(-1 == i)
                                fputs(MSG[0], stderr);
                        return i;
                }
                totaltime += i;
        }
        time = totaltime;
        while(time-- > 0) {
                // printf("Time: %ld\n", time);
                if(sleep(1))
                        return 1;
                prttime(time, totaltime);
        }

        return 0;
}

long argproc(const char *str) {
        char *endptr, **pendptr = &endptr;
        double convval;

        convval = strtod(str, pendptr);
        if('\0' == *endptr) {
                if(convval > LONG_MAX)
                        return -2;
                return (long) convval;
        }
        if('\0' != *(endptr + 1))
                return -1;
        switch(*endptr) {
                case 's':        break;
                case 'm':        convval *= 60;
                                        break;
                case 'h':        convval *= 3600;
                                        break;
                case 'd':        convval *= 3600 * 24;
                                        break;
        }
        if(convval > LONG_MAX)
                return -2;
        return (long) convval;
}
]]> Useful Scripts RichardGv http://www.zemhost.com/forums/threads/4023-C-Little-Timer Simple Web Server in Lua (LuaSocket) http://www.zemhost.com/forums/threads/4018-Simple-Web-Server-in-Lua-%28LuaSocket%29?goto=newpost Wed, 25 Aug 2010 02:51:48 GMT Using Lua for Windows, I've designed a simple web server in Lua. It is a little glitchy and I had a really good, secure copy of it that even allowed binary files to be safely transferred, but I lost it.

To use this code, you'll need:
  • Lua for Windows
  • LuaSocket (add-on comes with Lua for Windows)
  • A Browser!
  • Available folder for files

Simply running the following code sets up a simple server. It will tell you what port you need to connect to. When it tells you, you must connect to the port via localhost or 127.0.0.1.

server.lua
Code:
-- load namespace
local socket = require("socket")
-- create a TCP socket and bind it to the local host, at any port
local server = assert(socket.bind("localhost", 1337))
-- find out which port the OS chose for us
local ip, port = server:getsockname()
-- print a message informing what's up
print("PORT: " .. port)
print("IP: " .. ip)
-- loop forever waiting for clients
while true do
  -- wait for a connection from any client
  local client = server:accept()
  -- make sure we don't block waiting for this client's line
  --client:settimeout(10)
  -- receive the line
  local line, err = client:receive()
  -- if there was no error, send it back to the client
  if not err then
        print("Sent.")
        local content =
[[<html>
<head>
<title>Hi</title>
</head>
<body>
<h1>Hi</h1>
It works.
</body>
</html>]]
        local sendthis =
[[HTTP/1.1 200 OK
Content-type: text/html
Content-length: ]] .. string.len(content) .. [[


]] .. content
        sendthis = string.gsub(sendthis,"\n","\r\n");
        client:send(sendthis)
  end
  -- done with client, close the object
  client:close()
end
To connect to it, use http://localhost:1337/ (or a different port) OR http://127.0.0.1:1337/

To launch the server, use this batch script to launch it via command prompt. Lua for Windows will register the "lua" command when installed.

start.bat
Code:
@echo off
lua server.lua
pause > nul
If you want others computers to connect to this port, you must have port forwarding technologies available to you. If you connect to the internet via a wireless router, you should look at port forwarding.

This is for anyone who's interested in how basic web servers work. I hope you improve this code eventually :D ]]> Useful Scripts Ozzypig http://www.zemhost.com/forums/threads/4018-Simple-Web-Server-in-Lua-%28LuaSocket%29