sub bitcoinslc_rewards {
    print "parsing bitcoin.lc rewards\n";
    my $url1='https://www.bitcoins.lc/';
    my $url2='https://www.bitcoins.lc/transactions';
    my $pool=$pools{"bitcoins-lc"};
    $pool->{rounds_time}=shared_clone({}) unless $pool->{rounds_time};

    foreach my $account (values %{$accounts{"bitcoins-lc"}}) {
$_=wget($url1, "--keep-session-cookies --save-cookie bitcoins-lc-cookie.txt");
if (!$_){
    print "error: unable to fetch bitcoins-lc login page $url1\n";
    return;
}
m{.* name="_csrf_token" value="(\w.*)"};
my $token=$1;
my $ok=($token=~/^[a-z0-9]+$/);

if ($ok){
    $_=wget($url1, "'--post-data=_csrf_token=$token&action=login&email=$account->{web_user}&password=$account->{web_pass}&login=Proceed'", "--load-cookies bitcoins-lc-cookie.txt", "--keep-session-cookies --save-cookie bitcoins-lc-cookie2.txt");
    $ok=!!$_;
}
if ($ok){
    $_=wget($url2, "--load-cookies bitcoins-lc-cookie2.txt");
    $ok=!!$_;
}

my @lines;
if ($ok){
    @lines=split/\n/;
    $ok=@lines; # puts the number of lines in $ok
}
if (!$ok){
    print "error: cannot login into/parse stats page for bitcoin-lc using account $account->{name}\n";
    return;
}
@lines = grep { /Your Transactions/ .. /div id="rightcol"/ } @lines;
if (!@lines) {
   print "error: no lines matched between Your Transactions and div id=rightcol; code needs changed!\n";
   return;
}

my @new_rounds;
my $blockid = 0;
my $date;
my $shares = 0;
my $reward = 0;
my $epoch = 0;

foreach (@lines){
    if (/Received Block (\d+) - (.*)<\/span>/) {
$blockid = $1;
$date = $2;
$date =~ s/ (\d\d?) (...) / $2 $1 /;
$epoch=qx(date -d '$date' +%s); chomp $epoch;
    }
    if (/Based upon (\d+) valid shares/) {
$shares = $1;
next if (!$blockid);
    }
    if (/

\+([\d.]+)/) {
$reward = $1;
if ($blockid) {
    #print "Debug: block $blockid, date '$date', epoch '$epoch', shares $shares, amount $reward\n";
    $ok=($blockid=~/^[a-z0-9]+$/ and $reward=~/^\d+\.\d+$/ and $epoch=~/^\d+$/ and $shares=~/^\d+$/);

    if (!$ok){
print "error parsing stats page for bitcoins-lc using account $account->{name}: line=$_\n";
foreach my $round (@new_rounds){
    delete $account->{rounds}->{$round};
}
return;
    }

    my $round=$pool->{rounds_time}->{$epoch};
    if (!$round){
$round=guess_round($epoch, $pool, $epoch);
next if !$round;
$pool->{rounds}->{$round}=shared_clone({time => $epoch, shares => $shares});
$pool->{rounds_time}->{$epoch} = $round;
    }
    if (!$account->{rounds}->{$round}){
$account->{rounds}->{$round}=shared_clone({earned => $reward, shares_web => $shares});
push @new_rounds, $round;
    }    

    # Then reset data
    $blockid = $shares = $reward = $epoch = 0;
    $date = "";
} else {
    next;
}
    }
    last if (/Recent Transactions/);
}
consolidate_rounds($account, @new_rounds);
    }
}