git://git.jankratochvil.net
/
nethome.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e09e04b
)
Fix some runtime warns.
author
lace
<>
Thu, 8 May 2008 09:08:33 +0000
(09:08 +0000)
committer
lace
<>
Thu, 8 May 2008 09:08:33 +0000
(09:08 +0000)
bin/engine-di.fm
patch
|
blob
|
history
bin/fup
patch
|
blob
|
history
bin/sortn
patch
|
blob
|
history
diff --git
a/bin/engine-di.fm
b/bin/engine-di.fm
index
05e027a
..
45a9968
100755
(executable)
--- a/
bin/engine-di.fm
+++ b/
bin/engine-di.fm
@@
-165,10
+165,11
@@
do {
if ($pathslashed=~m{/(\d+)k}) {
push @list,"-cache",60*$1/8,"-cache-min",45;
}
if ($pathslashed=~m{/(\d+)k}) {
push @list,"-cache",60*$1/8,"-cache-min",45;
}
+ push @list,@ARGV;
push @list,$stream;
warn Dumper(\@list);
#system $mplayer @list;
push @list,$stream;
warn Dumper(\@list);
#system $mplayer @list;
- do { die "[$&] <$_>" if m{[^-a-zA-Z 0-9/:.@]}; } for @list;
+ do { die "[$&] <$_>" if m{[^-a-zA-Z 0-9/:.@
=
]}; } for @list;
system {"bash"} "bash","-c",join(" ",@list);
exit 0 if $?;
}
system {"bash"} "bash","-c",join(" ",@list);
exit 0 if $?;
}
diff --git
a/bin/fup
b/bin/fup
index
4fe0978
..
ec166d4
100755
(executable)
--- a/
bin/fup
+++ b/
bin/fup
@@
-13,7
+13,7
@@
use Data::Dumper;
my $USER="adsl_303141";
my $USERNAME="Jan Kratochvil";
my $PASSWORD=&_priv_postget("uzivatel.gtsnovera.cz.pwd");
my $USER="adsl_303141";
my $USERNAME="Jan Kratochvil";
my $PASSWORD=&_priv_postget("uzivatel.gtsnovera.cz.pwd");
-my $IFDEV="eth
1
";
+my $IFDEV="eth
0
";
my $SECS=4;
my $RX_THRESHOLD=210000; # 226085
my $TX_THRESHOLD=210000; # 291251
my $SECS=4;
my $RX_THRESHOLD=210000; # 226085
my $TX_THRESHOLD=210000; # 291251
diff --git
a/bin/sortn
b/bin/sortn
index
bf87d95
..
ad0c7d0
100755
(executable)
--- a/
bin/sortn
+++ b/
bin/sortn
@@
-7,15
+7,15
@@
print sort {
my $a=$a;
my $b=$b;
while ($a ne "" || $b ne "") {
my $a=$a;
my $b=$b;
while ($a ne "" || $b ne "") {
- $a=~s/^(\D
+
)//s;
+ $a=~s/^(\D
*
)//s;
my $as=$1;
my $as=$1;
- $b=~s/^(\D
+
)//s;
+ $b=~s/^(\D
*
)//s;
my $bs=$1;
my $rs=$as cmp $bs;
return $rs if $rs;
my $bs=$1;
my $rs=$as cmp $bs;
return $rs if $rs;
- $a=~s/^(\d
+
)//s;
+ $a=~s/^(\d
*
)//s;
my $an=$1;
my $an=$1;
- $b=~s/^(\d
+
)//s;
+ $b=~s/^(\d
*
)//s;
my $bn=$1;
my $rn=$an<=>$bn;
return $rn if $rn;
my $bn=$1;
my $rn=$an<=>$bn;
return $rn if $rn;