]]>
#! perl
sub on_start {
my ($self) = @_;
$self->{browser} = $self->x_resource ("urlLauncher") || "sensible-browser";
()
}
sub on_user_command {
my ($self, $cmd) = @_;
$cmd eq "selection2browser"
and $self->exec_async ($self->{browser}, $self->selection);
()
}
I have this script saved as a file named selection2browser in my
~/.urxvt/perl/ directory and in order to activate it via
Ctrl-Alt-w I put the following lines in ~/.Xresources:URxvt.perl-lib: /home/shammash/.urxvt/perl/ URxvt.perl-ext-common: default,[other stuff],selection2browser URxvt.keysym.C-M-w: perl:selection2browser]]>
$ wget http://www.livescribe.com/downloads/support/LivescribeSmartpenFlashUtility_2.1.1_Mac.zip $ unzip LivescribeSmartpenFlashUtility_2.1.1_Mac.zip $ cd 2.1.1\ Pen\ Flash\ Utility.app/Contents/Resources/Bundles/ $ unzip SystemSoftwareV2.1.1_C.bnd -d SystemSoftwareV2.1.1_C $ cd SystemSoftwareV2.1.1_C/Files/ $ dfutool upgrade bali_ams3.dfu Filename bali_ams3.dfu Filesize 3365572 Checksum 40559ec9 (valid) Available devices with DFU support: 1) Bus 004 Device 002: ID 1cfb:1020 Interface 2
ip l s tap1 up ip l s tap2 up ip a a 10.10.1.2/32 dev tap1 ip a a 10.10.2.2/32 dev tap2 ip r a 10.10.2.1/32 dev tap1 ip r a 10.10.1.1/32 dev tap2 iptables -t nat -A POSTROUTING -o tap1 -j SNAT --to-source 10.10.1.1 iptables -t nat -A POSTROUTING -o tap2 -j SNAT --to-source 10.10.2.1 iptables -t nat -A PREROUTING -i tap1 -j DNAT --to-destination 10.10.1.2 iptables -t nat -A PREROUTING -i tap2 -j DNAT --to-destination 10.10.2.2 arp -i tap2 -Ds 10.10.1.1 tap1 arp -i tap1 -Ds 10.10.2.1 tap2
#!/usr/bin/env ruby
require 'rexml/document'
require 'net/http'
require 'net/https'
require 'sqlite3'
require 'json'
dbfile_base = 'delicious_bkp_'
rcfile_base = '.delicious_bkp.rc'
agent = 'del.icio.us backup v0.2.1'
schema = <<EOF
create table bookmarks (
hash char(32) primary key,
url varchar(1024),
title varchar(1024),
note varchar(2048),
time timestamp
);
create table tags (hash char(32), tag varchar(1024));
create index ix_tags_hash on tags (hash);
create index ix_tags_tag on tags (tag);
EOF
insert_url = 'insert into bookmarks (hash, url, title, note, time) ' +
'values (?, ?, ?, ?, ?);'
insert_tag = 'insert into tags (hash, tag) values (?, ?);'
rcfile_path = File.join(ENV['HOME'], rcfile_base)
if (not FileTest.exist?(rcfile_path))
puts "\nERROR: rc file not found!\n\n"
puts "Create a file " + rcfile_path + " containing the following line:"
puts "{ \"user\": \"username\", \"pass\": \"password\", \"dir\": \"/path/to/bkp\", \"max_bkp\": 0}\n\n"
exit -1
end
rcfile = File.open(rcfile_path)
perms = sprintf("%o", rcfile.stat().mode)[-4..-1]
if (perms != "0600")
puts "\nERROR: rc file permissions are not safe!\n\n"
exit -1
end
begin
j = JSON.parse(rcfile.read())
rescue JSON::ParserError
puts "\nERROR: bad syntax in rc file\n\n"
exit -1
end
['user', 'pass', 'dir', 'max_bkp'].each { |key|
if (not j.has_key?(key))
puts "\nERROR: field " + key + " doesn't exist in rc file!\n\n"
exit -1
end
}
if (not FileTest.directory?(j['dir']))
puts "\nERROR: Specified directory does not exist!\n\n"
exit -1
end
dbfile_base = dbfile_base + j['user'] + "_"
dbfile_name = dbfile_base + Time.now.strftime("%Y-%m-%d.db")
dbfile_path = File.join(j['dir'], dbfile_name)
if (FileTest.exist?(dbfile_path))
puts "Backup " + dbfile_name + " exists, exiting."
exit 0
end
http = Net::HTTP.new('api.del.icio.us', 443)
http.use_ssl = true
xml = http.start { |http|
req = Net::HTTP::Get.new('/v1/posts/all', {'User-Agent' => agent})
req.basic_auth(j['user'], j['pass'])
http.request(req).body
}
doc = REXML::Document.new(xml)
SQLite3::Database.open(dbfile_path).transaction { |db|
db.execute_batch(schema)
db.prepare(insert_url) { |url_stmt|
db.prepare(insert_tag) { |tag_stmt|
doc.elements.each('posts/post') { |el|
url_stmt.execute(el.attributes['hash'],
el.attributes['href'], el.attributes['description'],
el.attributes['extended'], el.attributes['time'])
el.attributes['tag'].split(' ').each { |tag|
tag_stmt.execute(el.attributes['hash'], tag)
}
}
}
}
}
if (j['max_bkp'] > 0)
d = Dir.new(j['dir'])
b = []
re = Regexp.new(dbfile_base + "[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]\.db")
d.each {|entry| if re.match(entry) then b.push(entry) end }
if b.nitems > j['max_bkp']
b.sort()[0, (b.nitems - j['max_bkp'])].each {|olddb|
File.unlink(File.join(j['dir'], olddb))
}
end
end
]]>
quicksort=:(($:@(<#[),(=#[),$:@(>#[))({~?@#))^:(1<#)