Browse Source

added stuff

pull/1/head
Jeffrey Paul 10 years ago
parent
commit
6582b93e82
9 changed files with 137595 additions and 63 deletions
  1. +0
    -63
      bcinflationchart/bcinflation.pl
  2. +68
    -0
      bitcoin.inflationchart/bcinflation.pl
  3. +2
    -0
      bitcoin.shallow/generate.py
  4. +136333
    -0
      bitcoin.txvolume/blocktxcount.csv
  5. +919
    -0
      bitcoin.txvolume/dailies.csv
  6. +31
    -0
      bitcoin.txvolume/monthlies.csv
  7. +29
    -0
      bitcoin.txvolume/txcount.pl
  8. +28
    -0
      cat-unless-older/cat-unless-older
  9. +185
    -0
      grandcentral-vm-downloader/gc-vm-email-download.pl

+ 0
- 63
bcinflationchart/bcinflation.pl View File

@@ -1,63 +0,0 @@
#!/usr/bin/perl
# 3456789#123456789#123456789#123456789#123456789#123456789#123456789#123456789#
# bcinflation.pl 20101228 jeffrey paul <sneak@datavibe.net>
# 5539 AD00 DE4C 42F3 AFE1 1575 0524 43F4 DF2A 55C2 # please sign!

use strict;
use warnings qw( all );
use LWP::Simple;
use Data::Dumper;
use HTML::Strip;
use DateTime;

# thanks to nullvoid for historical block data
my $historyurl = 'http://nullvoid.org/bitcoin/difficultiez.php';
my $growthfactor = 1.0;

main();

sub main {
my $hist = fetch_history_data() or die "unable to fetch history!";
my $block = 0;
my $totalbc = 0;
my $perblock = 50;
my $at = 1231006505; # block zero timestamp
while ($block < 1500000) { # arbitrary
$block++;
$perblock /= 2 unless $block % 210000;
$at += 60*10/$growthfactor; # estimate block timestamp
# replace with real data if we have it:
$at = $hist->{$block} if exists($hist->{$block});
$totalbc += $perblock;
if ($block == 210000) {
print ts2nice($at);
die;
}
unless($block % 21000) {
print ts2nice($at) . ",";
print $block . ",";
print $perblock . ",";
print $totalbc. ",";
print "\n";
}
}
}

sub ts2nice { return DateTime->from_epoch( epoch => shift() )->ymd; }

sub fetch_history_data {
my $raw = get($historyurl) or die "derp: $!";

my $clean = HTML::Strip->new()->parse($raw);
$clean =~ s/Block/\nBlock/g;
my $out = {};
foreach my $l (split(/\n+/,$clean)) {
next unless $l =~ /^Block\s+([0-9]+)\s+was.*at\s+([0-9]+).*Difficulty\:\s+([0-9\.]{3,10}).*$/;
$out->{$1} = $2;
}
return unless $out->{98784};
return $out;
}

1;
__END__

+ 68
- 0
bitcoin.inflationchart/bcinflation.pl View File

@@ -0,0 +1,68 @@
#!/usr/bin/perl
# 3456789#123456789#123456789#123456789#123456789#123456789#123456789#123456789#
# bcinflation.pl 20101228 jeffrey paul <sneak@datavibe.net>
# 5539 AD00 DE4C 42F3 AFE1 1575 0524 43F4 DF2A 55C2 # please sign!

use strict;
use warnings qw( all );
use LWP::Simple;
use Data::Dumper;
use HTML::Strip;
use DateTime;

# thanks to nullvoid for historical block data
# that's actually mizerydearia, the witcoin guy
my $historyurl = 'http://nullvoid.org/bitcoin/difficultiez.php';
my $growthfactor = 1.0;

main();

sub main {
my $hist = fetch_history_data() or die "unable to fetch history!";
my $block = 0;
my $totalbc = 0;
my $perblock = 50;
my $at = 1231006505; # block zero timestamp
while ($block < 1500000) { # arbitrary
$block++;
$perblock /= 2 unless $block % 210000;
$at += 60*10/$growthfactor; # estimate block timestamp
# replace with real data if we have it:
$at = $hist->{$block}{'ts'} if exists($hist->{$block});
$totalbc += $perblock;
#if ($block == 210000) {
# print ts2nice($at);
# die;
#}
unless($block % 21000) {
print ts2nice($at) . ",";
print $block . ",";
print $perblock . ",";
print $totalbc. ",";
if (exists($hist->{$block})) {
print $hist->{$block}{'difficulty'};
}
print ",\n";
}
}
}

sub ts2nice { return DateTime->from_epoch( epoch => shift() )->ymd; }

sub fetch_history_data {
my $raw = get($historyurl) or die "derp: $!";

my $clean = HTML::Strip->new()->parse($raw);
$clean =~ s/Block/\nBlock/g;
my $out = {};
foreach my $l (split(/\n+/,$clean)) {
next unless $l =~ /^Block\s+([0-9]+)\s+was.*at\s+([0-9]+).*Difficulty\:\s+([0-9\.]{3,10}).*$/;
$out->{$1}{'ts'} = $2;
$out->{$1}{'difficulty'} = $3;
}
return unless $out->{135072}; # latest diffchange block
return $out;
}

1;
__END__

+ 2
- 0
bitcoin.shallow/generate.py View File

@@ -1,4 +1,6 @@
#!/usr/bin/python2.6
# this script has been totally obsoleted by mtgoxlive.com
# written by coderrr

import urllib
import sys

+ 136333
- 0
bitcoin.txvolume/blocktxcount.csv
File diff suppressed because it is too large
View File


+ 919
- 0
bitcoin.txvolume/dailies.csv View File

@@ -0,0 +1,919 @@
2009-01-03,1
2009-01-09,14
2009-01-10,61
2009-01-11,93
2009-01-12,101
2009-01-13,123
2009-01-14,130
2009-01-15,134
2009-01-16,110
2009-01-17,109
2009-01-18,108
2009-01-19,117
2009-01-20,115
2009-01-21,103
2009-01-22,92
2009-01-23,86
2009-01-24,202
2009-01-25,192
2009-01-26,97
2009-01-27,98
2009-01-28,112
2009-01-29,122
2009-01-30,117
2009-01-31,139
2009-02-01,114
2009-02-02,129
2009-02-03,155
2009-02-04,119
2009-02-05,126
2009-02-06,122
2009-02-07,133
2009-02-08,133
2009-02-09,135
2009-02-10,120
2009-02-11,135
2009-02-12,119
2009-02-13,124
2009-02-14,136
2009-02-15,131
2009-02-16,123
2009-02-17,117
2009-02-18,118
2009-02-19,125
2009-02-20,122
2009-02-21,114
2009-02-22,125
2009-02-23,108
2009-02-24,106
2009-02-25,105
2009-02-26,107
2009-02-27,116
2009-02-28,100
2009-03-01,105
2009-03-02,108
2009-03-03,107
2009-03-04,106
2009-03-05,113
2009-03-06,117
2009-03-07,109
2009-03-08,118
2009-03-09,108
2009-03-10,107
2009-03-11,114
2009-03-12,119
2009-03-13,114
2009-03-14,110
2009-03-15,123
2009-03-16,122
2009-03-17,114
2009-03-18,116
2009-03-19,122
2009-03-20,119
2009-03-21,50
2009-03-22,121
2009-03-23,130
2009-03-24,105
2009-03-25,117
2009-03-26,118
2009-03-27,106
2009-03-28,122
2009-03-29,116
2009-03-30,120
2009-03-31,111
2009-04-01,114
2009-04-02,115
2009-04-03,116
2009-04-04,113
2009-04-05,132
2009-04-06,109
2009-04-07,100
2009-04-08,105
2009-04-09,99
2009-04-10,108
2009-04-11,121
2009-04-12,120
2009-04-13,116
2009-04-14,124
2009-04-15,113
2009-04-16,123
2009-04-17,112
2009-04-18,130
2009-04-19,120
2009-04-20,121
2009-04-21,124
2009-04-22,121
2009-04-23,75
2009-04-24,115
2009-04-25,118
2009-04-26,114
2009-04-27,104
2009-04-28,117
2009-04-29,129
2009-04-30,131
2009-05-01,121
2009-05-02,128
2009-05-03,109
2009-05-04,129
2009-05-05,136
2009-05-06,135
2009-05-07,122
2009-05-08,107
2009-05-09,78
2009-05-10,85
2009-05-11,121
2009-05-12,130
2009-05-13,116
2009-05-14,142
2009-05-15,137
2009-05-16,119
2009-05-17,127
2009-05-18,118
2009-05-19,86
2009-05-20,120
2009-05-21,82
2009-05-22,61
2009-05-23,32
2009-05-24,100
2009-05-25,109
2009-05-26,125
2009-05-27,119
2009-05-28,95
2009-05-29,107
2009-05-30,109
2009-05-31,96
2009-06-01,72
2009-06-02,111
2009-06-03,71
2009-06-04,66
2009-06-05,30
2009-06-06,28
2009-06-07,16
2009-06-08,82
2009-06-09,91
2009-06-10,82
2009-06-11,89
2009-06-12,86
2009-06-13,78
2009-06-14,72
2009-06-15,84
2009-06-16,71
2009-06-17,79
2009-06-18,80
2009-06-19,87
2009-06-20,78
2009-06-21,81
2009-06-22,77
2009-06-23,76
2009-06-24,97
2009-06-25,69
2009-06-26,90
2009-06-27,84
2009-06-28,47
2009-06-29,84
2009-06-30,86
2009-07-01,75
2009-07-02,84
2009-07-03,82
2009-07-04,89
2009-07-05,79
2009-07-06,84
2009-07-07,69
2009-07-08,74
2009-07-09,86
2009-07-10,81
2009-07-11,83
2009-07-12,77
2009-07-13,78
2009-07-14,69
2009-07-15,45
2009-07-16,71
2009-07-17,47
2009-07-18,4
2009-07-19,70
2009-07-20,71
2009-07-21,82
2009-07-22,60
2009-07-23,76
2009-07-24,73
2009-07-25,32
2009-07-26,21
2009-07-27,74
2009-07-28,41
2009-07-29,20
2009-07-30,16
2009-07-31,17
2009-08-01,28
2009-08-02,23
2009-08-03,12
2009-08-04,81
2009-08-05,87
2009-08-06,90
2009-08-07,81
2009-08-08,80
2009-08-09,101
2009-08-10,75
2009-08-11,70
2009-08-12,63
2009-08-13,85
2009-08-14,63
2009-08-15,26
2009-08-16,19
2009-08-17,17
2009-08-18,10
2009-08-19,18
2009-08-20,22
2009-08-21,14
2009-08-22,7
2009-08-23,15
2009-08-24,15
2009-08-25,50
2009-08-26,51
2009-08-27,29
2009-08-28,75
2009-08-29,78
2009-08-30,98
2009-08-31,87
2009-09-01,78
2009-09-02,66
2009-09-03,62
2009-09-04,64
2009-09-05,76
2009-09-06,68
2009-09-07,79
2009-09-08,69
2009-09-09,54
2009-09-10,67
2009-09-11,67
2009-09-12,69
2009-09-13,75
2009-09-14,74
2009-09-15,44
2009-09-16,73
2009-09-17,85
2009-09-18,78
2009-09-19,74
2009-09-20,78
2009-09-21,70
2009-09-22,26
2009-09-23,36
2009-09-24,97
2009-09-25,93
2009-09-26,100
2009-09-27,88
2009-09-28,85
2009-09-29,90
2009-09-30,85
2009-10-01,82
2009-10-02,73
2009-10-03,58
2009-10-04,53
2009-10-05,55
2009-10-06,45
2009-10-07,60
2009-10-08,70
2009-10-09,79
2009-10-10,77
2009-10-11,74
2009-10-12,59
2009-10-13,57
2009-10-14,69
2009-10-15,71
2009-10-16,61
2009-10-17,57
2009-10-18,75
2009-10-19,112
2009-10-20,96
2009-10-21,81
2009-10-22,91
2009-10-23,89
2009-10-24,63
2009-10-25,76
2009-10-26,71
2009-10-27,65
2009-10-28,66
2009-10-29,48
2009-10-30,60
2009-10-31,46
2009-11-01,25
2009-11-02,33
2009-11-03,62
2009-11-04,64
2009-11-05,57
2009-11-06,62
2009-11-07,69
2009-11-08,73
2009-11-09,64
2009-11-10,78
2009-11-11,73
2009-11-12,66
2009-11-13,83
2009-11-14,79
2009-11-15,96
2009-11-16,97
2009-11-17,92
2009-11-18,79
2009-11-19,72
2009-11-20,86
2009-11-21,73
2009-11-22,106
2009-11-23,96
2009-11-24,93
2009-11-25,90
2009-11-26,84
2009-11-27,74
2009-11-28,71
2009-11-29,60
2009-11-30,75
2009-12-01,74
2009-12-02,94
2009-12-03,88
2009-12-04,36
2009-12-05,65
2009-12-06,105
2009-12-07,112
2009-12-08,107
2009-12-09,109
2009-12-10,104
2009-12-11,112
2009-12-12,112
2009-12-13,114
2009-12-14,107
2009-12-15,112
2009-12-16,137
2009-12-17,172
2009-12-18,225
2009-12-19,199
2009-12-20,175
2009-12-21,176
2009-12-22,162
2009-12-23,154
2009-12-24,154
2009-12-25,150
2009-12-26,174
2009-12-27,168
2009-12-28,137
2009-12-29,171
2009-12-30,141
2009-12-31,138
2010-01-01,134
2010-01-02,126
2010-01-03,186
2010-01-04,183
2010-01-05,198
2010-01-06,163
2010-01-07,154
2010-01-08,153
2010-01-09,151
2010-01-10,190
2010-01-11,159
2010-01-12,161
2010-01-13,166
2010-01-14,145
2010-01-15,142
2010-01-16,126
2010-01-17,131
2010-01-18,126
2010-01-19,124
2010-01-20,158
2010-01-21,184
2010-01-22,136
2010-01-23,162
2010-01-24,155
2010-01-25,215
2010-01-26,201
2010-01-27,166
2010-01-28,179
2010-01-29,201
2010-01-30,214
2010-01-31,167
2010-02-01,193
2010-02-02,146
2010-02-03,272
2010-02-04,234
2010-02-05,227
2010-02-06,206
2010-02-07,222
2010-02-08,208
2010-02-09,210
2010-02-10,173
2010-02-11,174
2010-02-12,188
2010-02-13,235
2010-02-14,219
2010-02-15,185
2010-02-16,201
2010-02-17,250
2010-02-18,215
2010-02-19,195
2010-02-20,210
2010-02-21,227
2010-02-22,265
2010-02-23,251
2010-02-24,177
2010-02-25,158
2010-02-26,176
2010-02-27,175
2010-02-28,159
2010-03-01,199
2010-03-02,193
2010-03-03,158
2010-03-04,188
2010-03-05,173
2010-03-06,183
2010-03-07,183
2010-03-08,130
2010-03-09,148
2010-03-10,169
2010-03-11,136
2010-03-12,123
2010-03-13,154
2010-03-14,127
2010-03-15,140
2010-03-16,129
2010-03-17,139
2010-03-18,149
2010-03-19,162
2010-03-20,204
2010-03-21,190
2010-03-22,186
2010-03-23,220
2010-03-24,182
2010-03-25,202
2010-03-26,213
2010-03-27,184
2010-03-28,192
2010-03-29,207
2010-03-30,221
2010-03-31,214
2010-04-01,179
2010-04-02,161
2010-04-03,166
2010-04-04,183
2010-04-05,181
2010-04-06,174
2010-04-07,204
2010-04-08,195
2010-04-09,224
2010-04-10,298
2010-04-11,265
2010-04-12,247
2010-04-13,209
2010-04-14,223
2010-04-15,290
2010-04-16,234
2010-04-17,250
2010-04-18,3351
2010-04-19,276
2010-04-20,243
2010-04-21,251
2010-04-22,199
2010-04-23,200
2010-04-24,202
2010-04-25,205
2010-04-26,211
2010-04-27,233
2010-04-28,227
2010-04-29,180
2010-04-30,170
2010-05-01,210
2010-05-02,180
2010-05-03,188
2010-05-04,177
2010-05-05,162
2010-05-06,177
2010-05-07,158
2010-05-08,182
2010-05-09,183
2010-05-10,157
2010-05-11,130
2010-05-12,159
2010-05-13,167
2010-05-14,153
2010-05-15,113
2010-05-16,133
2010-05-17,178
2010-05-18,223
2010-05-19,207
2010-05-20,237
2010-05-21,235
2010-05-22,226
2010-05-23,309
2010-05-24,250
2010-05-25,254
2010-05-26,287
2010-05-27,267
2010-05-28,277
2010-05-29,239
2010-05-30,200
2010-05-31,194
2010-06-01,183
2010-06-02,194
2010-06-03,235
2010-06-04,173
2010-06-05,190
2010-06-06,200
2010-06-07,209
2010-06-08,223
2010-06-09,220
2010-06-10,217
2010-06-11,247
2010-06-12,213
2010-06-13,239
2010-06-14,257
2010-06-15,269
2010-06-16,192
2010-06-17,204
2010-06-18,193
2010-06-19,214
2010-06-20,228
2010-06-21,242
2010-06-22,227
2010-06-23,257
2010-06-24,240
2010-06-25,210
2010-06-26,201
2010-06-27,234
2010-06-28,230
2010-06-29,264
2010-06-30,273
2010-07-01,284
2010-07-02,241
2010-07-03,286
2010-07-04,224
2010-07-05,252
2010-07-06,208
2010-07-07,218
2010-07-08,223
2010-07-09,268
2010-07-10,240
2010-07-11,353
2010-07-12,2300
2010-07-13,1479
2010-07-14,6132
2010-07-15,1330
2010-07-16,1181
2010-07-17,408
2010-07-18,420
2010-07-19,528
2010-07-20,594
2010-07-21,463
2010-07-22,397
2010-07-23,411
2010-07-24,894
2010-07-25,1823
2010-07-26,467
2010-07-27,426
2010-07-28,1951
2010-07-29,1867
2010-07-30,325
2010-07-31,295
2010-08-01,364
2010-08-02,398
2010-08-03,648
2010-08-04,439
2010-08-05,515
2010-08-06,359
2010-08-07,273
2010-08-08,391
2010-08-09,424
2010-08-10,340
2010-08-11,412
2010-08-12,392
2010-08-13,516
2010-08-14,434
2010-08-15,315
2010-08-16,453
2010-08-17,318
2010-08-18,377
2010-08-19,325
2010-08-20,423
2010-08-21,342
2010-08-22,366
2010-08-23,369
2010-08-24,379
2010-08-25,365
2010-08-26,368
2010-08-27,294
2010-08-28,339
2010-08-29,260
2010-08-30,329
2010-08-31,441
2010-09-01,380
2010-09-02,321
2010-09-03,319
2010-09-04,274
2010-09-05,311
2010-09-06,278
2010-09-07,282
2010-09-08,339
2010-09-09,324
2010-09-10,360
2010-09-11,305
2010-09-12,379
2010-09-13,436
2010-09-14,424
2010-09-15,430
2010-09-16,438
2010-09-17,361
2010-09-18,399
2010-09-19,355
2010-09-20,465
2010-09-21,810
2010-09-22,673
2010-09-23,655
2010-09-24,501
2010-09-25,532
2010-09-26,400
2010-09-27,603
2010-09-28,491
2010-09-29,975
2010-09-30,365
2010-10-01,584
2010-10-02,501
2010-10-03,377
2010-10-04,407
2010-10-05,371
2010-10-06,407
2010-10-07,340
2010-10-08,363
2010-10-09,401
2010-10-10,363
2010-10-11,342
2010-10-12,352
2010-10-13,364
2010-10-14,367
2010-10-15,328
2010-10-16,441
2010-10-17,457
2010-10-18,579
2010-10-19,924
2010-10-20,713
2010-10-21,552
2010-10-22,602
2010-10-23,517
2010-10-24,552
2010-10-25,410
2010-10-26,518
2010-10-27,568
2010-10-28,486
2010-10-29,467
2010-10-30,426
2010-10-31,307
2010-11-01,351
2010-11-02,286
2010-11-03,347
2010-11-04,342
2010-11-05,442
2010-11-06,394
2010-11-07,451
2010-11-08,515
2010-11-09,409
2010-11-10,397
2010-11-11,395
2010-11-12,286
2010-11-13,343
2010-11-14,416
2010-11-15,4871
2010-11-16,9105
2010-11-17,435
2010-11-18,1494
2010-11-19,9632
2010-11-20,9731
2010-11-21,10044
2010-11-22,343
2010-11-23,341
2010-11-24,3936
2010-11-25,4983
2010-11-26,1314
2010-11-27,445
2010-11-28,454
2010-11-29,454
2010-11-30,454
2010-12-01,512
2010-12-02,460
2010-12-03,384
2010-12-04,418
2010-12-05,434
2010-12-06,465
2010-12-07,573
2010-12-08,523
2010-12-09,486
2010-12-10,373
2010-12-11,550
2010-12-12,643
2010-12-13,646
2010-12-14,653
2010-12-15,642
2010-12-16,531
2010-12-17,462
2010-12-18,499
2010-12-19,551
2010-12-20,932
2010-12-21,629
2010-12-22,660
2010-12-23,519
2010-12-24,531
2010-12-25,634
2010-12-26,584
2010-12-27,526
2010-12-28,661
2010-12-29,513
2010-12-30,593
2010-12-31,555
2011-01-01,659
2011-01-02,569
2011-01-03,1128
2011-01-04,979
2011-01-05,1310
2011-01-06,694
2011-01-07,1020
2011-01-08,1436
2011-01-09,1223
2011-01-10,1312
2011-01-11,1362
2011-01-12,1162
2011-01-13,1266
2011-01-14,1262
2011-01-15,962
2011-01-16,931
2011-01-17,830
2011-01-18,818
2011-01-19,917
2011-01-20,924
2011-01-21,1166
2011-01-22,1422
2011-01-23,1081
2011-01-24,1319
2011-01-25,889
2011-01-26,1005
2011-01-27,841
2011-01-28,1081
2011-01-29,1347
2011-01-30,2592
2011-01-31,1393
2011-02-01,1013
2011-02-02,896
2011-02-03,789
2011-02-04,954
2011-02-05,832
2011-02-06,909
2011-02-07,892
2011-02-08,846
2011-02-09,1227
2011-02-10,2034
2011-02-11,2355
2011-02-12,1912
2011-02-13,1822
2011-02-14,2006
2011-02-15,2224
2011-02-16,2090
2011-02-17,2250
2011-02-18,2056
2011-02-19,1583
2011-02-20,1939
2011-02-21,1970
2011-02-22,2196
2011-02-23,2263
2011-02-24,2109
2011-02-25,2060
2011-02-26,1952
2011-02-27,2269
2011-02-28,1720
2011-03-01,2729
2011-03-02,2009
2011-03-03,3204
2011-03-04,1982
2011-03-05,2048
2011-03-06,2031
2011-03-07,1926
2011-03-08,2440
2011-03-09,1834
2011-03-10,1661
2011-03-11,1884
2011-03-12,2956
2011-03-13,2711
2011-03-14,2643
2011-03-15,2854
2011-03-16,3183
2011-03-17,3367
2011-03-18,2371
2011-03-19,3189
2011-03-20,4076
2011-03-21,5855
2011-03-22,2238
2011-03-23,4570
2011-03-24,2164
2011-03-25,1999
2011-03-26,3335
2011-03-27,2463
2011-03-28,2931
2011-03-29,2718
2011-03-30,1756
2011-03-31,2095
2011-04-01,1579
2011-04-02,1772
2011-04-03,1805
2011-04-04,2309
2011-04-05,2119
2011-04-06,1864
2011-04-07,1677
2011-04-08,1767
2011-04-09,1733
2011-04-10,1744
2011-04-11,1943
2011-04-12,2077
2011-04-13,2371
2011-04-14,2881
2011-04-15,2018
2011-04-16,2154
2011-04-17,2257
2011-04-18,3035
2011-04-19,3598
2011-04-20,2969
2011-04-21,1915
2011-04-22,2097
2011-04-23,2310
2011-04-24,2273
2011-04-25,2592
2011-04-26,3455
2011-04-27,4580
2011-04-28,3035
2011-04-29,3534
2011-04-30,4473
2011-05-01,3949
2011-05-02,3095
2011-05-03,2935
2011-05-04,2800
2011-05-05,3464
2011-05-06,3290
2011-05-07,3887
2011-05-08,2898
2011-05-09,3516
2011-05-10,3151
2011-05-11,3090
2011-05-12,3361
2011-05-13,4064
2011-05-14,4414
2011-05-15,3770
2011-05-16,4349
2011-05-17,4464
2011-05-18,5581
2011-05-19,4663
2011-05-20,4795
2011-05-21,4964
2011-05-22,5282
2011-05-23,5745
2011-05-24,5865
2011-05-25,6258
2011-05-26,6967
2011-05-27,4853
2011-05-28,5013
2011-05-29,4753
2011-05-30,5337
2011-05-31,6063
2011-06-01,6540
2011-06-02,7136
2011-06-03,8441
2011-06-04,8811
2011-06-05,8592
2011-06-06,9703
2011-06-07,9002
2011-06-08,11815
2011-06-09,12176
2011-06-10,11269
2011-06-11,10897
2011-06-12,12440
2011-06-13,11246
2011-06-14,14158
2011-06-15,12605
2011-06-16,12746
2011-06-17,11296
2011-06-18,11563
2011-06-19,11472
2011-06-20,11225
2011-06-21,9704
2011-06-22,11519
2011-06-23,10418
2011-06-24,10922
2011-06-25,9693
2011-06-26,9985
2011-06-27,11751
2011-06-28,10719
2011-06-29,10002
2011-06-30,9636
2011-07-01,10603
2011-07-02,8018
2011-07-03,8364
2011-07-04,9604
2011-07-05,8965
2011-07-06,10519
2011-07-07,9180
2011-07-08,8528
2011-07-09,7851
2011-07-10,8392
2011-07-11,10523
2011-07-12,8147
2011-07-13,9193
2011-07-14,8716
2011-07-15,944

+ 31
- 0
bitcoin.txvolume/monthlies.csv View File

@@ -0,0 +1,31 @@
2009-01-01,2576
2009-02-01,3417
2009-03-01,3487
2009-04-01,3459
2009-05-01,3401
2009-06-01,2244
2009-07-01,1930
2009-08-01,1570
2009-09-01,2170
2009-10-01,2139
2009-11-01,2232
2009-12-01,4084
2010-01-01,5056
2010-02-01,5751
2010-03-01,5398
2010-04-01,9631
2010-05-01,6212
2010-06-01,6678
2010-07-01,26488
2010-08-01,11968
2010-09-01,13185
2010-10-01,14386
2010-11-01,63410
2010-12-01,17142
2011-01-01,34900
2011-02-01,47168
2011-03-01,83222
2011-04-01,73936
2011-05-01,136636
2011-06-01,317482
2011-07-01,127547

+ 29
- 0
bitcoin.txvolume/txcount.pl View File

@@ -0,0 +1,29 @@
#!/usr/bin/perl
# 3456789#123456789#123456789#123456789#123456789#123456789#123456789#123456789#
# 20110715 jeffrey paul <sneak@datavibe.net>
# 5539 AD00 DE4C 42F3 AFE1 1575 0524 43F4 DF2A 55C2 # please sign!
# thanks to theymos of bitcoin block explorer for txcount.csv export dump

use strict;
use warnings qw( all );
use DateTime;
use Data::Dumper;

sub main {
open(DERP,'txcount.csv') or die;
my $out = {};
while(<DERP>) {
chomp;
next if /^#/;
my @p = split(/,/);
next unless @p == 3;
my $dt = DateTime->from_epoch( epoch => $p[1] );
$out->{$dt->ymd} += $p[2];
}

foreach (sort(keys(%$out))) {
print $_ . "," . $out->{$_} . "\n";
}
}

main();

+ 28
- 0
cat-unless-older/cat-unless-older View File

@@ -0,0 +1,28 @@
#!/bin/sh

export PATH=""

if [ $# -ne 2 ]; then
echo 1>&2 "Usage: $0 <seconds> <file>";
exit 127
fi

SECS=$[ $1 + 0 ]

if [ "$SECS" -lt 1 ]; then
echo 1>&2 "error: seconds must be a positive integer"
exit 127
fi

if [ ! -f "$2" ]; then
echo 1>&2 "error: invalid file $2"
exit 127
fi

NOW=`/bin/date +%s`
FILE=`/usr/bin/stat -c '%Z' "$2"`
FILEAGE=$[ $NOW - $FILE ]

if [ "$FILEAGE" -lt "$SECS" ]; then
/bin/cat "$2"
fi

+ 185
- 0
grandcentral-vm-downloader/gc-vm-email-download.pl View File

@@ -0,0 +1,185 @@
#!/usr/bin/perl
# 03 April 2008 (header added in 2011)
# pub 4096R/DF2A55C2 2010-10-21
# Key fingerprint = 5539 AD00 DE4C 42F3 AFE1 1575 0524 43F4 DF2A 55C2
# uid Jeffrey Paul <sneak@datavibe.net>

use strict;
use warnings qw( all );
use LWP::UserAgent;
use WWW::Mechanize;
use Data::Dumper;
use Mail::Internet;
use MIME::Base64;

my $debug = 1;
my $gcuser = 'grandcentral_user';
my $gcpass = 'grandcentral_pass';

# this works as of 20080403:
my $uastring = 'BlackBerry8320/4.2.2 Profile/MIDP-2.0 '.
'Configuration/CLDC-1.1 VendorID/100';
my $savedir = '/home/jpaulvoicemail/vm';
my $mech;

main();

sub main {
my $msg = loadmsg();
my ($url,$mhash) = parse_email($msg);
die("unable to fetch voicemail") unless $mhash;
my $mp3data = fetch_vm($url);
die("unable to fetch voicemail") unless $mp3data;
my $h = fetch_voicemail_meta();
die("unable to get metadata for this voicemail") unless $h->{$mhash};
print Data::Dumper::Dumper($h->{$mhash});
my $fn = $h->{$mhash}{'timestamp'} . "_" .
$h->{$mhash}{'from'} . "_" .
$mhash . ".mp3";
writefile($savedir . "/" . $fn, $mp3data);
}

sub parse_email {
my $raw = shift;
$raw =~ s/\s+/ /g;
die unless $raw =~ /forwarded_messages\/\?unique_key\=([0-9a-f]+)\&mhash\=([0-9a-f]+)/;
my $url =
"http://www.grandcentral.com/".
"forwarded_messages/?unique_key=$1&mhash=$2";
return $url,$2;
}

sub fetch_vm {
my $url = shift;
my $ua = LWP::UserAgent->new(
agent => $uastring,
cookie_jar => { }
);
$ua->env_proxy;
$ua->timeout(10);
my $r = $ua->get($url);
return unless $r->is_success;
die("wtf google") unless $r->content_type eq 'audio/mpeg';
return $r->content;
}

sub dout {
return unless defined($debug) && $debug;
my $msg = shift;
chomp $msg;
print STDOUT "*** $0: " . $msg . "\n";
}

sub writefile {
my $fn = shift;
my $content = shift;
open(OUT,">$fn") or die("Can't open $fn for writing: $!");
print OUT $content;
close(OUT);
dout("wrote $fn");
}

sub fetch_voicemail_meta {
my $url = 'http://grandcentral.com/mobile';
$mech = WWW::Mechanize->new( agent => $uastring);
$mech->get( $url );
die("unable to fetch vm list") unless $mech->success();
$mech->submit_form(
form_number => 1,
fields => {
username => $gcuser,
password => $gcpass,
},
);
die("unable to fetch vm list") unless $mech->success();
$mech->submit_form(
form_number => 1,
fields => {
default_number => 'custom',
custom_number => '3131111111', #detroit uber alles
},
);
die("unable to fetch vm list") unless $mech->success();
$mech->follow_link( text => 'Inbox' );
die("unable to fetch vm list") unless $mech->success();
my @blocks = parse_page_into_vm_blocks($mech->content());
return(lr2hr(\@blocks,'mhash'));
}

sub parse_page_into_vm_blocks {
my $in = shift;
$in =~ s/\n/ /g;
$in =~ s/\r/ /g;
$in =~ s/\s+/ /g;
die unless $in =~ /<table width="100%" cellspacing="0" cellpadding="0">(.*)<\/table>/;
my $tablecontent = $1;
my @rows = split(/\s*<\/tr>\s*/,$tablecontent);
my @parsed;
foreach my $row (@rows) {
next unless $row =~ /send_voicemail/;
push(@parsed,parse_vm_block($row));
}
return(@parsed);
}

sub parse_vm_block {
my $block = shift;
my $out;
die unless $block =~ /files\/send_voicemail\/([a-z0-9]+)/;
$out->{'mhash'} = $1;
die unless $block =~ / ([0-9][0-9])\:([0-9][0-9]) ([AP]M)/;
my $hh = $1;
my $mm = $2;
my $ap = $3;
$hh = '00' if ( $ap eq 'AM' && $hh eq '12');
$ap = 'AM' if ( $ap eq 'PM' && $hh eq '12'); #stupid 12h time

$out->{'timestamp'} = $hh . $mm;
$out->{'timestamp'} += 1200 if $ap eq 'PM'; #convert to 24h
die unless $block =~ /([0-9][0-9])\/([0-9][0-9])\/([0-9][0-9][0-9][0-9]) <br\/>/;
$out->{'timestamp'} = $3 . $1 . $2 . $out->{'timestamp'};

$out->{'from'} = '0000000000';
$out->{'from'} = $1 if $block =~ /destno=([0-9]+)/;
return $out;
}

sub lr2hr {
my $lr = shift;
my $key = shift;
my $r;
foreach my $item (@{$lr}) {
next unless $item->{$key};
$r->{$item->{$key}} = $item;
}
return $r;
}

sub loadmsg {
my $raw = readinput();
my @lines = split(/\n/,$raw);
shift(@lines)
until($lines[0] =~ /^Content-Transfer-Encoding\:\ base64/);
shift(@lines);
shift(@lines);
$raw = join("\n",@lines);
die unless $raw;
$raw = MIME::Base64::decode_base64($raw);
die unless $raw;
return $raw;
}

sub readinput {
my $in;
read(STDIN,$in,1024*10); # 10kB sufficient
close(STDIN);
return $in;
}

1;

__END__

Loading…
Cancel
Save