+++ /dev/null
-fuse for Debian
----------------
-
-To be able to use fuse, you need to install the appropriate fuse-module
-package for your kernel version. For a self-compiled kernel, install
-fuse-source, unpack the tarball /usr/src/fuse.tar, and run
-make-kpkg modules from your kernel source tree. You should end up having
-a fuse-module package in /usr/src/modules which you need to install with
-dpkg -i fuse-module-...deb.
-
- -- Roland Bauerschmidt <rb@debian.org>, Fri, 5 Apr 2002 16:56:10 +0200
+++ /dev/null
-fuse (1.0-1) unstable; urgency=low
-
- * New upstream release.
- * debian/genchanges.sh: Only run gpg/pgp if available. Closes: #209358.
- * debian/fuse-module.control: Fixed typo (fuse-module instead of
- fule-module). Closes: #212576.
-
- -- Roland Bauerschmidt <rb@debian.org> Tue, 7 Oct 2003 18:00:23 +0200
-
-fuse (0.95-1) unstable; urgency=low
-
- * Initial Release.
- * Adapted lots of stuff from the pcmcia-cs package to build module
- packages properly.
-
- -- Roland Bauerschmidt <rb@debian.org> Sun, 7 Apr 2002 19:56:20 +0200
-
+++ /dev/null
-This package was debianized by Roland Bauerschmidt <rb@debian.org> on
-Fri, 5 Apr 2002 16:56:10 +0200.
-
-It was downloaded from http://sourceforge.net/projects/avf/
-
-Upstream Author: Miklos Szeredi <mszeredi@inf.bme.hu>
-
-FUSE is licensed under the terms of the GPL. On Debian systems, the full
-text can be found in /usr/share/common-licenses/GPL.
+++ /dev/null
-usr/bin
-usr/sbin
+++ /dev/null
-BUGS
-NEWS
-README
-TODO
+++ /dev/null
-Package: fuse-module-${kvers}
-Section: misc
-Architecture: any
-Provides: fuse-module
-Depends: kernel-image-${kvers} (= ${kversdeb})
-Recommends: fuse-utils
-Description: Filesystem in USErspace (kernel module)
- Simple interface for userspace programs to export a virtual
- filesystem to the linux kernel.
-
+++ /dev/null
-#!/bin/sh -e
-
-if [ "$1" = "configure" -a "`uname -r`" = "${kvers}" ]; then
- depmod -a || true
-fi
-
-#DEBHELPER#
+++ /dev/null
-#!/bin/sh -e
-
-if [ "`uname -r`" = "${kvers}" ]; then
- depmod -a || true
-fi
-
-#DEBHELPER#
+++ /dev/null
-Package: libfuse-dev
-Section: devel
-Architecture: any
-Suggests: fuse-utils (= ${Source-Version}), fuse-module
-Description: Filesystem in USErspace (development files)
- Simple interface for userspace programs to export a virtual
- filesystem to the linux kernel.
- .
- This package contains the files necessary to write applications in C
- or C++ using fuse.
-
-Package: fuse-utils
-Section: utils
-Architecture: any
-Depends: ${shlibs:Depends}
-Suggests: fuse-module
-Description: Filesystem in USErspace (utilities)
- Simple interface for userspace programs to export a virtual
- filesystem to the linux kernel.
- .
- This package contains the fusermount utility which is necessary to
- mount fuse filesystems.
-
-Package: fuse-source
-Section: utils
-Architecture: all
-Depends: make, gcc | c-compiler
-Recommends: dpkg-dev, kernel-package
-Suggests: devscripts
-Description: Filesystem in USErspace (source for kernel module)
- Simple interface for userspace programs to export a virtual
- filesystem to the linux kernel.
- .
- This package contains the source code for the fuse module. It is
- required to use fuse with a self-compiled kernel.
+++ /dev/null
-#!/bin/sh
-# genchanges.sh - generate a changes file for a deb file generated via
-# the make-kpkg utility
-
-# KSRC KMAINT and KEMAIL are expected to be passed through the environment
-
-set -e
-umask 022
-
-KVERS=`cat debian/KVERS`
-MODVERS=`cat debian/MODVERS`
-ARCH=`dpkg --print-architecture`
-
-{ head -2 debian/changelog
- echo " * Built for kernel-image-${KVERS}."
- echo
- sed -ne '/^ -- / { p; q; }' debian/changelog
-} > debian/changelog.tmp
-
-# determine the maintainer's name
-for name in "$KMAINT" "$DEBFULLNAME" "$DEBNAME"
- do test -n "$name" && break; done
-for email in "$KEMAIL" "$DEBEMAIL"
- do test -n "$email" && break; done
-if [ "$name" -a "$email" ]; then maint="$name <$email>"
-elif [ "$email" ]; then maint="$email"
-else maint=""; fi
-
-# the changes file's name
-chfile="$KSRC/../fuse-module-${KVERS}_${MODVERS}_${ARCH}.changes"
-
-dpkg-genchanges -b ${maint:+-e"$maint"} -u"$KSRC/.." \
- -ldebian/changelog.tmp \
- -cdebian/control.tmp > "$chfile.pt"
-if test -e "${GNUPGHOME:-$HOME/.gnupg/secring.gpg}" && test -x /usr/bin/gpg; then
- gpg -ast ${email:+-u"$email"} \
- --clearsign < "$chfile.pt" > "$chfile"
-elif test -x /usr/bin/pgp; then
- pgp -fast ${email:+-u"$email"} +clearsig=on \
- < "$chfile.pt" > "$chfile"
-fi
-rm debian/changelog.tmp
-rm "$chfile.pt"
+++ /dev/null
-usr/lib
-usr/include
+++ /dev/null
-example/hello.c
-example/null.c
-example/fusexmp.c
+++ /dev/null
-usr/include/*
-usr/lib/lib*.a
-usr/lib/lib*.so
+++ /dev/null
-#!/usr/bin/make -f
-# Sample debian/rules that uses debhelper.
-# GNU copyright 1997 to 1999 by Joey Hess.
-
-#export DH_VERBOSE=1
-export DH_COMPAT=3
-
-DEB_HOST_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_HOST_GNU_TYPE)
-DEB_BUILD_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_BUILD_GNU_TYPE)
-
-KSRC ?= /usr/src/linux
-MOD_DIR ?= '.'
-
-ifneq (,$(findstring debug,$(DEB_BUILD_OPTIONS)))
- CFLAGS += -g
-endif
-ifeq (,$(findstring nostrip,$(DEB_BUILD_OPTIONS)))
- INSTALL_PROGRAM += -s
-endif
-
-
-build: build-stamp
-build-stamp:
- $(checkdir)
-
- ./makeconf.sh
- ./configure --host=$(DEB_HOST_GNU_TYPE) --build=$(DEB_BUILD_GNU_TYPE) --prefix=/usr --mandir=\$${prefix}/share/man --infodir=\$${prefix}/share/info --disable-kernel-module --disable-example
- $(MAKE)
-
- touch build-stamp
-
-clean: kdist_clean
- $(checkdir)
- $(checkroot)
- rm -f build-stamp
-
- -$(MAKE) distclean
- -test -r /usr/share/misc/config.sub && \
- cp -f /usr/share/misc/config.sub config.sub
- -test -r /usr/share/misc/config.guess && \
- cp -f /usr/share/misc/config.guess config.guess
-
- find -name '*.o' -o -name '*.so' -o -name fusermount -type f -o \
- \( -name 'Makefile' -a ! -regex '.*python.*' \) | xargs rm -f
-
- rm -f debian/control
- cat debian/source.control debian/fuse.control > debian/control
-
- dh_clean
-
-clean-modules:
- $(checkdir)
- $(checkroot)
- rm -f build-modules-stamp
- rm -rf debian/fuse-module-*
- rm -f debian/KVERS debian/MODVERS debian/control.tmp
-
- -$(MAKE) distclean
-
- test -f debian/control || touch debian/control
- dh_clean
-
-install: build
- $(checkdir)
- $(checkroot)
-
- dh_clean -k
- dh_installdirs
-
- $(MAKE) install DESTDIR=$(CURDIR)/debian/tmp
-
- # -source package
- find . \( -name \*.o -path ./debian/tmp \) -prune -o -print | \
- cpio -admp debian/tmp/usr/src/modules/fuse
- cd debian/tmp/usr/src/modules/fuse && \
- $(MAKE) -f debian/rules clean
- cd debian/tmp/usr/src && \
- tar cf fuse.tar modules && \
- rm -r modules
- gzip -9 debian/tmp/usr/src/fuse.tar
-
-build-modules: build-modules-stamp
-build-modules-stamp:
- $(checkdir)
-
- ./makeconf.sh
- ./configure --host=$(DEB_HOST_GNU_TYPE) --build=$(DEB_BUILD_GNU_TYPE) --prefix=/usr --mandir=\$${prefix}/share/man --infodir=\$${prefix}/share/info --disable-lib --disable-util --disable-example --with-kernel=$(KSRC)
-
- $(MAKE)
-
- touch build-modules-stamp
-
-install-modules: build-modules
- $(checkdir)
- $(checkroot)
-
- install -d $(CURDIR)/debian/fuse-module-$(KVERS)/lib/modules/$(KVERS)/kernel/fs/fuse
- install -m 0644 kernel/fuse.o $(CURDIR)/debian/fuse-module-$(KVERS)/lib/modules/$(KVERS)/kernel/fs/fuse/fuse.o
-
-binary-fuse: build install
- $(checkdir)
- $(checkroot)
- dh_movefiles
- find debian/ -type d | xargs rmdir --ignore-fail-on-non-empty -p
-
- dh_installdocs
- dh_installexamples
- dh_installchangelogs ChangeLog
- dh_link
- dh_strip
- dh_compress
- dh_fixperms
- dh_makeshlibs
- dh_installdeb
- dh_shlibdeps
- dh_gencontrol
- dh_md5sums
- dh_builddeb
-
-binary-modules: build-modules install-modules
- $(checkdir)
- $(checkroot)
-
- KSRC="$(KSRC)" KVERS="$(KVERS)" KDREV="$(KDREV)" sh -v debian/setvers.sh
- DH_OPTIONS="-pfuse-module-$(KVERS)"
-
- dh_installdocs $(DH_OPTIONS)
- dh_installexamples $(DH_OPTIONS)
- dh_installchangelogs ChangeLog $(DH_OPTIONS)
- dh_strip $(DH_OPTIONS)
- dh_compress $(DH_OPTIONS)
- dh_fixperms $(DH_OPTIONS)
- dh_md5sums $(DH_OPTIONS)
- dh_builddeb --destdir=$(MOD_DIR)/.. -pfuse-module-$(KVERS)
-
-binary-arch: binary-fuse
- $(checkdir)
- $(checkroot)
- set -e; KPATH=$(KPATH); \
- if [ "$$KPATH" ]; then \
- for k in `IFS=':'; echo $$KPATH`; do \
- test ! -d $$d || \
- $(MAKE) -f debian/rules KSRC="$$k" clean-modules binary-modules; \
- done; \
- fi
-
-binary: binary-arch
-
-kdist_clean: clean-modules
-
-kdist_image:
- $(checkdir)
- $(checkroot)
- for CONFLOC in ~/.kernel-pkg.conf /etc/kernel-pkg.conf; \
- do test -f $$CONFLOC && break; done; \
- $(MAKE) -f debian/rules \
- MOD_DIR=$(KSRC) CONFLOC=$$CONFLOC \
- clean-modules binary-modules
-
-kdist: kdist_image
- KSRC="$(KSRC)" KMAINT="$(KMAINT)" KEMAIL="$(KEMAIL)" \
- sh -v debian/genchanges.sh
-
-define checkdir
- test -f debian/rules -a -f debian/changelog
-endef
-
-define checkroot
- test root = "`whoami`"
-endef
-
-.PHONY: build clean binary-indep binary-arch binary install
+++ /dev/null
-#!/bin/sh
-
-# setvers.sh - extract version numbers from the changelog and kernel
-# source and build the control file and prerm script for the
-# pcmcia-modules package
-
-# KSRC is expected to be passed through the environment
-
-# adapted for fuse by Roland Bauerschmidt <rb@debian.org>
-
-set -e
-umask 022
-
-# define some sed scripts for extracting the upstream version number
-# and Debian revision number from a Debian changelog
-up_vers_sed='
- 1{
- s/^[^(]*(//
- s/)[^)]*$//
- /-[A-Za-z0-9.+]*$/{
- s///
- b enddeb
- }
- /-/q
- :enddeb
- /^[A-Za-z0-9.+:-]\{1,\}$/p
- q
- }'
-fuse_vers_sed='
- /AM_INIT_AUTOMAKE(fuse, \([.0-9]*\))/{
- s//\1/p
- q
- }'
-deb_rev_sed='
- 1{
- s/^[^(]*(//
- s/)[^)]*$//
- s/^.*-\([A-Za-z0-9.+]*\)$/\1/p
- q
- }'
-test "$KVERS" || \
- KVERS=`sed -ne '/UTS_RELEASE=/{
- s///
- p
- q
- }' config.mk`
-
-# extract the upstream version number and debian revision number
-UPVERS=`sed -ne "$fuse_vers_sed" configure.in`
-DEBREV=`sed -ne "$deb_rev_sed" debian/changelog`
-NEXTVERS=${UPVERS%.*}.`expr ${UPVERS##*.} + 1`
-
-# determine the version numbers for the kernel source
-# use a Debian changelog if it exists, otherwise use the kernel version
-# number determined by the PCMCIA configure script
-if [ "$KDREV" ]; then
- case "$KDREV" in
- *-*) KDEBREV=${KDREV##*-} ;;
- *) KDEBREV="" ;;
- esac
- KVERSDEB=${KDREV%-*}
-elif test -r "$KSRC/debian/changelog"; then
- KDEBREV=`sed -ne "$deb_rev_sed" "$KSRC/debian/changelog"`
- KVERSDEB=`sed -ne "$up_vers_sed" "$KSRC/debian/changelog"`
-else
- KDEBREV=""
- KVERSDEB="$KVERS"
-fi
-
-# remove the epoch number (if any)
-KVERSDEBNE="${KVERSDEB##*:}"
-
-# test whether we have successfully determined the version numbers
-test "$KVERS" -a "$UPVERS" -a "$DEBREV" || exit 1
-
-echo "$KVERS" > debian/KVERS
-if [ "${KVERS%%-*}" = "$KVERSDEBNE" ]; then
- MODVERS="$UPVERS-${DEBREV}${KDEBREV:+k$KDEBREV}"
-else
- MODVERS="$UPVERS-${DEBREV}+"`echo "$KVERSDEBNE" | tr - +`${KDEBREV:+"+$KDEBREV"}
-fi
-echo "$MODVERS" > debian/MODVERS
-
-# Generate a correct control file and prerm script for the modules package
-#for script in preinst postinst prerm config templates; do
-# sed -e 's/\${kvers}/'"$KVERS"'/g
-# s/\${kversdeb}/'"$KVERSDEB"'/g' \
-# debian/pcmcia-modules.$script.in > debian/tmp-modules/DEBIAN/$script
-# chmod +x debian/tmp-modules/DEBIAN/$script
-#done
-
-cat debian/source.control > debian/control.tmp
-filter='s/\${kvers}/'"$KVERS"'/g
- s/\${kversdeb}/'"$KVERSDEB${KDEBREV:+-$KDEBREV}"'/g'
-if ! [ "${KVERS%%-*}" = "$KVERSDEBNE" -a "$KDEBREV" ]; then
- filter="$filter"'
- s/Depends: kernel-image[^)]*),/Depends:/'
-fi
-sed -e "$filter" debian/fuse-module.control | \
- tee -a debian/control >> debian/control.tmp
-
-mkdir -p debian/fuse-module-$KVERS/DEBIAN
-dpkg-gencontrol -isp -v"$MODVERS" \
- -Vcurvers="$UPVERS" -Vnextvers="$NEXTVERS" \
- -p"fuse-module-$KVERS" -Pdebian/fuse-module-$KVERS \
- -cdebian/control.tmp
-
-for i in postinst prerm; do
- sed -e "$filter" debian/fuse-module.$i > \
- debian/fuse-module-$KVERS.$i
-done
-
-exit 0
+++ /dev/null
-Source: fuse
-Priority: optional
-Maintainer: Roland Bauerschmidt <rb@debian.org>
-Build-Depends: debhelper (>> 3.0.0), automake, autoconf
-Standards-Version: 3.5.6.1
-
+++ /dev/null
-#!/usr/bin/perl
-
-use Fuse;
-use POSIX qw(ENOENT EISDIR EINVAL);
-
-my (%files) = (
- '.' => {
- type => 0040,
- mode => 0755,
- ctime => time()-1000
- },
- a => {
- cont => "File 'a'.\n",
- type => 0100,
- mode => 0755,
- ctime => time()-2000
- },
- b => {
- cont => "This is file 'b'.\n",
- type => 0100,
- mode => 0644,
- ctime => time()-1000
- },
-);
-
-sub filename_fixup {
- my ($file) = shift;
- $file =~ s,^/,,;
- $file = '.' unless length($file);
- return $file;
-}
-
-sub e_getattr {
- my ($file) = filename_fixup(shift);
- $file =~ s,^/,,;
- $file = '.' unless length($file);
- return -ENOENT() unless exists($files{$file});
- my ($size) = exists($files{$file}{cont}) ? length($files{$file}{cont}) : 0;
- my ($modes) = ($files{$file}{type}<<9) + $files{$file}{mode};
- my ($dev, $ino, $rdev, $blocks, $gid, $uid, $nlink, $blksize) = (0,0,0,1,0,0,1,1024);
- my ($atime, $ctime, $mtime);
- $atime = $ctime = $mtime = $files{$file}{ctime};
- # 2 possible types of return values:
- #return -ENOENT(); # or any other error you care to
- #print(join(",",($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)),"\n");
- return ($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks);
-}
-
-sub e_getdir {
- # return as many text filenames as you like, followed by the retval.
- print((scalar keys %files)."\n");
- return (keys %files),0;
-}
-
-sub e_open {
- # VFS sanity check; it keeps all the necessary state, not much to do here.
- my ($file) = filename_fixup(shift);
- print("open called\n");
- return -ENOENT() unless exists($files{$file});
- return -EISDIR() unless exists($files{$file}{cont});
- print("open ok\n");
- return 0;
-}
-
-sub e_read {
- # return an error numeric, or binary/text string. (note: 0 means EOF, "0" will
- # give a byte (ascii "0") to the reading program)
- my ($file) = filename_fixup(shift);
- my ($buf,$off) = @_;
- return -ENOENT() unless exists($files{$file});
- return -EINVAL() if $off > length($files{$file}{cont});
- return 0 if $off == length($files{$file}{cont});
- return substr($files{$file}{cont},$off,$buf);
-}
-
-sub e_statfs { return 255, 1, 1, 1, 1, 2 }
-
-# If you run the script directly, it will run fusermount, which will in turn
-# re-run this script. Hence the funky semantics.
-my ($mountpoint) = "";
-$mountpoint = shift(@ARGV) if @ARGV;
-Fuse::main(
- mountpoint=>$mountpoint,
- getattr=>\&e_getattr,
- getdir=>\&e_getdir,
- open=>\&e_open,
- statfs=>\&e_statfs,
- read=>\&e_read,
- #debug=>1, threaded=>0
-);
+++ /dev/null
-#!/usr/bin/perl
-
-use strict;
-use Fuse;
-use IO::File;
-use POSIX qw(ENOENT ENOSYS EEXIST EPERM O_RDONLY O_RDWR O_APPEND O_CREAT);
-use Fcntl qw(S_ISBLK S_ISCHR S_ISFIFO SEEK_SET);
-require 'syscall.ph'; # for SYS_mknod and SYS_lchown
-
-sub fixup { return "/tmp/fusetest" . shift }
-
-sub x_getattr {
- my ($file) = fixup(shift);
- my (@list) = lstat($file);
- return -$! unless @list;
- return @list;
-}
-
-sub x_getdir {
- my ($dirname) = fixup(shift);
- unless(opendir(DIRHANDLE,$dirname)) {
- return -ENOENT();
- }
- my (@files) = readdir(DIRHANDLE);
- closedir(DIRHANDLE);
- return (@files, 0);
-}
-
-sub x_open {
- my ($file) = fixup(shift);
- my ($mode) = shift;
- return -$! unless sysopen(FILE,$file,$mode);
- close(FILE);
- return 0;
-}
-
-sub x_read {
- my ($file,$bufsize,$off) = @_;
- my ($rv) = -ENOSYS();
- my ($handle) = new IO::File;
- return -ENOENT() unless -e ($file = fixup($file));
- my ($fsize) = -s $file;
- return -ENOSYS() unless open($handle,$file);
- if(seek($handle,$off,SEEK_SET)) {
- read($handle,$rv,$bufsize);
- }
- return $rv;
-}
-
-sub x_write {
- my ($file,$buf,$off) = @_;
- my ($rv);
- return -ENOENT() unless -e ($file = fixup($file));
- my ($fsize) = -s $file;
- return -ENOSYS() unless open(FILE,'+<',$file);
- if($rv = seek(FILE,$off,SEEK_SET)) {
- $rv = print(FILE $buf);
- }
- $rv = -ENOSYS() unless $rv;
- close(FILE);
- return length($buf);
-}
-
-sub err { return (-shift || -$!) }
-
-sub x_readlink { return readlink(fixup(shift) ); }
-sub x_unlink { return unlink(fixup(shift)) ? 0 : -$!; }
-sub x_rmdir { return err(rmdir(fixup(shift)) ); }
-
-sub x_symlink { print "symlink\n"; return symlink(shift,fixup(shift)) ? 0 : -$!; }
-
-sub x_rename {
- my ($old) = fixup(shift);
- my ($new) = fixup(shift);
- my ($err) = rename($old,$new) ? 0 : -ENOENT();
- return $err;
-}
-sub x_link { return link(fixup(shift),fixup(shift)) ? 0 : -$! }
-sub x_chown {
- my ($fn) = fixup(shift);
- print "nonexistent $fn\n" unless -e $fn;
- my ($uid,$gid) = @_;
- # perl's chown() does not chown symlinks, it chowns the symlink's
- # target. it fails when the link's target doesn't exist, because
- # the stat64() syscall fails.
- # this causes error messages when unpacking symlinks in tarballs.
- my ($err) = syscall(&SYS_lchown,$fn,$uid,$gid,$fn) ? -$! : 0;
- return $err;
-}
-sub x_chmod {
- my ($fn) = fixup(shift);
- my ($mode) = shift;
- my ($err) = chmod($mode,$fn) ? 0 : -$!;
- return $err;
-}
-sub x_truncate { return truncate(fixup(shift),shift) ? 0 : -$! ; }
-sub x_utime { return utime($_[1],$_[2],fixup($_[0])) ? 0:-$!; }
-
-sub x_mkdir { my ($name, $perm) = @_; return 0 if mkdir(fixup($name),$perm); return -$!; }
-sub x_rmdir { return 0 if rmdir fixup(shift); return -$!; }
-
-sub x_mknod {
- # since this is called for ALL files, not just devices, I'll do some checks
- # and possibly run the real mknod command.
- my ($file, $modes, $dev) = @_;
- $file = fixup($file);
- $! = 0;
- syscall(&SYS_mknod,$file,$modes,$dev);
- return -$!;
-}
-
-# kludge
-sub x_statfs {return 255,1000000,500000,1000000,500000,4096}
-my ($mountpoint) = "";
-$mountpoint = shift(@ARGV) if @ARGV;
-Fuse::main(
- mountpoint=>$mountpoint,
- getattr=>\&x_getattr,
- readlink=>\&x_readlink,
- getdir=>\&x_getdir,
- mknod=>\&x_mknod,
- mkdir=>\&x_mkdir,
- unlink=>\&x_unlink,
- rmdir=>\&x_rmdir,
- symlink=>\&x_symlink,
- rename=>\&x_rename,
- link=>\&x_link,
- chmod=>\&x_chmod,
- chown=>\&x_chown,
- truncate=>\&x_truncate,
- utime=>\&x_utime,
- open=>\&x_open,
- read=>\&x_read,
- write=>\&x_write,
- statfs=>\&x_statfs,
-);
+++ /dev/null
-#!/usr/bin/perl
-
-use strict;
-use Net::SSH 'sshopen2';
-use IPC::Open2;
-use Fuse;
-use Data::Dumper;
-
-my ($host, $dir, $mount) = @ARGV;
-if(!defined($mount)) {
- $mount = $dir;
- if($host =~ /^(.*):(.*)$/) {
- ($host,$dir) = ($1,$2);
- } else {
- die "usage: $0 user\@host remotedir mountpoint\n".
- "or : $0 user\@host:remotedir mountpoint\n";
- }
-}
-
-`umount $mount` unless -d $mount;
-die "mountpoint $mount isn't a directory!\n" unless -d $mount;
-
-my (%args) = (mountpoint => $mount);
-
-map { my ($str) = $_; $args{$str} = sub { netlink($str,@_) } }
- qw(getattr getdir open read write readlink unlink rmdir
- symlink rename link chown chmod truncate utime mkdir
- rmdir mknod statfs);
-
-sub connect_remote {
- sshopen2($host, *READER, *WRITER, "./rmount_remote.pl $dir")
- or die "ssh: $!\n";
- select WRITER;
- $| = 1;
- select STDOUT;
-}
-
-$SIG{CHLD} = sub {
- use POSIX ":sys_wait_h";
- my $kid;
- do {
- $kid = waitpid(-1,WNOHANG);
- } until $kid < 1;
-};
-
-connect_remote;
-
-sub netlink {
- my ($str) = Dumper(\@_)."\n";
- $str = sprintf("%08i\n%s",length($str),$str);
- while(1) { # retry as necessary
- my ($sig) = $SIG{ALRM};
- my ($VAR1);
- $VAR1 = undef;
- eval {
- $SIG{ALRM} = sub { die "timeout\n" };
- alarm 10;
- print WRITER $str;
- my ($len, $data);
- if(read(READER,$len,9) == 9) {
- read(READER,$data,$len-length($data),length($data))
- while(length($data) < $len);
- eval $data;
- }
- };
- alarm 0;
- $SIG{ALRM} = $sig;
- if(defined $VAR1) {
- return wantarray ? @{$VAR1} : $$VAR1[0];
- }
- print STDERR "failed to send command; reconnecting ssh\n";
- close(READER);
- close(WRITER);
- connect_remote();
- }
-}
-
-Fuse::main(%args);
-
-netlink("bye");
-close(READER);
-close(WRITER);
+++ /dev/null
-#!/usr/bin/perl
-
-use strict;
-use IO::File;
-use POSIX qw(ENOENT ENOSYS EEXIST EPERM O_RDONLY O_RDWR O_APPEND O_CREAT);
-use Fcntl qw(S_ISBLK S_ISCHR S_ISFIFO SEEK_SET);
-use Data::Dumper;
-require 'syscall.ph'; # for SYS_mknod and SYS_lchown
-
-my ($rootdir) = @ARGV;
-
-# strip leading and trailing slashes
-$rootdir = $1 if($rootdir =~ /^\/?(.*)\/?$/);
-
-sub fixup { return "/$rootdir" . shift }
-
-sub x_getattr {
- my ($file) = fixup(shift);
- my (@list) = lstat($file);
- return -$! unless @list;
- return @list;
-}
-
-sub x_getdir {
- my ($dirname) = fixup(shift);
- unless(opendir(DIRHANDLE,$dirname)) {
- return -ENOENT();
- }
- my (@files) = readdir(DIRHANDLE);
- closedir(DIRHANDLE);
- return (@files, 0);
-}
-
-sub x_open {
- my ($file) = fixup(shift);
- my ($mode) = shift;
- return -$! unless sysopen(FILE,$file,$mode);
- close(FILE);
- return 0;
-}
-
-sub x_read {
- my ($file,$bufsize,$off) = @_;
- my ($rv) = -ENOSYS();
- my ($handle) = new IO::File;
- return -ENOENT() unless -e ($file = fixup($file));
- my ($fsize) = -s $file;
- return -ENOSYS() unless open($handle,$file);
- if(seek($handle,$off,SEEK_SET)) {
- read($handle,$rv,$bufsize);
- }
- return $rv;
-}
-
-sub x_write {
- my ($file,$buf,$off) = @_;
- my ($rv);
- return -ENOENT() unless -e ($file = fixup($file));
- my ($fsize) = -s $file;
- return -ENOSYS() unless open(FILE,'+<',$file);
- if($rv = seek(FILE,$off,SEEK_SET)) {
- $rv = print(FILE $buf);
- }
- $rv = -ENOSYS() unless $rv;
- close(FILE);
- return length($buf);
-}
-
-sub err { return (-shift || -$!) }
-
-sub x_readlink { return readlink(fixup(shift) ); }
-sub x_unlink { return unlink(fixup(shift)) ? 0 : -$!; }
-sub x_rmdir { return err(rmdir(fixup(shift)) ); }
-
-sub x_symlink { print "symlink\n"; return symlink(shift,fixup(shift)) ? 0 : -$!; }
-
-sub x_rename {
- my ($old) = fixup(shift);
- my ($new) = fixup(shift);
- my ($err) = rename($old,$new) ? 0 : -ENOENT();
- return $err;
-}
-sub x_link { return link(fixup(shift),fixup(shift)) ? 0 : -$! }
-sub x_chown {
- my ($fn) = fixup(shift);
- print "nonexistent $fn\n" unless -e $fn;
- my ($uid,$gid) = @_;
- # perl's chown() does not chown symlinks, it chowns the symlink's
- # target. it fails when the link's target doesn't exist, because
- # the stat64() syscall fails.
- # this causes error messages when unpacking symlinks in tarballs.
- my ($err) = syscall(&SYS_lchown,$fn,$uid,$gid,$fn) ? -$! : 0;
- return $err;
-}
-sub x_chmod {
- my ($fn) = fixup(shift);
- my ($mode) = shift;
- my ($err) = chmod($mode,$fn) ? 0 : -$!;
- return $err;
-}
-sub x_truncate { return truncate(fixup(shift),shift) ? 0 : -$! ; }
-sub x_utime { return utime($_[1],$_[2],fixup($_[0])) ? 0:-$!; }
-
-sub x_mkdir { my ($name, $perm) = @_; return 0 if mkdir(fixup($name),$perm); return -$!; }
-sub x_rmdir { return 0 if rmdir fixup(shift); return -$!; }
-
-sub x_mknod {
- # since this is called for ALL files, not just devices, I'll do some checks
- # and possibly run the real mknod command.
- my ($file, $modes, $dev) = @_;
- $file = fixup($file);
- $! = 0;
- syscall(&SYS_mknod,$file,$modes,$dev);
- return -$!;
-}
-
-# kludge
-sub x_statfs {return 255,1000000,500000,1000000,500000,4096}
-
-$| = 1;
-my ($len);
-while(read(STDIN,$len,9) == 9) {
- chomp $len;
- my ($data,$VAR1,@args);
- eval {
- $SIG{ALRM} = sub { die "timeout\n"};
- $data = "";
- alarm 5;
- read(STDIN,$data,$len-length($data),length($data))
- while(length($data) < $len);
- alarm 0;
- };
- die $@ if $@;
- eval $data;
- @args = @{$VAR1};
- my $cmd = shift(@args);
- exit 0 if $cmd eq "bye";
- die "cannot find command $cmd\n" unless exists($main::{"x_$cmd"});
- @args = $main::{"x_$cmd"}(@args);
- $cmd = Dumper(\@args)."\n";
- $cmd = sprintf("%08i\n%s",length($cmd),$cmd);
- print $cmd;
-}
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 4;
-chdir($_point);
-system("echo frog >file");
-ok(chmod(0644,"file"),"set unexecutable");
-ok(!-x "file","unexecutable");
-ok(chmod(0755,"file"),"set executable");
-ok(-x "file","executable");
-unlink("file");
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 4;
-my (@stat);
-chdir($_point);
-system("echo frog >file");
-ok(chown(0,0,"file"),"set 0,0");
-@stat = stat("file");
-ok($stat[4] == 0 && $stat[5] == 0,"0,0");
-ok(chown(1,1,"file"),"set 1,1");
-@stat = stat("file");
-ok($stat[4] == 1 && $stat[5] == 1,"1,1");
-unlink("file");
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-use Data::Dumper;
-plan tests => 28;
-my ($a, $b) = ("$_real/wibble","$_point/wibble");
-`touch $b`;
-is(-A "$a", -A "$b", '-A'); # 1
-is(-B "$a", -B "$b", '-B'); # 2
-is(-C "$a", -C "$b", '-C'); # 3
-is(-M "$a", -M "$b", '-M'); # 4
-is(-O "$a", -O "$b", '-O'); # 5
-is(-R "$a", -R "$b", '-R'); # 6
-is(-S "$a", -S "$b", '-S'); # 7
-is(-T "$a", -T "$b", '-T'); # 8
-is(-W "$a", -W "$b", '-W'); # 9
-is(-X "$a", -X "$b", '-X'); # 10
-is(-b "$a", -b "$b", '-b'); # 11
-is(-c "$a", -c "$b", '-c'); # 12
-is(-d "$a", -d "$b", '-d'); # 13
-is(-e "$a", -e "$b", '-e'); # 14
-is(-f "$a", -f "$b", '-f'); # 15
-is(-g "$a", -g "$b", '-g'); # 16
-is(-k "$a", -k "$b", '-k'); # 17
-is(-l "$a", -l "$b", '-l'); # 18
-is(-o "$a", -o "$b", '-o'); # 19
-is(-p "$a", -p "$b", '-p'); # 20
-is(-r "$a", -r "$b", '-r'); # 21
-is(-s "$a", -s "$b", '-s'); # 22
-is(-t "$a", -t "$b", '-t'); # 23
-is(-u "$a", -u "$b", '-u'); # 24
-is(-w "$a", -w "$b", '-w'); # 25
-is(-x "$a", -x "$b", '-x'); # 26
-is(-z "$a", -z "$b", '-z'); # 27
-my (@astat, @bstat);
-@astat = stat("$a");
-@bstat = stat("$b");
-# dev and inode can legally change
-shift(@astat); shift(@astat);
-shift(@bstat); shift(@bstat);
-is(join(" ",@astat),join(" ",@bstat),"stat()");
-`rm -f $a`;
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-my (@names) = qw(abc def ghi jkl mno pqr stu jlk sfdaljk sdfakjlsdfa kjldsf kjl;sdf akjl;asdf klj;asdf lkjsdflkjsdfkjlsdfakjsdfakjlsadfkjl;asdfklj;asdfkjl;asdfklj;asdfkjl;asdfkjlasdflkj;sadf);
-@names = sort(@names);
-plan tests => 2 * scalar @names;
-chdir($_real);
-
-# create entries
-map { system("touch \"$_\"") } @names;
-
-# make sure they exist in real dir
-opendir(REAL,$_real);
-my (@ents) = readdir(REAL);
-closedir(REAL);
-@ents = sort(@ents);
-map {
- shift(@ents) while($ents[0] eq '.' || $ents[0] eq '..');
- is(shift(@ents),$_,"ent $_")
-} @names;
-
-# make sure they exist in fuse dir
-opendir(POINT,$_point);
-@ents = readdir(POINT);
-closedir(POINT);
-@ents = sort(@ents);
-map {
- shift(@ents) while($ents[0] eq '.' || $ents[0] eq '..');
- is(shift(@ents),$_,"ent $_")
-} @names;
-
-# remove them
-map { unlink } @names;
+++ /dev/null
-#!/usr/bin/perl
-package test::helper;
-use strict;
-use Exporter;
-our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-@ISA = "Exporter";
-@EXPORT_OK = qw($_loop $_point $_pidfile $_real);
-our($_loop, $_point, $_pidfile, $_real) = ("examples/loopback.pl","/mnt","test/s/mounted.pid","/tmp/fusetest");
-if($0 !~ qr|s/u?mount\.t$|) {
- my ($reject) = 1;
- if(-f $_pidfile) {
- unless(system("ps `cat $_pidfile` | grep \"$_loop $_point\" >/dev/null")>>8) {
- if(`mount | grep "on $_point"`) {
- $reject = 0;
- } else {
- system("kill `cat $_pidfile`");
- }
- }
- }
- $reject = 1 if (system("ls $_point >&/dev/null") >> 8);
- die "not properly mounted\n" if $reject;
-}
-1;
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 8;
-chdir($_point);
-system("echo hippity >womble");
-ok(-f "womble","exists");
-ok(!-f "rabbit","target file doesn't exist");
-is(-s "womble",8,"right size");
-ok(link("womble","rabbit"),"link");
-ok(-f "womble","old file exists");
-ok(-f "rabbit","target file exists");
-is(-s "womble",8,"right size");
-is(-s "rabbit",8,"right size");
-unlink("womble");
-unlink("rabbit");
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 3;
-chdir($_point);
-ok(mkdir("dir"),"mkdir");
-ok(-d "dir","dir exists");
-chdir($_real);
-ok(-d "dir","dir really exists");
-chdir($_point);
-rmdir("dir");
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 24;
-my (@stat);
-chdir($_point);
-ok(!(system("touch reg" )>>8),"create normal file");
-ok(!(system("mknod chr c 2 3")>>8),"create chrdev");
-ok(!(system("mknod blk b 2 3")>>8),"create blkdev");
-ok(!(system("mknod fifo p" )>>8),"create fifo");
-chdir($_real);
-ok(-e "reg" ,"normal file exists");
-ok(-e "chr" ,"chrdev exists");
-ok(-e "blk" ,"blkdev exists");
-ok(-e "fifo","fifo exists");
-ok(-f "reg" ,"normal file is normal file");
-ok(-c "chr" ,"chrdev is chrdev");
-ok(-b "blk" ,"blkdev is blkdev");
-ok(-p "fifo","fifo is fifo");
-@stat = stat("chr");
-is($stat[6],3+(2<<8),"chrdev has right major,minor");
-@stat = stat("blk");
-is($stat[6],3+(2<<8),"blkdev has right major,minor");
-chdir($_point);
-ok(-e "reg" ,"normal file exists");
-ok(-e "chr" ,"chrdev exists");
-ok(-e "blk" ,"blkdev exists");
-ok(-e "fifo","fifo exists");
-ok(-f "reg" ,"normal file is normal file");
-ok(-c "chr" ,"chrdev is chrdev");
-ok(-b "blk" ,"blkdev is blkdev");
-ok(-p "fifo","fifo is fifo");
-@stat = stat("chr");
-is($stat[6],3+(2<<8),"chrdev has right major,minor");
-@stat = stat("blk");
-is($stat[6],3+(2<<8),"blkdev has right major,minor");
-map { unlink } qw(reg chr blk fifo);
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 1;
-chdir($_real);
-system("echo frog >file");
-chdir($_point);
-ok(open(FILE,"file"),"open");
-close(FILE);
-unlink("file");
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 3;
-chdir($_real);
-system("echo frog >file");
-chdir($_point);
-ok(open(FILE,"file"),"open");
-my ($data) = <FILE>;
-close(FILE);
-is(length($data),5,"right amount read");
-is($data,"frog\n","right data read");
-unlink("file");
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_point $_real);
-use Test::More;
-plan tests => 4;
-chdir($_real);
-ok(symlink("abc","def"),"OS supports symlinks");
-is(readlink("def"),"abc","OS supports symlinks");
-chdir($_point);
-ok(-l "def","symlink exists");
-is(readlink("def"),"abc","readlink");
-unlink("def");
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 5;
-chdir($_point);
-system("echo hippity >frog");
-ok(-f "frog","exists");
-ok(!-f "toad","target file doesn't exist");
-ok(rename("frog","toad"),"rename");
-ok(!-f "frog","old file doesn't exist");
-ok(-f "toad","target file exists");
-unlink("toad");
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 5;
-chdir($_real);
-ok(mkdir("dir"),"mkdir");
-ok(-d "dir","dir really exists");
-chdir($_point);
-ok(-d "dir","dir exists");
-rmdir("dir");
-ok(! -d "dir","dir removed");
-chdir($_real);
-ok(! -d "dir","dir really removed");
+++ /dev/null
-#!/usr/bin/perl -w
-use test::helper qw($_point $_loop $_real $_pidfile);
-use strict;
-use Test::More tests => 3;
-ok(!(scalar grep(/ on $_point /,`cat /proc/mounts`)),"already mounted");
-ok(-f $_loop,"loopback exists");
-
-if(!fork()) {
- #close(STDIN);
- close(STDOUT);
- close(STDERR);
- `echo $$ >test/s/mounted.pid`;
- exec("perl $_loop $_point");
- exit(1);
-}
-select(undef, undef, undef, 0.5);
-my ($success) = `cat /proc/mounts` =~ / $_point /;
-ok($success,"mount succeeded");
-system("rm -rf $_real");
-unless($success) {
- kill('INT',`cat $_pidfile`);
- unlink($_pidfile);
-} else {
- mkdir($_real);
-}
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_point $_real $_pidfile);
-use strict;
-use Test::More tests => 1;
-system("umount $_point");
-ok(1,"unmount");
-system("rm -rf $_real $_pidfile");
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-require 'syscall.ph'; # for SYS_statfs
-plan tests => 7;
-my ($statfs_data) = " " x 10;
-my ($tmp) = $_point;
-ok(!syscall(&SYS_statfs,$tmp,$statfs_data),"statfs");
-# FIXME: this is soooooo linux-centric. perhaps parse the output of /bin/df?
-my @list = unpack("LSSL8",$statfs_data);
-shift(@list);
-is(shift(@list),4096,"block size");
-shift(@list);
-is(shift(@list),1000000,"blocks");
-is(shift(@list),500000,"blocks free");
-shift(@list);
-is(shift(@list),1000000,"files");
-is(shift(@list),500000,"files free");
-shift(@list);
-shift(@list);
-is(shift(@list),255,"namelen");
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_point $_real);
-use Test::More;
-plan tests => 6;
-chdir($_point);
-ok(symlink("abc","def"),"symlink created");
-ok(-l "def","symlink exists");
-is(readlink("def"),"abc","it worked");
-chdir($_real);
-ok(-l "def","symlink really exists");
-is(readlink("def"),"abc","really worked");
-unlink("def");
-
-# bug: doing a 'cp -a' on a directory which contains a symlink
-# reports an error
-mkdir("dira");
-system("cd dira; touch filea; ln -s filea fileb");
-is(system("cp -a dira dirb")>>8,0,"cp -a");
-system("rm -rf dira dirb");
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 1;
-ok(1);
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 5;
-chdir($_point);
-system("echo hippity >womble");
-ok(-f "womble","exists");
-is(-s "womble",8,"right size");
-ok(truncate("womble",4),"truncate");
-ok(-f "womble","file exists");
-is(-s "womble",4,"right size");
-unlink("womble");
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 4;
-chdir($_point);
-system("touch file");
-ok(-f "file","file exists");
-chdir($_real);
-ok(-f "file","file really exists");
-chdir($_point);
-unlink("file");
-ok(! -f "file","file unlinked");
-chdir($_real);
-ok(! -f "file","file really unlinked");
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 3;
-my (@stat);
-chdir($_real);
-system("echo frog >file");
-chdir($_point);
-ok(utime(1,2,"file"),"set utime");
-@stat = stat("file");
-is($stat[8],1,"atime");
-is($stat[9],2,"mtime");
-unlink("file");
+++ /dev/null
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 15;
-my ($data);
-chdir($_point);
-undef $/; # slurp it all
-# create file
-system("echo frogbing >writefile");
-
-# fetch contents of file
-ok(open(FILE,"writefile"),"open");
-$data = <FILE>;
-close(FILE);
-is(length($data),9,"right amount read");
-is($data,"frogbing\n","right data read");
-
-# overwrite part
-ok(open(FILE,'+<',"writefile"),"open");
-ok(seek(FILE,2,0),"seek");
-ok(print(FILE "ib"),"print");
-close(FILE);
-
-# fetch contents of file
-ok(open(FILE,"writefile"),"open");
-$data = <FILE>;
-close(FILE);
-is(length($data),9,"right amount read");
-is($data,"fribbing\n","right data read");
-
-# overwrite part, append some
-ok(open(FILE,'+<',"writefile"),"open");
-ok(seek(FILE,7,0),"seek");
-ok(print(FILE "gle"),"print");
-close(FILE);
-
-# fetch contents of file
-ok(open(FILE,"writefile"),"open");
-$data = <FILE>;
-close(FILE);
-is(length($data),10,"right amount read");
-is($data,"fribbingle","right data read");
-
-# kill file
-unlink("writefile");
projects / qemu-gpiodev / libfuse.git / commitdiff