naomi/dots
1
0
Fork 0
mirror of https://github.com/NaomiAmethyst/dots.git synced 2025-08-05 16:48:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Xresources
View file

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

6
manual_fetch.pl
View file

@ -20,16 +20,14 @@ my $tgz = http_fetch("$URL;a=snapshot;h=$hash;sf=tgz");
extract_tgz($tgz); extract_tgz($tgz);
sub http_fetch { sub http_fetch {
use LWP::Simple 'get';
my $url = shift; my $url = shift;
return get($url); return qx{wget -O - '$url'};
} }
sub extract_tgz { sub extract_tgz {
my $data = shift; 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; print $pipe $data;
close($pipe); close($pipe);
} }