function is_valid_email($email)
{
	if(preg_match("/[a-zA-Z0-9_-.+]+@[a-zA-Z0-9-]+.[a-zA-Z]+/", $email) > 0)
		return true;
	else
		return false;
}

function mdy($mid = "month", $did = "day", $yid = "year", $mval, $dval, $yval)
	{
		if(empty($mval)) $mval = date("m");
		if(empty($dval)) $dval = date("d");
		if(empty($yval)) $yval = date("Y");
		
		$months = array(1 => "January", 2 => "February", 3 => "March", 4 => "April", 5 => "May", 6 => "June", 7 => "July", 8 => "August", 9 => "September", 10 => "October", 11 => "November", 12 => "December");
		$out = "<select name='$mid' id='$mid'>";
		foreach($months as $val => $text)
			if($val == $mval) $out .= "<option value='$val' selected>$text</option>";
			else $out .= "<option value='$val'>$text</option>";
		$out .= "</select> ";

		$out .= "<select name='$did' id='$did'>";
		for($i = 1; $i <= 31; $i++)
			if($i == $dval) $out .= "<option value='$i' selected>$i</option>";
			else $out .= "<option value='$i'>$i</option>";
		$out .= "</select> ";

		$out .= "<select name='$yid' id='$yid'>";
		for($i = date("Y"); $i <= date("Y") + 2; $i++)
			if($i == $yval) $out.= "<option value='$i' selected>$i</option>";
			else $out.= "<option value='$i'>$i</option>";
		$out .= "</select>";
		
		return $out;
	}

// Browser detection

// Internet Explorer
var ie  = document.all != null;  //ie4 and above
var ie5 = document.getElementById && document.all;
var ie6 = document.getElementById && document.all&&(navigator.appVersion.indexOf("MSIE 6.")>=0);

// Netscape
var ns4 = document.layers != null;
var ns6 = document.getElementById && !document.all;
var ns  = ns4 || ns6;

// Firefox
var ff  = !document.layers && !document.all;

// Opera
var op  = navigator.userAgent.indexOf("opera")>0;
var op7 = op && operaVersion() <= 7;
var op8 = op && operaVersion() >= 8;

// Detects the Opera version
function operaVersion() {
	agent = navigator.userAgent;
	idx = agent.indexOf("opera");	
	if (idx>-1) {
		return parseInt(agent.subString(idx+6,idx+7));
	}
}

CSS
 /* set millions of background images */
.rbroundbox { background: url(nt.gif) repeat; }
.rbtop div { background: url(tl.gif) no-repeat top left; }
.rbtop { background: url(tr.gif) no-repeat top right; }
.rbbot div { background: url(bl.gif) no-repeat bottom left; }
.rbbot { background: url(br.gif) no-repeat bottom right; }

/* height and width stuff, width not really nessisary. */
.rbtop div, .rbtop, .rbbot div, .rbbot {
width: 100%;
height: 7px;
font-size: 1px;
}
.rbcontent { margin: 0 7px; }
.rbroundbox { width: 50%; margin: 1em auto; }



HTML

<div class="rbroundbox">
	<div class="rbtop"><div></div></div>
		<div class="rbcontent">
			<p>Lorem ipsum dolor sit amet, 
			consectetuer adipiscing elit. Duis 
			ornare ultricies libero. Donec 
			fringilla, eros at dapibus fermentum,
			tellus tellus auctor erat, vitae porta 
			magna libero sed libero. Mauris sed leo. 
			Aliquam aliquam. Maecenas vestibulum.</p>
		</div><!-- /rbcontent -->
	<div class="rbbot"><div></div></div>
</div><!-- /rbroundbox -->

************************************************************************
Example:
************************************************************************


$xml = new XML('artikel.xml'); 
$xml->print_nodes(); 

?>    

***********************************************************************
Script
***********************************************************************


<?php 

# This script formats a xml file according to some rules. These rules 
# are processed in the function that xml_set_character_data_handler 
# defines. We have to remember, in which element we are, and furthermore, 
# which ancestor elements the current element has. 

class Node { 
    var $name; 
    var $attributes; 
    var $ancestors = "/" 
    var $data; 
    var $type; 

    function Node($tree) { 
        $this->name = array_pop($tree); 
        $this->ancestors .= implode("/", $tree); 
    } 

    function add_data($value) { 
        $this->data .= ' '.$value; 
    } 

    function get_type() { 
        if (strlen($this->data) > 0) { 
            return "with CDATA" 
        } else { 
            return "without CDATA" 
        } 
    } 

    function level() { 
        if ($this->ancestors == "/") return 0; 
      if (preg_match_all("/(\/{1})/", $this->ancestors, $result,PREG_PATTERN_ORDER)) { 
        return (count($result[0])); 
      } else { 
        return 0; 
        } 
    } 

    function has_attributes() { 
        return (is_array($this->attributes)); 
    } 

    function print_name() { 
        return "$this->name"; 
    } 
     
    function is_child($node) { 
        $result = preg_match("/^$ancestors/", $node->ancestors, $match); 
        if ($node->ancestors == $this->ancestors) $result = false; 
        return $result; 
    } 
} 

class XML { 
    var $file; 
    var $tree = array(); 
    var $nodes = array(); 
    var $PIs; 
    var $format_body = "font-family:Verdana;font-size:10pt;" 
    var $format_bracket = "color:blue;" 
    var $format_element = "font-family:Verdana;font-weight:bold;font-size:10pt;" 
    var $format_attribute = "font-family:Courier;font-size:10pt;" 
    var $format_data = "font-size:12pt;" 
    var $format_attribute_name = "color:#444444;" 
    var $format_attribute_value = "font-family:Courier;font-size:10pt;color:red;" 
    var $format_blanks = "   " 

    function XML($filename) { 
        $this->file = $filename; 
        $xml_parser = xml_parser_create(); 
        xml_set_object($xml_parser,&$this); 
        xml_set_element_handler($xml_parser, "startElement", "endElement"); 
        xml_set_character_data_handler($xml_parser, "characterData"); 
        xml_set_processing_instruction_handler ($xml_parser, "process_instruction"); 
                # Why should one want to use case-folding with XML? XML is case-sensitiv, I think this is nonsense 
        xml_parser_set_option($xml_parser, XML_OPTION_CASE_FOLDING, false); 
     
        if (!($fp = @fopen($this->file, "r"))) { 
            die(print("Couldn't open file: $this->file\n")); 
        } 

        while ($data = fread($fp, 4096)) { 
          if (!xml_parse($xml_parser, $data, feof($fp))) { 
            die(sprintf("XML error: %s at line %d\n", 
              xml_error_string(xml_get_error_code($xml_parser)), 
              xml_get_current_line_number($xml_parser))); 
          } 
        } 
    } 

    function startElement($parser, $name, $attribs) { 
        # Adding the additional element to the tree, including attributes 
        $this->tree[] = $name; 

        $node = new Node($this->tree); 
        while (list($k, $v) = each($attribs)) { 
            $node->attributes[$k] = $v; 
      } 
        $this->nodes[] = $node; 
    } 

    function endElement($parser, $name) { 
        # Adding a new element, describing the end of the tag 
        # But only, if the Tag has CDATA in it! 
         
        # Check 
        if (count($this->nodes) >= 1) { 
            $prev_node = $this->nodes[count($this->nodes)-1]; 
            if (strlen($prev_node->data) > 0 || $prev_node->name != $name) { 
                $this->tree[count($this->tree)-1] = "/".$this->tree[count($this->tree)-1]; 
                $this->nodes[] = new Node($this->tree, NULL); 
            } else { 
                # Adding a slash to the end of the prev_node 
                $prev_node->name = $prev_node->name."/" 
                $this->nodes[count($this->nodes)-1]->name = $this->nodes[count($this->nodes)-1]->name."/" 
            } 
        } 

        # Removing the element from the tree 
        array_pop($this->tree); 
    } 

    function characterData($parser, $data) { 
        $data = ltrim($data); 
        if ($data != "") $this->nodes[count($this->nodes)-1]->add_data($data); 
    } 
     
    function process_instruction($parser, $target, $data) { 
        if (preg_match("/xml:stylesheet/", $target, $match) && preg_match("/type=\"text\/xsl\"/", $data, $match)) { 
            preg_match("/href=\"(.+)\"/i", $data, $this->PIs); 
#            print "<b>found xls pi: $PIs[1]</b><br>\n" 
        } 
    } 

    function print_nodes() { 
        # Printing the header 
        print "<html><head><title>".$this->nodes[0]->name."</title></head>" 
        print "<body style=\"".$this->format_body."\">\n" 

        # Printing the XML  Data 
        for ($i = 0; $i < count($this->nodes); $i++) { 
            $node = $this->nodes[$i]; 
             
            # Checking: Empty element 
            if ($node->name[strlen($node->name)-1] == "/") { 
                $end_char = "/" 
                $node->name = substr($node->name, 0, strlen($node->name)-1); 
            } else { 
                $end_char = "" 
            } 
             
            # Writing whitespaces, but only if it's _no_ closing element that follows 
            # directly on it's opening element 
            if (!("/".$this->nodes[$i-1]->name == $node->name)) { 
                for ($j = 0; $j < $node->level(); $j++) echo $this->format_blanks; 
            } 
            echo "<span style=\"".$this->format_bracket."\"><</span><span style=\"".$this->format_element."\">".$node->name."</span>" 
            if ($node->has_attributes()) { 
                $keys = array_keys($node->attributes); 
                for ($j = 0; $j < count($keys); $j++) { 
                    printf(" <span style=\"%s\">%s=\"</span><span style=\"%s\">%s</span><span style=\"%s\">\"</span>", $this->format_attribute_name, $keys[$j], $this->format_attribute_value, $node->attributes[$keys[$j]], $this->format_attribute_name); 
                } 
                echo " " 
            } 

            echo "<span style=\"".$this->format_element."\">$end_char</span><span style=\"".$this->format_bracket."\">></span>" 

            if (strlen($node->data) > 0) echo "<span style=\"".$this->format_data."\">".ltrim($node->data)."</span>" 
            else echo "<br>\n" 
        } 

        # Printing the footer 
        print "</body></html>\n" 
    } 
}

/*
 * To change this template, choose Tools | Templates
 * and open the template in the editor.
 */

(function($) {
    $.fn.divSorter = function(settings) {
        settings = jQuery.extend({
            container: '',
            column_prefix: 'sortindex_',
            class_normal: 'div_sorter_normal_class',
            class_asc: 'div_sorter_asc_class',
            class_desc: 'div_sorter_desc_class',
            classNotToUse:'nosort'
        }, settings);



        return this.each(function(){

            this_id = $(this).attr('id');


            $('#'+this_id+' div').each(function(i){


                    if( !$(this).hasClass(settings.classNotToUse) ){
                  
                    $(this).bind('click', function(){
                        $('#'+this_id+' div').removeClass(settings.class_asc);
                        $('#'+this_id+' div').removeClass(settings.class_desc);


                        div_sorter_sort_column_function( settings.container, settings.column_prefix + (i+1), this,  settings.class_desc,  settings.class_asc);

                    }).addClass(settings.class_normal);
                }
            });
        });
    };
})(jQuery);

var div_sorter_column_index;
function div_sorter_sort_column_function( Div_container, column_div, obj, class_desc, class_asc ){

    if(div_sorter_column_index && div_sorter_column_index == column_div){
        $(obj).addClass(class_desc);
        div_columns_data = $("div." + column_div ).sort(function(a,b){

            if ($(a).attr('isNum') != undefined){
                    return $(a).attr('isNum') - $(b).attr('isNum') ;
            }
            else
                return a.innerHTML < b.innerHTML ? 1 : -1;
        });
        div_sorter_column_index = null;
    }
    else{
        $(obj).addClass(class_asc);
        div_columns_data = $("div." + column_div ).sort(function(a,b){
            if ($(a).attr('isNum') != undefined)
                return $(b).attr('isNum') - $(a).attr('isNum');
            else
                return a.innerHTML > b.innerHTML ? 1 : -1;
        });
        div_sorter_column_index = column_div;
    }

    for(i = 0; i < div_columns_data.length; i++){
        $('#' + Div_container).append( $(div_columns_data[i]).parent() );
    }
}

require 'open-uri'
require 'net/http'

def remote_file_exists?(url)
  url = URI.parse(url)
  Net::HTTP.start(url.host, url.port) do |http|
    return http.head(url.request_uri).code == "200"
  end
end

remote_file_exists? 'http://www.www.www'     #=> false
remote_file_exists? 'http://www.wired.com/'  #=> true
remote_file_exists? 'http://www.wired.com/blogs/'        #=> true
remote_file_exists? 'http://www.wired.com/i-love-ruby/'  #=> false

from BeautifulSoup import BeautifulSoup,SoupStrainer
from urllib2 import urlopen, URLError
from pysqlite2 import dbapi2 as sqlite
from sets import Set
import re

# HTML parser class
class MyHTMLParser():

    titledata = ''

    # browse to specified page & extract title string
    # borrowed exception handling code from:
    # http://www.voidspace.org.uk/python/articles/urllib2.shtml
    def visitURL(self,url):
        self.titledata = ''
        try:
            req = urlopen(url)
        except URLError, e:
            if hasattr(e, 'reason'):
                print 'We failed to reach a server.'
                print 'Reason: ', e.reason
            elif hasattr(e, 'code'):
                print 'The server couldn\'t fulfill the request.'
                print 'Error code: ', e.code
        else:
            try:
                title = SoupStrainer('title')
                for tag in BeautifulSoup(req, parseOnlyThese=title):
                    s = tag.string.strip().lower()
                    self.titledata += s
            except:
                print "Error: HTML parse error"

    # get title string
    def getTitleData(self):
        return self.titledata



# Titleword2URL map
class TitleWords2LinkMap:
    # word to URL map
    word2URLmap = {}

    def storeData (self, word, url):
        if (self.word2URLmap.has_key(word)):
            self.word2URLmap[word].append(url)
        else:
            self.word2URLmap[word] = [url]

    def printDirectory(self):
        keys = self.word2URLmap.keys()
        for key in keys:
            print '\n',key, "===>", self.word2URLmap[key]





# Map URLs to title strings
class Link2TitleMap:

    # global to keep track of the categorizing title for a set of links
    title = ''

    # hashtable of links indexed by their categorizing title
    # (dictionary in python speak)
    weblinks = {}

    #HTML parser object
    htmlparser = MyHTMLParser()

    # remove these words from the title, these are not to be indexed
    common_words = Set(['in','the', 'of','it', 'on','a','an', 'with', 'to', 'for', 'you' 'your','my','mine'])

    # remove commonly occurring words in titles
    def sanitizeTitle (self):
        keys = self.weblinks.keys()

        for key in keys:
            title_word_set = Set()
            title_list = self.weblinks[key]

            # title is made up of a set of words...
            for title in title_list:
                title_words = title.split()
                for word in title_words:
                    if(word.isalpha()):
                        title_word_set.add(word)
            # ...with common words removed
            s = title_word_set.difference(self.common_words)
            self.weblinks[key] = s




    # store incoming input string into link Hash
    def storeData (self, data):
        if (data.startswith('http')):
            if (self.weblinks.has_key(data)):
                self.weblinks[data].append(self.title.lower())
            else:
                self.weblinks[data] = [self.title.lower()]
        else:
            self.title = data


    # print out contents of link2title map
    def printDirectory(self):
        keys = self.weblinks.keys()
        for key in keys:
            print '\n',key, "--->", self.weblinks[key]



    def printTitle(self):
        urllist = self.weblinks.keys()
        for url in urllist:
            urllist = self.weblinks[key]
            self.htmlparser.visitURL(url)
            print url, "--->", self.htmlparser.getTitleData()



    # iterate thru the linkDirectory hash, visiting each URL pointed
    # to by the keys & extract the title of each webpage
    def getPageTitle(self):
        urllist = self.weblinks.keys()
        for url in urllist:
            urllist = self.weblinks[url]
            self.htmlparser.visitURL(url)
            self.weblinks[url].append(self.htmlparser.getTitleData())

    # return the URL2titlewordmap
    def getMap(self):
        return self.weblinks






##############################################
# main program
# open file for reading
infile = open('Weblinks.txt','r')

# create a new LinkDirectory object
linkdir = Link2TitleMap()


title2url = TitleWords2LinkMap()

# read in file having the links (line by line - for efficiency)
# internalize file data into linkdir object
str = infile.readline()
while (str != ''):
    str = str.strip()
    if(str != '\n'):
       linkdir.storeData(str)
    str = infile.readline()

# close file handle
infile.close()

# populate the link hash  by visiting the links ( keys)
# and extracting the title
linkdir.getPageTitle()

# remove common words from title ( we dont index these)
linkdir.sanitizeTitle()

# generate tag -> URL mappling
url2words = linkdir.getMap()
urllist = url2words.keys()
for url in urllist:
    words = url2words[url]
    for word in words:
        title2url.storeData(word, url)

# print out tag-> mapping to console
title2url.printDirectory()

require 'rubygems'
require 'mechanize'
agent = WWW::Mechanize.new
agent.set_proxy('localhost', '8000')
agent.user_agent = 'Individueller User-Agent'
agent.user_agent_alias = 'Linux Mozilla'
agent.open_timeout = 3
agent.read_timeout = 4
agent.keep_alive = false

agent.max_history = 0 # reduce memory if you make lots of requests

url = 'http://apoc.sixserv.org/requestinfo/'
page = agent.get url
# or ...
page = agent.get(url, {"name" => "value", "key" => "val"})

url = 'http://apoc.sixserv.org/requestinfo/'
page = agent.post(url, {"name" => "value", "key" => "val"})

page = agent.get 'https://twitter.com/login'
login_form = page.form_with(:action => 'https://twitter.com/sessions')
login_form['session[username_or_email]'] = '[Username]'
login_form['session[password]'] = '[Password]'
page = agent.submit login_form

page = agent.get 'http://www.heise.de/'
page = agent.click(page.link_with(:text => /Telepolis/))
page = agent.click(page.link_with(:href => /artikel/))
agent.back
agent.back
puts page.body

begin
  page = agent.get 'http://apoc.sixserv.org/diese/seite/gibt/es/nicht/'
rescue WWW::Mechanize::ResponseCodeError
  puts "ResponseCodeError - Code: #{$!}"
end

page = agent.get(:url => 'http://apoc.sixserv.org/requestinfo/',
:referer => 'http://google.com/this/is/a/custom/referer')
puts page.body

agent.pre_connect_hooks << lambda do |params|
  params[:request]['X-Requested-With'] = 'XMLHttpRequest'
end

page = agent.head 'http://sixserv.org'
server_version = page.header['server']
puts "Server: #{server_version}"
if page.header.key? 'x-powered-by'
  php_version = page.header['x-powered-by']
  puts "X-Powered-By: #{php_version}"
end
# redirection urls:
agent.redirect_ok = false
page = agent.get 'http://www.sixserv.org/'
puts page.header['location']

# X Path / CSS-Selector:
page = agent.get 'http://xkcd.com/'
img = page.search '/html/body/div/div[2]/div/div[2]/div/div/img'
puts img
# Regular Expression:
page = agent.get 'http://example.com/'
page.body.match /< h3>([^<]+)< \/h3>/
puts "Heading 3: #{$1}"

# *_with: form, link, base, frame or iframe

# get the first link including "foo" inside url:
page.link_with(:href => /foo/)

# all links with text 'more'
page.links_with(:text => 'more')

# get the form with the name 'foo'
page.form_with('foo') # or form_with(:name => 'foo')

#!/usr/bin/perl -w
#
# Simple server using IO::Socket
# John Harrison - 16 Nov 2009
#
use strict;
use IO::Socket;
use CGI;

my $port = 6463;
my $host = 'HOSTNAME';

my $sock = new IO::Socket::INET(
    LocalHost => $host,
    LocalPort => $port,
    Proto     => 'tcp',
    Listen    => SOMAXCONN,
    Reuse     => 1
);
(my $my_name = $0) =~ s{.*/}{}g;

$sock or die "$my_name: Failed to create socket :$!\n";

my($new_sock, $c_addr); # , $buf);

my @ignore = (
    'Host',
    'User-Agent', 'Accept', 'Accept-Language',
    'Accept-Encoding', 'Accept-Charset',
    'Keep-Alive', 'Connection', 'Cache-Control'
);

print "Starting Server...\n";
SOCK: while (($new_sock, $c_addr) = $sock->accept()) {

    my ($client_port, $c_ip) = sockaddr_in($c_addr);
    my $client_ip = inet_ntoa($c_ip);
    # my $client_host = gethostbyaddr($c_ip, AF_INET);

    print "$my_name: Connect from: [$client_ip]\n";

    LINE: while (defined (my $buf = <$new_sock>)) {

        chomp $buf;
        $buf =~ s/\r$//;

        if ( $buf =~ m{^GET /host/([^/\s]+)/dc HTTP/1.1} ) {

            my $q = CGI->new;

            # print $new_sock $q->header( -type => 'text/plain' );

            print $new_sock "QUERY HOST: $1\n";

        }
        elsif ( $buf =~ m{help}i ) {

            print $new_sock "\nUsage: /host/<HOSTNAME>/dc\n";

        }
        elsif ( $buf =~ /QUIT/ ) {

            print $new_sock "bye...\n";
            close($new_sock);
            next SOCK;

        }
        elsif ( $buf eq "" ) {

            close($new_sock);
            next SOCK;

        }
        else {

            for my $header ( @ignore ) {
                next LINE if $buf =~ /^${header}:/;
            }
            print "[$buf]\n";

        }

    }

}