# Xorg auto configuration.
#if [ ! -s /etc/X11/xorg.conf -a -x /usr/bin/Xorg ]; then
	echo "Configuring Xorg..."
	# $HOME is not yet set.
	HOME=/root
	Xorg -configure
	mv -f /root/xorg.conf.new /etc/X11/xorg.conf
	sed -i 's|/usr/bin/Xvesa|/usr/bin/Xorg|' /etc/slim.conf
	sed -i s/"^xserver_arguments"/'\#xserver_arguments'/ /etc/slim.conf
	tazx config-xorg
#fi

mkdir /home/chroot
# You can mount a device to /home/chroot
# with mountbox or mount
tazpkg get-install busybox --root="/home/chroot"
echo "No" | tazpkg get-install bash --root="/home/chroot"
tazpkg get-install slitaz-toolchain --root="/home/chroot"
tazpkg get-install tazwok --root="/home/chroot"
tazpkg get-install tazpkg --root="/home/chroot"
tazpkg get-install lzma --root="/home/chroot"
mkdir /home/chroot/home/slitaz

chmod +x script_file

cat > /home/chroot/chroot_script.sh << "EOF"<br />#!/bin/sh
/bin/sh --login
for pkg in $(cat /var/log/tazpkg.log | grep -v Removed | sed 's/\(.*\)\(- Installed - \)\(.*\)\( (.*\)/\3/'); do
	echo "y" | tazpkg remove $pkg
done
rm /var/log/tazpkg.log

EOF
chmod +x "/home/chroot/chroot_script.sh"

cat > /usr/bin/tazchroot << "EOF"<br />#!/bin/sh
cat /etc/resolv.conf > /home/chroot/etc/resolv.conf
if [ ! -d "/home/chroot/proc/1" ]; then
	echo "Mounting virtual filesystems..."
	mount -t proc proc /home/chroot/proc
	mount -t sysfs sysfs /home/chroot/sys
	mount -t devpts devpts /home/chroot/dev/pts
	mount -t tmpfs shm /home/chroot/dev/shm
	mount /home/slitaz /home/chroot/home/slitaz
	chroot /home/chroot ./chroot_script.sh
	until [ "$ps" = "2" ]; do
		echo "Waiting for the end of all other chroot process..."
		ps=$(ps | grep `basename $0` | grep -v grep | grep -v basename | wc -l)
		sleep 1
	done
	umount /home/chroot/home/slitaz
	umount /home/chroot/dev/shm
	umount /home/chroot/dev/pts
	umount /home/chroot/sys
	umount /home/chroot/proc
else
	echo "The chroot is already mounted"
fi
EOF
chmod +x /usr/bin/tachroot

su
chmod +x reninc.pl

#!/usr/bin/perl
#reninc.pl - incremental renaming
#check for help
chomp (my $workdir = `pwd`);
chomp (my $scriptname=`basename "$0"`);
scalar @ARGV > 0 || die <<EOT1;
Usage : $scriptname [-options] directory

Options :
    -p prefix
    -s suffix
    -d starting_base_number
    -n length of number part (1: one number, 2: two numbers, etc)

Parameters :
    directory : complete path of directory to process, or "here" for
                working directory
                ($workdir)
EOT1
#check arguments
my ($pref, $suff, $start, $num_length) = ('', '', 1, 1);
while (scalar @ARGV > 0)
{
	my $arg = shift @ARGV;
	if ($arg eq "-p") { $pref = shift @ARGV; next; }
	elsif ($arg eq "-s") { $suff = shift @ARGV; next; }
	elsif ($arg eq "-d") { $start = shift @ARGV; next; }
	elsif ($arg eq "-n") { $num_length = shift @ARGV; next; }
	elsif (-d $arg) { $dir = shift @ARGV; next; }
	elsif ($arg eq "here") { $dir = $workdir; next; }
}
#main routine
chdir $dir;
foreach (<*>)
{
	my $counter = $start;
	my ($purename, $ext) = (m/^(.+?)\.([^\.]+)$/);
	for (my $n = 1; $n <= $num_length; $n++)<br />	{
		last if ($num_length eq 0);
		if ($start < 10**$n) { $counter = '0'.$counter; }
	}
	$start++;
	print "Rename \"$_\" in $pref$counter$suff.$ext\n";
	rename $_, $pref.$counter.$suff.'.'.$ext;
}