/[swish]/trunk/make_config.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/make_config.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 32 by dpavlin, Wed Apr 30 12:40:09 2003 UTC revision 33 by dpavlin, Sun May 4 01:31:31 2003 UTC
# Line 7  Line 7 
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    
# Line 23  if ($dir !~ m#^/#) { Line 25  if ($dir !~ m#^/#) {
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;
Legend:
Removed from v.32  
changed lines
  Added in v.33
  ViewVC Help
Powered by ViewVC 1.1.26