Simple parse script to exctract json data from bacua, used to enrich @facundobatista’s conectate code.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#! perl -w | |
use strict; | |
my ($login, $password); | |
open (my $FH, 'gpg -q --use-agent --no-tty -d ~/.authinfo.gpg |'); | |
while (<$FH>) { | |
m/machine\s+archive.org/ or next; | |
m/login\s+(\S+)/ and do { $login = $1;}; | |
m/password\s+(\S+)/ and do { $password = $1;}; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(function(App) { | |
'use strict'; | |
var querystring = require('querystring'); | |
var request = require('request'); | |
var Q = require('q'); | |
var Archive = function() {}; | |
var baseURL = 'https://archive.org/'; | |
var URL = baseURL + 'advancedsearch.php'; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> | |
<html xmlns="http://www.w3.org/1999/xhtml"> | |
<head> | |
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> | |
<title>Cherry Clips</title> | |
<script src="http://cdnjs.cloudflare.com/ajax/libs/jquery/2.1.1/jquery.min.js" | |
type="text/javascript"></script> | |
<script src="http://cdnjs.cloudflare.com/ajax/libs/underscore.js/1.6.0/underscore-min.js" | |
type="text/javascript"></script> |
I hereby claim:
- I am xaiki on github.
- I am xaiki (https://keybase.io/xaiki) on keybase.
- I have a public key whose fingerprint is 6817 7B2B 2BF3 82F8 C499 CB98 CF95 3E76 C24B 9018
To claim this, I am signing this object:
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; erc-clbin.el --- Clbining IRC messages in various ways | |
;; Copyright (C) 2001, 2002, 2003, 2004, 2006, | |
;; 2007, 2008 Free Software Foundation, Inc. | |
;; Based on erc-fill.el | |
;; Author: Andreas Fuchs <asf@void.at> | |
;; Mario Lang <mlang@delysid.org> | |
;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ErcClbining |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env python | |
# -*- coding: utf-8 -*- | |
from gi.repository import Clutter | |
def drag_begin_cb (action, actor, event_x, event_y, modifiers, arg = None): | |
print "DRAG START\t", event_x, event_y, arg | |
if arg: | |
action.set_drag_handle (arg) | |
def drag_end_cb (action, actor, event_x, event_y, modifiers): |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
this.Horarios = {}; | |
var trenesObj = { | |
estaciones: '', | |
proximoMoreno: function (e) { return estaciones[e][0]; }, | |
siguienteMoreno: function (e) { return estaciones[e][1]; }, | |
proximoOnce: function(e) { return estaciones[e][3];}, | |
siguienteOnce: function(e) { return estaciones[e][4];} | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#! perl -w | |
use strict; | |
use Getopt::Long qw(:config no_ignore_case); | |
use Data::Dumper; | |
my @cmds; | |
my $basedir = $ENV{'PWD'}; | |
my $out=120; |
OlderNewer