src/sftpchroot.pl

   1 #! /usr/bin/perl -T --
   2 #
   3 # $Id$
   4
   5
   6 use strict;
   7 use warnings;
   8
   9 my $CMD="/usr/libexec/openssh/sftp-server";
  10 my $PATH="/FIXME";
  11 my $UID=FIXME;
  12
  13 %ENV=();        # Prevent: Insecure $ENV{PATH} while running with -T switch
  14 chroot $PATH or die "chroot: $PATH: $!";
  15 ($<,$>)=($UID,$UID);
  16 $<==$UID or die "real UID==$<, expected $UID";
  17 $>==$UID or die "EUID==$>, expected $UID";
  18 chdir "/" or die "chdir: $!";
  19 exec $CMD;
  20 die "$CMD: $!";