repo.or.cz
/
xrzperl.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
updated git and svn scripts
[xrzperl.git]
/
sina.netcat
blob
1b52407fe92588b9192ffbaef08a0b8460270c91
1
#!/usr/bin/perl -w
2
# $Id$
3
use
strict
;
4
require
v5
.
10
.0
;
5
our
$VERSION
=
'v0.1'
;
6
my
$COOKIE
=
$ENV
{
HOME
} .
"/.curl_cookie.dat"
;
7
my
@CURL
=
qw{
8
curl
9
-
A
"Mozilla/5.0"
10
--
progress
-
bar
--
fail
11
--
location
12
};
13
14
exec
(
@CURL
,
'-b'
,
$COOKIE
,
'-c'
,
$COOKIE
,
@ARGV
);