jadeallenx

--- 03_http_requests-t.org      Fri Feb 05 09:00:16 2010
+++ 03_http_requests.t  Fri Feb 19 22:03:42 2010
@@ -31,7 +31,12 @@

         foreach my $client (@clients) {
             my $ua = LWP::UserAgent->new;
-            $ua->cookie_jar({ file => "$ENV{HOME}/.cookies.txt" });
+            if ( $^O eq "MSWin32" ) {
+                $ua->cookie_jar({ file => "$ENV{TEMP}/.cookies.txt" });
+            }

jadeallenx

--- 03_persistence-t.org        Fri Feb 19 21:47:21 2010
+++ 03_persistence.t    Fri Feb 19 21:50:49 2010
@@ -13,7 +13,12 @@

         foreach my $client qw(one two three) {
             my $ua = LWP::UserAgent->new;
-            $ua->cookie_jar({ file => "$ENV{HOME}/.cookies.txt" });
+            if ( $^O eq "MSWin32" ) {
+                $ua->cookie_jar({ file => "$ENV{TEMP}/.cookies.txt" });
+            }

jadeallenx

#!/usr/bin/env perl

use warnings;
use strict;

use v5.14;
use utf8;

my $number = "௪";
my $letter = "த்";

jadeallenx

% Post/Query string parameter validation.
%
% Mark Allen, mrallen1@yahoo.com
%
% Specs [{{name, "param_name"}, {required, true}, {type, function}}, ... ]
% Input [{"name", "value}, ...] just you'd get from post or query string parameters

-module(t).
-export([test/0, test1/0, test2/0]).

jadeallenx

Purpose

This module takes XML and turns it into a deep proplist. The original code was written by @wackum.

I modified it so it:

• returns both attributes and the value instead of one or the other
• doesn't ignore the top level tag
• handles elements with empty content

jadeallenx

package main

import "tour/pic"

func Pic(dx, dy int) [][]uint8 {

  outer := make([][]uint8, dy)
  for i := 0; i < dy; i++ {
    inner := make([]uint8, dx)
    for j := 0; j < dx; j++ {

jadeallenx

package main

import (
	"image"
	"tour/pic"
	"image/color"
)

type Image struct{
  w int

jadeallenx

package main

import (
	"io"
	"os"
	"strings"
)

type rot13Reader struct {
	r io.Reader

jadeallenx

use Dancer;
use Dancer::Plugin::Database;

# Using DBD::SQLite database with
# create table authorized_users (
#  username text,
#  password text
# );
#
# insert into authorized_users (username, password) VALUES ('fred', 'somehash');

jadeallenx

Prints this:

I want to make it clear that DRM is perfectly ok with Linux!

And since I can imaging signing binaries myself, I don't feel that I can disallow anybody else doing so.

The GPL requires you to give out sources to the kernel, but it doesn't limit what you can do with the kernel. Btw, one thing that is clearly not allowed by the GPL is hiding private keys in the binary. [ Personally, I see it as a virtue - trying to make the world a slightly better place without trying to impose your moral values on other people.