7 |
|
|
8 |
use strict; |
use strict; |
9 |
|
|
10 |
my ($name,$url,$stripurl) = @ARGV; |
my $name = shift @ARGV; |
11 |
|
my $url = shift @ARGV; |
12 |
|
my $stripurl = shift @ARGV; |
13 |
|
|
14 |
if (!$name || !$url) { |
if (!$name || !$url) { |
15 |
print "Usage: $0 name URL\n"; |
print "Usage: $0 name URL [strip from url]\n"; |
16 |
exit; |
exit; |
17 |
} |
} |
18 |
|
|
25 |
|
|
26 |
my ($host,$urlpath); |
my ($host,$urlpath); |
27 |
|
|
28 |
if ($url =~ m#(http://[^/]+)(/.+)$#) { |
if ($url =~ m#(http://[^/]+)(/.*)$#) { |
29 |
($host,$urlpath) = ($1,$2); |
($host,$urlpath) = ($1,$2); |
30 |
if ($stripurl && $urlpath =~ m/^(.*$stripurl)/) { |
if ($stripurl && $urlpath =~ m/^(.*$stripurl)/) { |
31 |
$stripurl = $1; |
$stripurl = $1; |