/usr/lib/cgi-bin/samba/smbfile.pl is in smb2www 980804-41.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 | #! /usr/bin/perl
# SMB2WWW - a smb to WWW gateway; access windows computers through a browser
# Copyright (C) 1997 Remco van Mook
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
# The author can be contacted by e-mail: remco@samba.anu.edu.au
use strict;
use smb2www;
# Debian: is smb2www enabled?
CheckEnabled() or exit 0;
sub URLParse {
my ($host, $share, $file, $user, $pass) = @_;
$file =~ s/^(.*)\/([^\/]*)$/$1$2/ ;
if ( $user ne "" ) { $user="-U$user"; }
if ( $pass ne "") {
if ( $user eq "" ) { $user = "-Uguest" }
} else { $pass = "-N" }
my @input = GetCmdOutput(("$cfg{bindir}/smbclient", "//$host/$share", "$pass", "$user", "-d0", "-E", "-c", "get \"$file\" -"));
my $url = $input[1];
chop $url;
if ( $url =~ /URL\=(.*)/ ) {
print "Location: $1\n\n";
} else {
# Something odd in a .url file, so just throw it at the client, YMMV
print "Content-type: application/octet-stream\n\n";
foreach (@input) { print $_}
}
}
select STDOUT; $| = 1;
$ENV{'USER'}=$cfg{username};
my $info = $ENV{'PATH_INFO'};
my @muddy="";
my $filesize=""; my $filename = "";
my %all=decode_query;
# my $key = "";
# foreach $key (keys %all) {
# $all{$key} = urlDecode $all{$key};
# }
if ($all{auth} ne "") {
($all{user},$all{pass}) = GetAuth ("$all{auth}");
}
if ($info =~ /\/([\w\s\$\#\!\-\_\%\'\.\+]+)\/([\w\s\$\#\!\-\_\%\'\.\+]+)\/([\d]+)\/(.*)/) {
$all{host} = urlDecode($1);
$all{share} = urlDecode($2);
$filesize= urlDecode($3);
$filename = urlDecode($4);
}
my $ext="";
if ($filename =~ /([^\/]+)\/(.*)/ ) {
$ext = (split (/\./ , $2))[-1];
}
# If the file extension is something special, like .url or .lnk, do something
# intelligent with it. At the moment, only .url is supported.
if ($ext eq "url") {
URLParse ("$all{host}","$all{share}","$filename","$all{user}","$all{pass}");
} else {
if ($all{lm} ne "") { print "Last-Modified: ".httptime("$all{lm}")."\n" }
print "Pragma: no-cache\n";
if ( $filesize ne "") { print "Content-Length: $filesize\n" }
print "Content-type: ".mimetype ($ext)."\n\n";
GetSMBFile ("$all{host}","$all{share}","$filename","$all{user}","$all{pass}");
### NOT REACHED ###
}
|