<?

//clear ouput buffer
        ob_clean();

//get exportable language info
        $res = sql_query("SELECT * FROM $langtable WHERE l_id=$en[id]");
        $src = sql_fetch_assoc($res);

//send download headers
        header("Content-Type: application/zip");
        header('Content-Disposition: attachment; filename="' . basename($src['l_file'],fileext($src['l_file'])).'zip' . '"');

//get all language files
        $cd = getcwd(); chdir('..'); $sects = get_language_files();
        
//get language definition section names
        $defs = array();
        foreach ($sects['english.lng'] as $value) {
                $d = read_language_file($value);
                $loc = explode('/',$value);
                $s = ($value == 'languages/english.lng' ? 'languages/'.$src['l_file'] : 'modules/'.$loc[1].'/'.$src['l_file']);
                foreach ($d as $key => $value)
                        $defs[$key] = array($s,$value);
                }
        unset($defs['']);

//prepare sections
        $d = unserialize($src['l_defs']);
        foreach ($d as $key => $value)
                $out[$defs[$key][0]][$key] = $value;

//create ZIP archive
        require_once('kernel/external/pclzip.lib.php');
        $d = uniqid('lang');
        $archive = new PclZip('temp/'.$d.'.zip');

//add files to archive
        mkdir('temp/'.$d);
        $file = 'temp/'.$d.'/'.$src['l_file'];
        unset($out['']);
        foreach ($out as $f => $data) {
                $ff = fopen($file,'w');
                foreach ($data as $key => $value)
                    if ($value != '') {
                        fwrite($ff,$key.'='.$value."\n");
                        }
                fclose($ff);
                $archive->add($file,
                              PCLZIP_OPT_ADD_PATH, dirname($f),
                              PCLZIP_OPT_REMOVE_PATH, 'temp/'.$d);
                }
        unlink($file);
        rmdir('temp/'.$d);
        
//output file
        readfile('temp/'.$d.'.zip');
        unlink('temp/'.$d.'.zip');
        
//stop execution
        chdir($cd);
        exit;
?>