Parent Directory | Revision Log | Patch
revision 208 by dpavlin, Wed Aug 12 23:59:01 2009 UTC | revision 209 by dpavlin, Thu Aug 13 00:06:48 2009 UTC | |
---|---|---|
# | Line 99 sub audit { | Line 99 sub audit { |
99 | my $data = pop @_; | my $data = pop @_; |
100 | ||
101 | my $url = join(' ', @_); | my $url = join(' ', @_); |
102 | $url =~ s/-\S+//g; | $url =~ s/\s+-\S+//g; # remove command line options |
103 | $url =~ s/\W+/-/g; | $url =~ s/\W+/-/g; |
104 | ||
105 | my ( $package, $file, $line, $sub ) = caller(1); | my ( $package, $file, $line, $sub ) = caller(1); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |