10 lines
151 B
Perl
Executable File
10 lines
151 B
Perl
Executable File
#!/usr/bin/perl
|
|
# keymap "x \\" GOTO file:/$LIB/backslash_to_slash.cgi
|
|
|
|
$_ = $ENV{W3M_CURRENT_LINK} || exit;
|
|
s@\\@/@g;
|
|
print <<EOF;
|
|
Location: $_
|
|
|
|
EOF
|