Xresources: changed default cursor color to silver from white. manual_fetch.pl: Switched from LWP::Simple to wget for fetching pages.

This commit is contained in:
Adrian Kreher 2008-11-22 23:06:00 -06:00
parent c2dc1b3a39
commit 1ecaf1b495
2 changed files with 5 additions and 7 deletions

View file

@ -9,7 +9,7 @@ XTerm*faceSize: 9
XTerm*faceName: Monospace
XTerm*background: black
XTerm*foreground: white
XTerm*foreground: #cccccc
XTerm*termName: xterm-256color
@ -39,7 +39,7 @@ UXTerm*faceSize: 9
UXTerm*faceName: Monospace
UXTerm*background: black
UXTerm*foreground: white
UXTerm*foreground: #cccccc
UXTerm*termName: xterm-256color
@ -68,7 +68,7 @@ UXTerm*color15: #EEEEEC
URxvt*font: xft:Monospace-9
URxvt*background: black
URxvt*foreground: white
URxvt*foreground: #cccccc
URxvt*scrollBar: false

View file

@ -20,16 +20,14 @@ my $tgz = http_fetch("$URL;a=snapshot;h=$hash;sf=tgz");
extract_tgz($tgz);
sub http_fetch {
use LWP::Simple 'get';
my $url = shift;
return get($url);
return qx{wget -O - '$url'};
}
sub extract_tgz {
my $data = shift;
open(my $pipe, '|-', 'tar', '-xz') || die "manual_fetch.pl: tar failed: $!";
open(my $pipe, '|-', 'tar', '-xzf', '-') || die "manual_fetch.pl: tar failed: $!";
print $pipe $data;
close($pipe);
}