<?php
/*
util.inc
part of FreeNAS (http://www.freenas.org)
Copyright (C) 2005-2006 Olivier Cochard <olivier@freenas.org>.
All rights reserved.
Based on m0n0wall (http://m0n0.ch/wall)
Copyright (C) 2003-2006 Manuel Kasper <mk@neon1.net>.
All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:
1. Redistributions of source code must retain the above copyright notice,
this list of conditions and the following disclaimer.
2. Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY,
OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
POSSIBILITY OF SUCH DAMAGE.
*/
/* kill a process by pid file */
function killbypid($pidfile) {
sigkillbypid($pidfile, "TERM");
unlink_if_exists($pidfile);
}
/* sigkill a process by pid file */
function sigkillbypid($pidfile, $sig) {
if (file_exists($pidfile)) {
mwexec("/bin/kill -s $sig `/bin/cat " . $pidfile . "`");
}
}
/* kill a process by name */
function killbyname($procname) {
return mwexec("/usr/bin/killall " . escapeshellarg($procname));
}
/* Force kill a process by name */
function forcekillbyname($procname) {
return mwexec("/usr/bin/killall -9 " . escapeshellarg($procname));
}
/* return the subnet address given a host address and a subnet bit count */
function gen_subnet($ipaddr, $bits) {
if (!is_ipaddr($ipaddr) || !is_numeric($bits))
return "";
return long2ip(ip2long($ipaddr) & gen_subnet_mask_long($bits));
}
/* return the highest (broadcast) address in the subnet given a host address and a subnet bit count */
function gen_subnet_max($ipaddr, $bits) {
if (!is_ipaddr($ipaddr) || !is_numeric($bits))
return "";
return long2ip(ip2long($ipaddr) | ~gen_subnet_mask_long($bits));
}
/* returns a subnet mask (long given a bit count) */
function gen_subnet_mask_long($bits) {
$sm = 0;
for ($i = 0; $i < $bits; $i++) {
$sm >>= 1;
$sm |= 0x80000000;
}
return $sm;
}
/* same as above but returns a string */
function gen_subnet_mask($bits) {
return long2ip(gen_subnet_mask_long($bits));
}
function is_numericint($arg) {
return (preg_match("/[^0-9]/", $arg) ? false : true);
}
/* returns true if $ipaddr is a valid dotted IPv4 address */
function is_ipaddr($ipaddr) {
if (!is_string($ipaddr))
return false;
$ip_long = ip2long($ipaddr);
$ip_reverse = long2ip($ip_long);
if ($ipaddr == $ip_reverse)
return true;
else
return false;
}
/* returns true if $ipaddr is a valid dotted IPv4 address or an alias thereof */
function is_ipaddroralias($ipaddr) {
global $aliastable;
if (isset($aliastable[$ipaddr]) && is_ipaddr($aliastable[$ipaddr]))
return true;
else
return is_ipaddr($ipaddr);
}
/* returns true if $ipaddr is a valid dotted IPv4 address or any alias */
function is_ipaddroranyalias($ipaddr) {
global $aliastable;
if (isset($aliastable[$ipaddr]))
return true;
else
return is_ipaddr($ipaddr);
}
/* returns true if $subnet is a valid subnet in CIDR format */
function is_subnet($subnet) {
if (!is_string($subnet))
return false;
list($hp,$np) = explode('/', $subnet);
if (!is_ipaddr($hp))
return false;
if (!is_numeric($np) || ($np < 1) || ($np > 32))
return false;
return true;
}
/* returns true if $subnet is a valid subnet in CIDR format or an alias thereof */
function is_subnetoralias($subnet) {
global $aliastable;
if (isset($aliastable[$subnet]) && is_subnet($aliastable[$subnet]))
return true;
else
return is_subnet($subnet);
}
/* returns true if $hostname is a valid hostname */
function is_hostname($hostname) {
if (!is_string($hostname))
return false;
if (preg_match("/^[a-z0-9\-]+$/i", $hostname))
return true;
else
return false;
}
/* returns true if $desc is a valid description (alphanum and space)*/
function is_validdesc($desc)
{
if (!is_string($desc))
return false;
if (preg_match("/^[A-Za-z0-9]([A-Za-z0-9\s]*[A-Za-z0-9])*$/", $desc))
return true;
else
return false;
}
/* returns true if $login is a valid login name (alphanum,dot, _ , -)*/
function is_validlogin($login)
{
if (!is_string($login))
return false;
if (preg_match("/^[A-Za-z0-9]([A-Za-z0-9_\-\.\s]*[A-Za-z0-9])*$/", $login))
return true;
else
return false;
}
/* returns true if $login is a valid share name (alphanum,dot, _ , -)*/
function is_validsharename($sharename)
{
if (!is_string($sharename))
return false;
if (preg_match("/^[A-Za-z0-9]([A-Za-z0-9_\-\.\s]*[A-Za-z0-9])*$/", $sharename))
return true;
else
return false;
}
/* returns true if $domain is a valid domain name */
function is_domain($domain) {
if (!is_string($domain))
return false;
if (preg_match("/^([a-z0-9\-]+\.?)*$/i", $domain))
return true;
else
return false;
}
/* returns true if $uname is a valid DynDNS username */
function is_dyndns_username($uname) {
if (!is_string($uname))
return false;
if (preg_match("/[^a-z0-9\-.@_]/i", $uname))
return false;
else
return true;
}
/* returns true if $macaddr is a valid MAC address */
function is_macaddr($macaddr) {
if (!is_string($macaddr))
return false;
$maca = explode(":", $macaddr);
if (count($maca) != 6)
return false;
foreach ($maca as $macel) {
if (($macel === "") || (strlen($macel) > 2))
return false;
if (preg_match("/[^0-9a-f]/i", $macel))
return false;
}
return true;
}
/* returns true if $name is a valid name for an alias */
function is_validaliasname($name) {
if (!is_string($name))
return false;
if (!preg_match("/[^a-zA-Z0-9]/", $name))
return true;
else
return false;
}
/* returns true if $port is a valid TCP/UDP port */
function is_port($port) {
if (!is_numericint($port))
return false;
if (($port < 1) || ($port > 65535))
return false;
else
return true;
}
/* returns true if $mtu is a valid MTU size */
function is_mtu($mtu) {
if (!is_numericint($mtu))
return false;
if (($mtu < 100) || ($mtu > 9000))
return false;
else
return true;
}
function get_interface_list() {
global $g;
/* build interface list with netstat */
exec("/usr/bin/netstat -inW -f link", $linkinfo);
array_shift($linkinfo);
$iflist = array();
foreach ($linkinfo as $link) {
$alink = preg_split("/\s+/", $link);
$ifname = chop($alink[0]);
if (substr($ifname, -1) == "*")
$ifname = substr($ifname, 0, strlen($ifname) - 1);
/* FreeNAS add the plip interface to be excluded too */
if (!preg_match("/^(ppp|sl|gif|faith|lo|vlan|tun|plip)/", $ifname)) {
$iflist[$ifname] = array();
$iflist[$ifname]['mac'] = chop($alink[3]);
$iflist[$ifname]['up'] = false;
/* find out if the link on this interface is up */
unset($ifinfo);
exec("/sbin/ifconfig {$ifname}", $ifinfo);
foreach ($ifinfo as $ifil) {
if (preg_match("/status: (.*)$/", $ifil, $matches)) {
if ($matches[1] == "active")
$iflist[$ifname]['up'] = true;
break;
}
}
}
}
return $iflist;
}
function get_mounts_list()
{
// Return list of mounted disk
//example: Array
// [0] => Array
// (
// [mp] => /mnt/ad0s1
// [mdisk] => ad0s1
// )
global $g;
exec("/sbin/mount",$rawdata);
$mountlist = array();
$i=0;
foreach ($rawdata as $line)
{
$aline = explode(" ", $line);
if ((chop($aline[0]) == "/dev/md0") || (chop($aline[0]) == "devfs") || (chop($aline[0]) == "/dev/fd0"))
continue;
$mountlist[$i]['mp']=chop($aline[2]);
// Get the complete name /dev/devicename
$complete=explode("/",chop($aline[0]));
$devname=$complete[2];
// Test if it's a gvinum device
if (strcmp($devname,"gvinum") == 0)
$devname=$complete[3];
$mountlist[$i]['mdisk']=$devname;
$i++;
}
return $mountlist;
}
function get_sraid_disks_list()
{
/* Recupere la liste des disques RAID Software*/
global $g;
/* Return list of Software RAID disk */
//[volumename] => Array
// (
// [type] => Software RAID
// [desc] => UP
// [size] => 6149 MB
// )
/* on envoie la commande d'affichage de la liste des volumes*/
exec("/sbin/gvinum list",$rawdata);
foreach ($rawdata as $line)
{
/* Separe la ligne par les espace */
$aline = preg_split("/\s+/", $line);
/* Récupère la ligne commencant par 'V' */
if ($aline[0] != "V")
{
continue ;
}
$diskname = chop($aline[1]);
$disklist[$diskname]=array();
$disklist[$diskname]['type'] = "Software RAID";
$disklist[$diskname]['size'] = "$aline[7] $aline[8]" ;
$disklist[$diskname]['desc'] = $aline[3];
}
return $disklist;
}
function get_ata_disks_list()
{
/* Return list of ATA disk */
//[ad0] => Array
// (
// [type] => IDE
// [desc] => QUANTUM FIREBALL EX6.4A/A0A.0D00
// [size] => 6149MB
// )
global $g;
/* Recupere le dmesg */
exec("/sbin/dmesg",$rawdmesg);
$disklist = array();
/******* Getting IDE disk informations *******/
exec("/sbin/atacontrol list",$rawdata);
foreach ($rawdata as $line)
{
/* Separe la ligne par les espace */
$aline = preg_split("/\s+/", $line);
/* Si ATA alors NEXT */
if ($aline[0] == "ATA")
{
continue ;
}
$diskname = chop($aline[2]);
/* Exlude CDROM (acdX) and Empty (no) */
if (!preg_match("/^(acd)/", $diskname ) & $diskname != "no")
{
$disklist[$diskname]=array();
$disklist[$diskname]['type'] = "IDE";
/* Match the description witch is include between < and > */
preg_match("/.*\<([^>]*)>.*/",$line,$match);
$disklist[$diskname]['desc'] = $match[1];
/* Looking for the disk size */
foreach ($rawdmesg as $dmesgline)
{
/* Take only the first dmesg line */
if (!$disklist[$diskname]['size'])
{
/* Separe la ligne par les espace */
$dmesgtab = explode(" ", $dmesgline);
$dmesgtab[0] = rtrim($dmesgtab[0],":");
if ($dmesgtab[0]!="" &&(strcasecmp($dmesgtab[0],$diskname) == 0))
$disklist[$diskname]['size'] = $dmesgtab[1];
}
}
}
}
return $disklist;
}
function get_scsi_disks_list()
{
/* Recupere la liste des disques SCSI */
//[ad0] => Array
// (
// [type] => IDE
// [desc] => QUANTUM FIREBALL EX6.4A/A0A.0D00
// [size] => 6149MB
// )
global $g;
/* Recupere le dmesg */
exec("/sbin/dmesg",$rawdmesg);
/* on envoie la commande d'affichage de la liste des disques*/
exec("/sbin/camcontrol devlist",$rawdata);
foreach ($rawdata as $line)
{
/* Get information include between parenthese: (pass0,da0) or (da0,pass0)*/
preg_match("/.*\(([^>]*)\).*/",$line,$match);
/* Sépare le resultat par la virgule */
$temp = preg_split("/,/", $match[1]);
// Check if diskname is the first (da0,pass0) or the second (pass0,da0) arguement
$diskname = $temp[1];
if ($diskname[0] == "p")
$diskname = $temp[0];
/* On exlus les lecteurs cd */
if (!preg_match("/^(cd)/", $diskname ))
{
$disklist[$diskname]=array();
$disklist[$diskname]['type'] = "SCSI";
/* Recupère la description: ce qu'il y a entre < et > */
preg_match("/.*\<([^>]*)>.*/",$line,$match);
$disklist[$diskname]['desc'] = $match[1];
/* Looking for the disk size */
foreach ($rawdmesg as $dmesgline)
{
/* Separe la ligne par les espace */
$dmesgtab = explode(" ", $dmesgline);
$dmesgtab[0] = rtrim($dmesgtab[0],":");
if ($dmesgtab[0]!="" &&(strcasecmp($dmesgtab[0],$diskname) == 0))
$disklist[$diskname]['size'] = $dmesgtab[1];
}
}
}
return $disklist;
}
function get_hraid_disks_list()
{
/* Recupere la liste des disques RAID */
$kerneldisks = explode(" ", trim(preg_replace("/kern.disks: /", "", exec("/sbin/sysctl kern.disks"))));
/* Recupere la liste des disques ATA et SCSI */
$diskdetected = array_merge(get_ata_disks_list(),get_scsi_disks_list());
/* Recupere le dmesg */
exec("/sbin/dmesg",$rawdmesg);
foreach ($kerneldisks as $diskname)
{
$allready=1;
// Check of this entry is IDE or SCSI (allready detected)
foreach ($diskdetected as $diskfoundk => $diskfoundv)
{
if (strcasecmp($diskfoundk,$diskname) == 0)
$allready=0;
}
if ($allready)
{
/* If not an IDE and SCSI disk */
$disklist[$diskname]=array();
$disklist[$diskname]['type'] = "RAID";
/* Looking for the disk size in the dmesg */
foreach ($rawdmesg as $dmesgline)
{
/* Separe la ligne par les espace */
$dmesgtab = explode(" ", $dmesgline);
$dmesgtab[0] = rtrim($dmesgtab[0],":");
// si la ligne commence par le nom du disque: attention il y a 2 lignes
if ($dmesgtab[0]!="" &&(strcasecmp($dmesgtab[0],$diskname) == 0))
{
// the first line as this example "aacd0: <RAID 5> on aac0"
if (strcasecmp(substr($dmesgtab[1], 0, 1),"<") == 0)
{
/* Match the description witch is include between < and > */
preg_match("/.*\<([^>]*)>.*/",$dmesgline,$match);
$disklist[$diskname]['desc'] = $match[1];
}
else
{
// si c'est la deuxieme ligne, elle ressemble a "aacd0: 138850MB (284365824 sectors)"
$disklist[$diskname]['size'] = $dmesgtab[1];
}
}
}
}
}
return $disklist;
}
function get_physical_disks_list()
{
/* Return list of ALL disk: physical, hardware RAID and Software RAID disk */
$disklist = array_merge(get_ata_disks_list(),get_scsi_disks_list(),get_hraid_disks_list());
return $disklist;
}
function get_all_disks_list()
{
/* Return list of ALL disk: physical, hardware RAID and Software RAID disk */
$disklist = array_merge(get_ata_disks_list(),get_scsi_disks_list(),get_hraid_disks_list(), get_sraid_disks_list());
return $disklist;
}
function get_disks_size($diskname)
{
/* Return size of the disk */
$disklist=get_physical_disks_list();
$disksize=0;
foreach ($disklist as $diskk => $diskv)
{
if (strcmp($diskk,$diskname)==0)
{
$disksize=$diskv['size'];
}
}
return $disksize;
}
function get_cdrom_list()
{
/* Return list of IDE AND SCSI CDROM */
// exemple: Array
// [acd0] => Array
// (
// [type] => IDE
// [desc] => TDK CDRW241040B/57S2
// )
global $g;
/* Recupere la liste des disques IDE */
exec("/sbin/atacontrol list",$rawdata);
/* Recupere le dmesg */
exec("/sbin/dmesg",$rawdmesg);
$disklist = array();
/* Variable $i utilisé pour l'index du tableau */
$i=0;
foreach ($rawdata as $line)
{
/* Separe la ligne par les espace */
$aline = preg_split("/\s+/", $line);
/* Si ATA alors NEXT */
if ($aline[0] == "ATA")
{
continue ;
}
$diskname = chop($aline[2]);
/* Exlude disk (adX) and Empty (no) */
if (!preg_match("/^(ad)/", $diskname ) & $diskname != "no")
{
$disklist[$diskname]=array();
// $disklist[$i]['name'] = chop($aline[2]);
$disklist[$diskname]['type'] = "IDE";
/* Match the description witch is include between < and > */
preg_match("/.*\<([^>]*)>.*/",$line,$match);
$disklist[$diskname]['desc'] = $match[1];
$i++;
}
}
/* Recupere la liste des disques SCSI */
/* Attention: on efface les variables precedement utilisees et initalise les tableaux */
unset($rawdata);
unset($dmesgtab);
reset($rawdmesg);
/* on envoie la commande d'affichage de la liste des disques*/
exec("/sbin/camcontrol devlist",$rawdata);
foreach ($rawdata as $line)
{
/* Get information include between parenthese: (pass0,da0) or (da0,pass0)*/
preg_match("/.*\(([^>]*)\).*/",$line,$match);
/* Sépare le resultat par la virgule */
$temp = preg_split("/,/", $match[1]);
// Check if diskname is the first (da0,pass0) or the second (pass0,da0) arguement
$diskname = $temp[1];
if ($diskname[0] == "p")
$diskname = $temp[0];
/* On exlus les lecteurs disque dur da */
if (!preg_match("/^(da)/", $diskname ))
{
$disklist[$diskname]=array();
$disklist[$diskname]['type'] = "SCSI";
/* Recupère la description: ce qu'il y a entre < et > */
preg_match("/.*\<([^>]*)>.*/",$line,$match);
$disklist[$diskname]['desc'] = $match[1];
$i++;
}
}
return $disklist;
}
/* wrapper for exec() */
function mwexec($command) {
global $g;
if ($g['debug']) {
if (!$_SERVER['REMOTE_ADDR'])
echo "mwexec(): $command\n";
passthru($command, $retval);
} else {
exec("$command > /dev/null 2>&1", $oarr, $retval);
}
return $retval;
}
/* wrapper for exec() in background */
function mwexec_bg($command) {
global $g;
if ($g['debug']) {
if (!$_SERVER['REMOTE_ADDR'])
echo "mwexec(): $command\n";
}
exec("nohup $command > /dev/null 2>&1 &");
}
/* unlink a file, if it exists */
function unlink_if_exists($fn) {
if (file_exists($fn))
unlink($fn);
}
/* make a global alias table (for faster lookups) */
function alias_make_table() {
global $config, $g, $aliastable;
$aliastable = array();
if (is_array($config['aliases']['alias'])) {
foreach ($config['aliases']['alias'] as $alias) {
if ($alias['name'])
$aliastable[$alias['name']] = $alias['address'];
}
}
}
/* check if an alias exists */
function is_alias($name) {
global $aliastable;
return isset($aliastable[$name]);
}
/* expand a host or network alias, if necessary */
function alias_expand($name) {
global $aliastable;
if (isset($aliastable[$name]))
return $aliastable[$name];
else if (is_ipaddr($name) || is_subnet($name))
return $name;
else
return null;
}
/* expand a host alias, if necessary */
function alias_expand_host($name) {
global $aliastable;
if (isset($aliastable[$name]) && is_ipaddr($aliastable[$name]))
return $aliastable[$name];
else if (is_ipaddr($name))
return $name;
else
return null;
}
/* expand a network alias, if necessary */
function alias_expand_net($name) {
global $aliastable;
if (isset($aliastable[$name]) && is_subnet($aliastable[$name]))
return $aliastable[$name];
else if (is_subnet($name))
return $name;
else
return null;
}
/* find out whether two subnets overlap */
function check_subnets_overlap($subnet1, $bits1, $subnet2, $bits2) {
if (!is_numeric($bits1))
$bits1 = 32;
if (!is_numeric($bits2))
$bits2 = 32;
if ($bits1 < $bits2)
$relbits = $bits1;
else
$relbits = $bits2;
$sn1 = gen_subnet_mask_long($relbits) & ip2long($subnet1);
$sn2 = gen_subnet_mask_long($relbits) & ip2long($subnet2);
if ($sn1 == $sn2)
return true;
else
return false;
}
/* compare two IP addresses */
function ipcmp($a, $b) {
if (ip2long($a) < ip2long($b))
return -1;
else if (ip2long($a) > ip2long($b))
return 1;
else
return 0;
}
/* return true if $addr is in $subnet, false if not */
function ip_in_subnet($addr,$subnet) {
list($ip, $mask) = explode('/', $subnet);
$mask = 0xffffffff << (32 - $mask);
return ((ip2long($addr) & $mask) == (ip2long($ip) & $mask));
}
/* verify (and remove) the digital signature on a file - returns 0 if OK */
function verify_digital_signature($fname) {
global $g;
return mwexec("/usr/local/bin/verifysig " .
escapeshellarg("{$g['etc_path']}/pubkey.pem") . " " .
escapeshellarg($fname));
}
/* obtain MAC address given an IP address by looking at the ARP table */
function arp_get_mac_by_ip($ip) {
exec("/usr/sbin/arp -n {$ip}", $arpoutput);
if ($arpoutput[0]) {
$arpi = explode(" ", $arpoutput[0]);
$macaddr = $arpi[3];
if (is_macaddr($macaddr))
return $macaddr;
else
return false;
}
return false;
}
/* Freenas Installation */
function freenas_install($src,$dst)
{
// Creating source directory
passthru("/bin/mkdir /mnt/src");
// Mount the source function is_cdrom must BE CREATED!!!!
if (is_cdrom($src))
{
echo "Mount CDROM:\n";
passthru("/sbin/mount_cd9660 /dev/$src /mnt/src");
}
else
{
echo "Mount disk:\n";
passthru("/sbin/mount -t ufs /dev/$src /mnt/src");
}
echo "Erasing primary partitions:\n";
passthru("/bin/dd if=/dev/zero of=/dev/$dst bs=1k count=20");
echo "Creation 1 booting primary parition:\n";
passthru("/sbin/fdisk -BI -b /boot/boot0 $dst");
/* echo "Installing bootloader:\n";
passthru("/usr/sbin/boot0cfg -B -b /boot/boot0 $dst"); */
echo "Erasing FreeBSD partition on the primary:\n";
passthru("/bin/dd if=/dev/zero of=/dev/" . escapeshellarg($dst) . "s1 bs=32k count=16");
echo "Creating FreeBSD partition:\n";
passthru("/sbin/bsdlabel -B -w -b /boot/boot " . escapeshellarg($dst) ."s1 auto");
echo "Modify partition information:\n";
/* Generation de la table des partitions dans un fichier temp */
passthru("/sbin/bsdlabel " . escapeshellarg($dst) ."s1 > label.tmp");
/* copie de ce fichier dans un tableau*/
$tableau = file("label.tmp");
// Ouverture du fichier en mode ajout
$handle = fopen("label.tmp", 'a');
while(list(,$val) = each($tableau))
{
// Si la ligne contient le mot "unused"
if (ereg ("unused",$val))
{
// On remplace c: par a:
$val = ereg_replace ("c:","a:", $val);
// On remplace unused par 4.2BSD
$val = ereg_replace ("unused","4.2BSD", $val);
// On ajoute cette ligne à la fin du fichier
fwrite($handle, $val);
}
}
// Fermeture du fichier
fclose($handle);
// On injecte la nouvelle table des paritions
passthru("/sbin/bsdlabel -R -B " . escapeshellarg($dst) ."s1 label.tmp");
echo "Creating filesystem:\n";
passthru("/sbin/newfs /dev/" . escapeshellarg($dst) . "s1");
echo "Creation temp mouting point:\n";
passthru("/bin/mkdir /mnt/src");
echo "Mount disk:\n";
passthru("/sbin/mount /dev/" . escapeshellarg($dst) . "s1 /mnt/dst");
echo "Installation:\n";
passthru("/bin/cp -pr /mnt/src/boot /mnt/dst");
passthru("/bin/cp /mnt/src/cf.gz /mnt/dst/mfsroot.gz");
if ($src == CDROM)
passthru("/bin/rm -f /mnt/dst/boot/cdloader");
passthru("mkdir /mnt/dst/conf");
passthru("/bin/cp /conf/config.xml /mnt/dst/conf/");
/* demontage des disques */
passthru("/sbin/umount /mnt/dst");
passthru("/sbin/umount /mnt/src");
passthru("/bin/rm -rf /mnt/src");
passthru("/bin/rm -rf /mnt/dst");
}
?>
