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

--- 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

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

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

# 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

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

--- Net-SSL-ExpireDate-1.10/lib/Net/SSL/ExpireDate.pm	2011-03-16 13:01:58.000000000 +0900
+++ Net-SSL-ExpireDate-1.10_01/lib/Net/SSL/ExpireDate.pm	2012-06-04 14:17:21.000000000 +0900
@@ -4,7 +4,7 @@
 use warnings;
 use Carp;
 
-our $VERSION = '1.10';
+our $VERSION = '1.10_01';
 
 use base qw(Class::Accessor);

sharl

$ mkdir hoehoe-1.0
$ tar czf hoehoe_1.0.orig.tar.gz hoehoe-1.0
$ cd hoehoe-1.0
$ dh_make -s -c gpl -f ../hoehoe_1.0.orig.tar.gz
$ debuild -uc -us
(snip)
W: hoehoe source: ancient-standards-version 3.8.3 (current is 3.9.1)

E: じゃないのですが、気になるです。

sharl

require 'formula'

class Stone < Formula
  url 'http://www.gcd.org/sengoku/stone/stone-2.3e.tar.gz'
  homepage 'http://www.gcd.org/sengoku/stone/'
  md5 '3d1ac4e3fd1118ad1acad06f9209f7f4'

  def install
    system "make", "CFLAGS=-O2", "macosx-ssl"
    bin.install "stone"

sharl

#!/usr/bin/perl

use strict;
use POSIX qw(strftime);
use LWP::UserAgent;
use Data::Dumper;

my $save_dir = $ENV{HOME} . '/Dropbox/haruchan/';
my $TARGET   = 'http://cgi2.nhk.or.jp/nw9/haruchan/saijiki/index.cgi?entry=%Y%m%d';
my $HARUCHAN = 'http://cgi2.nhk.or.jp/nw9/data/saijiki/images/%Y%m%d_pg7.jpg';