sharl

require 'formula'

class Emacs < Formula
  homepage 'http://www.gnu.org/software/emacs/'
  url 'http://ftpmirror.gnu.org/emacs/emacs-24.1.tar.bz2'
  mirror 'http://ftp.gnu.org/pub/gnu/emacs/emacs-24.1.tar.bz2'
  sha1 'ab22d5bf2072d04faa4aebf819fef3dfe44aacca'

  if ARGV.include? "--use-git-head"
    head 'http://git.sv.gnu.org/r/emacs.git'

sharl

# see https://bugs.php.net/bug.php?id=61983

### START HERE
pecl download radius
tar xf radius-1.2.5.tgz
cp package.xml radius-1.2.5
sed -ie 's/^function_entry radius_functions/static zend_function_entry radius_functions/' radius-1.2.5/radius.c
(cd radius-1.2.5; pecl package)
mv -f radius-1.2.5/radius-1.2.5.tgz .
pecl install radius-1.2.5.tgz

sharl

my $tw = Net::Twitter::Lite->new(%consumer_tokens);
$tw->access_token($access_token);
$tw->access_token_secret($access_token_secret);

my ($screen_name, $list_name) = split(/\//, $ARGV[0], 2);
usage if (!$screen_name or !$list_name);

my $cursor = -1;
while ($cursor) {
    my $members = $tw->list_members({owner_screen_name => $screen_name,

sharl

my %blocked_users;
map { $blocked_users{$_}++ } @{$tw->blocking_ids};

my @users = map { chomp; $_ } <STDIN>;
for my $user (@users) {
    if (! $blocked_users{$user}) {
        eval { $tw->report_spam({user_id => $user}) };
    }
}

sharl

--- rules	2012-10-23 21:49:25.774653298 +0900
+++ rules.20121023-2345	2012-10-23 23:45:03.172139477 +0900
@@ -100,8 +100,12 @@
             2．当社は、comm会員記述情報が本規約に違反する場合、その他の当社が不適当と判断した場合には、comm会員記述情報を削除することができるものとします。
         </div><!-- /textWrap02 -->
         <div class="textWrap02">
-            3．当社は、すべてのcomm会員記述情報を無償で複製その他あらゆる方法により利用し、また、第三者に利用させることができるものとします。
+            3．当社は、すべてのcomm会員記述情報を本サービスの提供を目的とする範囲において無償で複製その他の方法により利用できるものとします。ただし、comm会員間でメール・チャットによりやりとりされる情報を、令状等による場合を除き、当社、第三者が閲覧することはありません。
         </div><!-- /textWrap02 -->
+        

sharl

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
	<key>NSURLDownloadBytesReceived</key>
	<integer>8047</integer>
	<key>NSURLDownloadEntityTag</key>
	<string>"2cc95b5-4cd4e1fddbc32"</string>
	<key>NSURLDownloadServerModificationDate</key>
	<string>Tue, 30 Oct 2012 22:15:32 GMT</string>

sharl

$ for s in `seq 1 25`; do echo -n "$s "; echo OFWUOHCI | caesar $s; done
1 PGXVPIDJ
2 QHYWQJEK
3 RIZXRKFL
4 SJAYSLGM
5 TKBZTMHN
6 ULCAUNIO
7 VMDBVOJP
8 WNECWPKQ
9 XOFDXQLR

sharl

Archive:  KaraageKun.pkpass
  Length      Date    Time    Name
---------  ---------- -----   ----
     6148  2012-11-06 15:07   .DS_Store
     4955  2012-10-22 10:29   icon.png
     9393  2012-10-22 10:28   [email protected]
     7642  2012-10-22 10:27   logo.png
    15216  2012-10-22 10:26   [email protected]
      487  2012-11-06 15:41   manifest.json
     3536  2012-11-06 15:41   pass.json

sharl

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\acd]
@="\"URL:Amazon Cloud Drive Protocol\""
"URL Protocol"="\"\""

[HKEY_CLASSES_ROOT\acd\DefaultIcon]
@="\"AmazonCloudDrive.exe,1\""

[HKEY_CLASSES_ROOT\acd\shell]

sharl

#!/usr/bin/perl
# -*- coding: utf-8 -*-

use strict;
use warnings;
use HTTP::Tiny;
use HTML::Entities;

my $target = 'http://ranking.gpara.com/special/event/ranking/ogranking12b/ranking_list.php';