Language functions
| > Module written by Matt Mecham
| > Date started: 22nd April 2002
|
| > Module Version Number: 1.0.0
| > DBA Checked: Tue 25th May 2004
+--------------------------------------------------------------------------
*/
if ( ! defined( 'IN_ACP' ) )
{
print "Incorrect access
You cannot access this file directly. If you have recently upgraded, make sure you upgraded 'admin.php'.";
exit();
}
class ad_languages {
var $base_url;
function auto_run()
{
global $ibforums, $DB, $std;
//-----------------------------------------
// Kill globals - globals bad, Homer good.
//-----------------------------------------
$tmp_in = array_merge( $_GET, $_POST, $_COOKIE );
foreach ( $tmp_in as $k => $v )
{
unset($$k);
}
//-----------------------------------------
switch($ibforums->input['code'])
{
case 'add':
$this->add_language();
break;
case 'edit':
$this->do_form('edit');
break;
case 'edit2':
$this->show_file();
break;
case 'doadd':
$this->save_wrapper('add');
break;
case 'doedit':
$this->save_langfile();
break;
case 'remove':
$this->remove();
break;
case 'editinfo':
$this->edit_info();
break;
case 'export':
$this->export();
break;
case 'import':
$this->import();
break;
case 'doimport':
$this->doimport();
break;
case 'makedefault':
$this->make_default();
break;
case 'swap':
$this->member_swap();
break;
//-----------------------------------------
default:
$this->list_current();
break;
}
}
//-----------------------------------------
// Swap members choice
//-----------------------------------------
function member_swap()
{
global $ibforums, $DB, $std;
$new_dir = "";
$old_dir = "";
if ( $ibforums->input['old'] and $ibforums->input['new'] )
{
if ( $ibforums->input['old'] != 'none' )
{
$DB->simple_construct( array( 'select' => '*', 'from' => 'languages', 'where' => "lid IN ( {$ibforums->input['old']}, {$ibforums->input['new']})" ) );
$DB->simple_exec();
}
else
{
$DB->simple_construct( array( 'select' => '*', 'from' => 'languages', 'where' => "lid={$ibforums->input['new']}" ) );
$DB->simple_exec();
}
while ( $r = $DB->fetch_row() )
{
if ( $r['lid'] == $ibforums->input['old'] )
{
$old_dir = $r['ldir'];
}
if ( $r['lid'] == $ibforums->input['new'] )
{
$new_dir = $r['ldir'];
}
}
if ( $new_dir and $old_dir )
{
$DB->do_update( 'members', array( 'language' => $new_dir ), "language='{$old_dir}'" );
}
else if ( $ibforums->input['old'] == 'none' )
{
$DB->do_update( 'members', array( 'language' => $new_dir ), "language='' or language IS NULL" );
}
}
$ibforums->main_msg = "Member's language choice updated";
$this->list_current();
}
//-----------------------------------------
// Rebuild CACHE
//-----------------------------------------
function rebuild_cache()
{
global $ibforums, $DB, $std;
$ibforums->cache['languages'] = array();
$DB->simple_construct( array( 'select' => 'ldir,lname', 'from' => 'languages' ) );
$DB->simple_exec();
while ( $r = $DB->fetch_row() )
{
$ibforums->cache['languages'][] = $r;
}
$std->update_cache( array( 'name' => 'languages', 'array' => 1, 'deletefirst' => 1 ) );
}
//-----------------------------------------
function make_default()
{
global $ibforums, $DB, $std, $HTTP_GET_VARS;
$new_dir = stripslashes(urldecode(trim($HTTP_GET_VARS['id'])));
if ($new_dir == "")
{
$ibforums->admin->error("Could not resolve the new ID for the default lang pack stuff thingy thanks");
}
// Update conf file
$ibforums->admin->rebuild_config( array( 'default_language' => $new_dir ) );
// Bring it all back to yoooo!
$std->boink_it($ibforums->adskin->base_url."&act=lang");
}
/*-------------------------------------------------------------------------*/
// IMPORT - DO IT
/*-------------------------------------------------------------------------*/
function doimport()
{
global $ibforums, $DB, $std;
$messages = array();
//-----------------------------------------
// Check
//-----------------------------------------
if ( ! $ibforums->input['lang_name'] )
{
$ibforums->admin->error("You must enter a name for this language import!");
}
if ( $_FILES['FILE_UPLOAD']['name'] == "" or ! $_FILES['FILE_UPLOAD']['name'] or ($_FILES['FILE_UPLOAD']['name'] == "none") )
{
//-----------------------------------------
// check and load from server
//-----------------------------------------
if ( ! $ibforums->input['lang_location'] )
{
$ibforums->main_msg = "No upload file was found and no filename was specified.";
$this->import();
}
if ( ! file_exists( ROOT_PATH . $ibforums->input['lang_location'] ) )
{
$ibforums->main_msg = "Could not find the file to open at: " . ROOT_PATH . $ibforums->input['lang_location'];
$this->import();
}
if ( preg_match( "#\.gz$#", $ibforums->input['lang_location'] ) )
{
if ( $FH = @gzopen( ROOT_PATH.$ibforums->input['lang_location'], 'rb' ) )
{
while ( ! @gzeof( $FH ) )
{
$content .= @gzread( $FH, 1024 );
}
@gzclose( $FH );
}
}
else
{
if ( $FH = @fopen( ROOT_PATH.$ibforums->input['lang_location'], 'rb' ) )
{
$content = @fread( $FH, filesize(ROOT_PATH.$ibforums->input['lang_location']) );
@fclose( $FH );
}
}
}
else
{
//-----------------------------------------
// Get uploaded schtuff
//-----------------------------------------
$tmp_name = $_FILES['FILE_UPLOAD']['name'];
$tmp_name = preg_replace( "#\.gz$#", "", $tmp_name );
$content = $ibforums->admin->import_xml( $tmp_name );
}
//-----------------------------------------
// Check dirs, etc
//-----------------------------------------
$safename = substr( str_replace( " ", "", strtolower( preg_replace( "[^a-zA-Z0-9]", "", $ibforums->input['lang_name'] ) ) ), 0, 10 );
if ( @file_exists( ROOT_PATH.'lang/'.$safename ) )
{
$safename = $safename . substr( time(), 5, 10 );
}
if ( ! $content )
{
$ibforums->main_msg = "The XML file appears to be empty - please check the form and try again";
$this->import();
}
//-----------------------------------------
// Get xml mah-do-dah
//-----------------------------------------
require( KERNEL_PATH.'class_xml.php' );
$xml = new class_xml();
//-----------------------------------------
// Unpack the datafile
//-----------------------------------------
$xml->xml_parse_document( $content );
//-----------------------------------------
// pArse
//-----------------------------------------
$lang_array = array();
foreach( $xml->xml_array['languageexport']['languagegroup']['langbit'] as $idx => $entry )
{
$key = $entry['key']['VALUE'];
$value = $entry['value']['VALUE'];
$file = $entry['file']['VALUE'];
$lang_array[ $file ][ $key ] = $value;
}
//-----------------------------------------
// Sort...
//-----------------------------------------
ksort($lang_array);
if ( ! count( $lang_array ) )
{
$ibforums->main_msg = "The XML file appears to be empty - please check the form and try again";
$this->import();
}
//-----------------------------------------
// Attempt dir creation
//-----------------------------------------
if ( ! @mkdir( ROOT_PATH.'lang/'.$safename, 0777 ) )
{
$ibforums->main_msg = "Cannot create the directory '$safename' in the './lang' directory - please check directory permissions on 'lang' and try again.";
$this->import();
}
else
{
@chmod( ROOT_PATH.'lang/'.$safename, 0777 );
}
//print ""; print_r( $new_file_array ); exit();
//-----------------------------------------
// Loop, sort - compile and save
//-----------------------------------------
foreach( $lang_array as $file => $data )
{
$new_file_array = array();
$real_name = 'lang_'.$file.'.php';
foreach( $lang_array[ $file ] as $k => $v )
{
$new_file_array[ $k ] = $v;
}
ksort($new_file_array);
if ( count( $new_file_array ) )
{
$file_contents = " $v )
{
$file_contents .= "\n".'$lang['."'$k'".'] = "'.addslashes($v).'";';
}
$file_contents .= "\n?>";
if ( $FH = @fopen( ROOT_PATH.'lang/'.$safename.'/'.$real_name, 'w' ) )
{
@fwrite( $FH, $file_contents, strlen( $file_contents ) );
@fclose( $FH );
$messages[] = "'lang_{$file}.php' imported correctly!";
}
else
{
$messages[] = "Cannot create 'lang_{$file}.php' - skipping...";
}
}
else
{
$messages[] = "'lang_{$file}.php' appears to be empty - skipping...";
}
unset($new_file_array);
unset($file_contents);
}
//-----------------------------------------
// Write to DB
//-----------------------------------------
$DB->do_insert( 'languages', array(
'ldir' => $safename,
'lname' => $ibforums->input['lang_name'],
'lauthor' => $xml->xml_array['languageexport']['ATTRIBUTES']['author'],
'lemail' => $xml->xml_array['languageexport']['ATTRIBUTES']['email'],
) );
$this->rebuild_cache();
$ibforums->main_msg = "Import attempt completed
".implode( "\n
", $messages );
$this->import();
}
/*-------------------------------------------------------------------------*/
// Import XML Archive (FORM)
/*-------------------------------------------------------------------------*/
function import()
{
global $ibforums, $DB, $std;
$ibforums->admin->page_detail = "This section will allow you to import an XML file containing all the language data.";
$ibforums->admin->page_title = "Language Pack Import";
//-----------------------------------------
$ibforums->html .= $ibforums->adskin->start_form( array( 1 => array( 'code' , 'doimport' ),
2 => array( 'act' , 'lang' ),
3 => array( 'MAX_FILE_SIZE' , '10000000000' ),
) , "uploadform", " enctype='multipart/form-data'" );
//-----------------------------------------
$ibforums->adskin->td_header[] = array( " " , "50%" );
$ibforums->adskin->td_header[] = array( " " , "50%" );
//-----------------------------------------
$ibforums->html .= $ibforums->adskin->start_table( "Import an XML language file" );
$ibforums->html .= $ibforums->adskin->add_td_row( array( "Upload XML language file from your computerThe file must begin with 'ipb_language' and end with either '.xml' or '.xml.gz'
" ,
$ibforums->adskin->form_upload( )
) );
$ibforums->html .= $ibforums->adskin->add_td_row( array( "OR enter the filename of the XML language fileThe file must be uploaded into the forum's root folder
" ,
$ibforums->adskin->form_input( 'lang_location', 'ipb_language.xml.gz' )
) );
$ibforums->html .= $ibforums->adskin->add_td_row( array( "Enter the name for this new language setFor example: English, US, German, DE...
" ,
$ibforums->adskin->form_input( 'lang_name', '' )
) );
$ibforums->html .= $ibforums->adskin->end_form("Import XML Language Set");
$ibforums->html .= $ibforums->adskin->end_table();
$ibforums->admin->output();
}
/*-------------------------------------------------------------------------*/
// EXPORT: Export languages into XML download
/*-------------------------------------------------------------------------*/
function export()
{
global $ibforums, $DB, $std;
//-----------------------------------------
// check
//-----------------------------------------
if ($ibforums->input['id'] == "")
{
$ibforums->admin->error("You must specify an existing language set ID, go back and try again");
}
//-----------------------------------------
// Get data from DB
//-----------------------------------------
$DB->simple_construct( array( 'select' => '*', 'from' => 'languages', 'where' => "lid='".$ibforums->input['id']."'" ) );
$DB->simple_exec();
if ( ! $row = $DB->fetch_row() )
{
$ibforums->admin->error("Could not query the information from the database");
}
//-----------------------------------------
// Get xml mah-do-dah
//-----------------------------------------
require( KERNEL_PATH.'class_xml.php' );
$xml = new class_xml();
//-----------------------------------------
// Set up..
//-----------------------------------------
$lang_dir = ROOT_PATH."lang/".$row['ldir'];
if ( ! is_dir($lang_dir) )
{
$ibforums->admin->error("Could not locate $lang_dir, is the directory there?");
}
$lang_files = array( 'boards','buddy','calendar','emails', 'email_content', 'error','forum','global','help','legends','login','mlist',
'mod','msg','online','portal','post','printpage','profile','register','search','stats','subscriptions','topic','ucp'
);
//-----------------------------------------
// Start XML
//-----------------------------------------
$xml->xml_set_root( 'languageexport', array( 'exported' => time(), 'author' => $row['lauthor'], 'email' => $row['lemail'] ) );
$xml->xml_add_group( 'languagegroup' );
//-----------------------------------------
// Get all the lang bits
//-----------------------------------------
foreach( $lang_files as $file )
{
if ( @is_file( $lang_dir.'/lang_'.$file.'.php' ) )
{
$lang = array();
require( $lang_dir.'/lang_'.$file.'.php' );
foreach( $lang as $k => $v )
{
$content = array();
$content[] = $xml->xml_build_simple_tag( 'key' , $k );
$content[] = $xml->xml_build_simple_tag( 'value', $v );
$content[] = $xml->xml_build_simple_tag( 'file' , $file );
$entry[] = $xml->xml_build_entry( 'langbit', $content );
}
}
}
$xml->xml_add_entry_to_group( 'languagegroup', $entry );
$xml->xml_format_document();
//-----------------------------------------
// Send to browser.
//-----------------------------------------
$ibforums->admin->show_download( $xml->xml_document, 'ipb_language.xml' );
}
function show_file()
{
global $ibforums, $DB, $std;
if ($ibforums->input['id'] == "")
{
$ibforums->admin->error("You must specify an existing language set ID, go back and try again");
}
//-----------------------------------------
$DB->simple_construct( array( 'select' => '*', 'from' => 'languages', 'where' => "lid='".$ibforums->input['id']."'" ) );
$DB->simple_exec();
if ( ! $row = $DB->fetch_row() )
{
$ibforums->admin->error("Could not query the information from the database");
}
//-----------------------------------------
$lang_dir = ROOT_PATH."lang/".$row['ldir'];
$form_array = array();
$lang_file = $lang_dir."/".$ibforums->input['lang_file'];
if ( ! is_writeable($lang_dir) )
{
$ibforums->admin->error("Cannot write into '$lang_dir', please check the CHMOD value, and if needed, CHMOD to 0777 via FTP. IBF cannot do this for you.");
}
if (! file_exists($lang_file) )
{
$ibforums->admin->error("Cannot locate {$ibforums->input['lang_file']} in '$lang_dir', please go back and check the input");
}
else
{
require $lang_file;
}
if ($ibforums->input['lang_file'] == 'email_content.php')
{
$is_email = 1;
}
if ( ! is_writeable($lang_file) )
{
$ibforums->admin->error("Cannot write to '$lang_file', please check the CHMOD value, and if needed, CHMOD to 0777 via FTP. IBF cannot do this for you.");
}
$ibforums->admin->page_detail = "You may edit any of the language information below.";
$ibforums->admin->page_title = "Edit Language set: ".$row['lname'];
//-----------------------------------------
$ibforums->html .= $ibforums->adskin->start_form( array( 1 => array( 'code' , 'doedit' ),
2 => array( 'act' , 'lang' ),
3 => array( 'id' , $ibforums->input['id'] ),
4 => array( 'lang_file' , $ibforums->input['lang_file'] ),
) );
//-----------------------------------------
$ibforums->adskin->td_header[] = array( "Block Name" , "20%" );
$ibforums->adskin->td_header[] = array( "Content" , "80%" );
//-----------------------------------------
$ibforums->html .= $ibforums->adskin->start_table( "Language Text: ".$ibforums->input['lang_file'] );
foreach($lang as $k => $v)
{
//-----------------------------------------
// Swop < and > into ascii entities
// to prevent textarea breaking html
//-----------------------------------------
$v = stripslashes($v);
$v = preg_replace("/&/", "&", $v );
$v = preg_replace("//", ">", $v );
$v = preg_replace("/'/", "'", $v );
$rows = 5;
$cols = 70;
$ibforums->html .= $ibforums->adskin->add_td_row( array(
"<ibf.lang.".$k.">",
$ibforums->adskin->form_textarea('XX_'.$k, $v, $cols, $rows),
) );
}
$ibforums->html .= $ibforums->adskin->end_form("Edit this file");
$ibforums->html .= $ibforums->adskin->end_table();
//-----------------------------------------
//-------------------------------
$ibforums->admin->output();
}
//-----------------------------------------
// Edit language pack information
//-----------------------------------------
function edit_info()
{
global $ibforums, $DB, $std, $HTTP_POST_VARS;
if ($ibforums->input['id'] == "")
{
$ibforums->admin->error("You must specify an existing language set ID, go back and try again");
}
//-----------------------------------------
$DB->simple_construct( array( 'select' => '*', 'from' => 'languages', 'where' => "lid='".$ibforums->input['id']."'" ) );
$DB->simple_exec();
if ( ! $row = $DB->fetch_row() )
{
$ibforums->admin->error("Could not query the information from the database");
}
$final['lname'] = stripslashes($_POST['lname']);
if (isset($_POST['lname']))
{
$final['lauthor'] = stripslashes($_POST['lauthor']);
$final['lemail'] = stripslashes($_POST['lemail']);
}
$DB->do_update( 'languages', $final, "lid='".$ibforums->input['id']."'" );
$this->rebuild_cache();
$ibforums->admin->done_screen("Language pack information updated", "Manage language sets", "act=lang" );
}
//-----------------------------------------
// Add language pack
//-----------------------------------------
function add_language()
{
global $ibforums, $DB, $std, $HTTP_POST_VARS;
if ($ibforums->input['id'] == "")
{
$ibforums->admin->error("You must specify an existing language set ID, go back and try again");
}
$DB->simple_construct( array( 'select' => '*', 'from' => 'languages', 'where' => "lid='".$ibforums->input['id']."'" ) );
$DB->simple_exec();
//-----------------------------------------
if ( ! $row = $DB->fetch_row() )
{
$ibforums->admin->error("Could not query that language set from the DB, so there");
}
//-----------------------------------------
//-----------------------------------------
if ( ! is_writeable(ROOT_PATH.'lang') )
{
$ibforums->admin->error("The directory 'lang' is not writeable by this script. Please check the permissions on that directory. CHMOD to 0777 if in doubt and try again");
}
//-----------------------------------------
if ( ! is_dir(ROOT_PATH.'lang/'.$row['ldir']) )
{
$ibforums->admin->error("Could not locate the original language set to copy, please check and try again");
}
//-----------------------------------------
$row['lname'] = $row['lname'].".2";
// Insert a new row into the DB...
$final = array();
foreach($row as $k => $v)
{
if ($k == 'lid')
{
continue;
}
else
{
$final[ $k ] = $v;
}
}
$DB->do_insert( 'languages', $final );
$new_id = $DB->get_insert_id();
//-----------------------------------------
if ( ! $ibforums->admin->copy_dir( $ibforums->vars['base_dir'].'lang/'.$row['ldir'] , $ibforums->vars['base_dir'].'lang/'.$new_id ) )
{
$DB->simple_exec_query( array( 'delete' => 'languages', 'where' => "lid='$new_id'" ) );
$ibforums->admin->error( $ibforums->admin->errors );
}
else
{
$DB->do_update( 'languages', array( 'ldir' => $new_id ), "lid='$new_id'" );
}
//-----------------------------------------
// Pass to edit / add form...
//-----------------------------------------
$this->rebuild_cache();
$this->do_form('add', $new_id);
}
//-----------------------------------------
// REMOVE WRAPPERS
//-----------------------------------------
function remove()
{
global $ibforums, $DB, $std, $HTTP_POST_VARS;
//-----------------------------------------
if ($ibforums->input['id'] == "")
{
$ibforums->admin->error("You must specify an existing image set ID, go back and try again");
}
if ($ibforums->input['id'] == 1)
{
$ibforums->admin->error("You cannot remove this language pack.");
}
$DB->simple_construct( array( 'select' => '*', 'from' => 'languages', 'where' => "lid='".$ibforums->input['id']."'" ) );
$DB->simple_exec();
if ( ! $row = $DB->fetch_row() )
{
$ibforums->admin->error("Could not query the language information from the database");
}
// Is it default??????????????? ok enuff
if ($ibforums->vars['default_language'] == "")
{
$ibforums->vars['default_language'] = 'en';
}
if ($row['ldir'] == $ibforums->vars['default_language'])
{
$ibforums->admin->error("You cannot remove this language pack while it is the default language directory. Please select another pack to be the default and try again");
}
$DB->do_update( 'members', array( 'language' => $ibforums->vars['default_language'] ), "language='{$row['ldir']}'" );
if ( $ibforums->admin->rm_dir( $ibforums->vars['base_dir']."lang/".$row['ldir'] ) )
{
$DB->simple_exec_query( array( 'delete' => 'languages', 'where' => "lid='".$ibforums->input['id']."'" ) );
$this->rebuild_cache();
$std->boink_it($ibforums->adskin->base_url."&act=lang");
exit();
}
else
{
$ibforums->admin->error("Could not remove the language pack files, please check the CHMOD permissions to ensure that this script has the correct permissions to allow this");
}
}
//-----------------------------------------
// ADD / EDIT IMAGE SETS
//-----------------------------------------
function save_langfile()
{
global $ibforums, $DB, $std;
//-----------------------------------------
if ($ibforums->input['id'] == "")
{
$ibforums->admin->error("You must specify an existing language set ID, go back and try again");
}
if ($ibforums->input['lang_file'] == "")
{
$ibforums->admin->error("You must specify an existing language filename, go back and try again");
}
$DB->simple_construct( array( 'select' => '*', 'from' => 'languages', 'where' => "lid='".$ibforums->input['id']."'" ) );
$DB->simple_exec();
if ( ! $row = $DB->fetch_row() )
{
$ibforums->admin->error("Could not query the language information from the database");
}
$lang_file = ROOT_PATH."lang/".$row['ldir']."/".$ibforums->input['lang_file'];
if (! file_exists( $lang_file ) )
{
$ibforums->admin->error("Could not locate $lang_file, is it there?");
}
if (! is_writeable( $lang_file ) )
{
$ibforums->admin->error("Cannot write to $lang_file, please chmod to 0666 or better and try again");
}
$barney = array();
foreach ($ibforums->input as $k => $v)
{
if ( preg_match( "/^XX_(\S+)$/", $k, $match ) )
{
if ( isset($ibforums->input[ $match[0] ]) )
{
$v = preg_replace("/'/", "'", stripslashes($_POST[ $match[0] ]) );
$v = preg_replace("/</", "<", $v );
$v = preg_replace("/>/", ">", $v );
$v = preg_replace("/&/", "&", $v );
$v = preg_replace("/\r/", "", $v );
$barney[ $match[1] ] = $v;
}
}
}
if ( count($barney) < 1 )
{
$ibforums->admin->error("Oopsie, something has gone wrong - did you leave all the fields blank?");
}
$start = " $text)
{
$text = preg_replace("/\n{1,}$/", "", $text);
$start .= "\n".'$lang['."'$key'".'] = "'.addslashes($text).'";';
}
$start .= "\n\n?".">";
if ($fh = fopen( $lang_file, 'w') )
{
fwrite($fh, $start, strlen($start) );
fclose($fh);
}
else
{
$ibforums->admin->error("Could not write back to $lang_file");
}
if ( $ibforums->input['id'] )
{
$ibforums->admin->done_screen("Set updated", "Manage Language Sets", "act=lang&code=edit&id={$ibforums->input['id']}", 'redirect' );
}
else
{
$ibforums->admin->done_screen("Set updated", "Manage Language Sets", "act=lang", 'redirect' );
}
}
//-----------------------------------------
// EDIT SPLASH
//-----------------------------------------
function do_form( $method='add', $id="" )
{
global $ibforums, $DB, $std;
//-----------------------------------------
if ($id != "")
{
$ibforums->input['id'] = $id;
}
//-----------------------------------------
if ($ibforums->input['id'] == "")
{
$ibforums->admin->error("You must specify an existing language set ID, go back and try again");
}
//-----------------------------------------
$DB->simple_construct( array( 'select' => '*', 'from' => 'languages', 'where' => "lid='".$ibforums->input['id']."'" ) );
$DB->simple_exec();
if ( ! $row = $DB->fetch_row() )
{
$ibforums->admin->error("Could not query the information from the database");
}
//-----------------------------------------
$lang_dir = $ibforums->vars['base_dir']."lang/".$row['ldir'];
$form_array = array();
if ($method != 'add')
{
if ( ! is_writeable($lang_dir) )
{
$ibforums->admin->error("Cannot write into '$lang_dir', please check the CHMOD value, and if needed, CHMOD to 0777 via FTP. IBF cannot do this for you.");
}
}
//-----------------------------------------
if ( is_dir($lang_dir) )
{
$handle = opendir($lang_dir);
while (($filename = readdir($handle)) !== false)
{
if (($filename != ".") && ($filename != ".."))
{
if (preg_match("/^index/", $filename))
{
continue;
}
if (preg_match("/\.php$/", $filename))
{
$form_array[] = array( $filename, preg_replace( "/\.php$/", "", $filename ) );
}
}
}
closedir($handle);
}
if ($row['lauthor'] and $row['lemail'])
{
$author = "
This language set '{$row['lname']}' was created by {$row['lauthor']}";
}
else if ($row['lauthor'])
{
$author = "
This language set '{$row['lname']}' was created by {$row['lauthor']}";
}
//-----------------------------------------
$ibforums->admin->page_detail = "Please choose which language section you wish to edit below.$author $url";
$ibforums->admin->page_title = "Edit Language set";
//-----------------------------------------
//-----------------------------------------
$ibforums->html .= $ibforums->adskin->start_form( array( 1 => array( 'code' , 'editinfo' ),
2 => array( 'act' , 'lang' ),
3 => array( 'id' , $ibforums->input['id'] ),
) );
//-----------------------------------------
$ibforums->adskin->td_header[] = array( " " , "60%" );
$ibforums->adskin->td_header[] = array( " " , "40%" );
//-----------------------------------------
$ibforums->html .= $ibforums->adskin->start_table( "Edit language set information" );
$ibforums->html .= $ibforums->adskin->add_td_row( array(
"Language Set Name",
$ibforums->adskin->form_input('lname', $row['lname']),
) );
if ($method == 'add')
{
$ibforums->html .= $ibforums->adskin->add_td_row( array(
"Language set author name:",
$ibforums->adskin->form_input('lauthor', $row['lauthor']),
) );
$ibforums->html .= $ibforums->adskin->add_td_row( array(
"Language set author email:",
$ibforums->adskin->form_input('lemail', $row['lemail']),
) );
}
$ibforums->html .= $ibforums->adskin->end_form("Edit language set details");
$ibforums->html .= $ibforums->adskin->end_table();
//-----------------------------------------
//-------------------------------
$ibforums->html .= $ibforums->adskin->start_form( array( 1 => array( 'code' , 'edit2' ),
2 => array( 'act' , 'lang' ),
3 => array( 'id' , $ibforums->input['id'] ),
) );
//-----------------------------------------
$ibforums->adskin->td_header[] = array( " " , "60%" );
$ibforums->adskin->td_header[] = array( " " , "40%" );
//-----------------------------------------
$ibforums->html .= $ibforums->adskin->start_table( "Edit language files in set '".$row['lname']."'" );
$ibforums->html .= $ibforums->adskin->add_td_row( array(
"Please select a language file to edit",
$ibforums->adskin->form_dropdown('lang_file', $form_array),
) );
$ibforums->html .= $ibforums->adskin->end_form("Edit this language file");
$ibforums->html .= $ibforums->adskin->end_table();
//-----------------------------------------
//-------------------------------
$ibforums->admin->output();
}
//-----------------------------------------
// SHOW ALL LANGUAGE PACKS
//-----------------------------------------
function list_current()
{
global $ibforums, $DB, $std;
if ($ibforums->vars['default_language'] == "")
{
$ibforums->vars['default_language'] = 'en';
}
$form_array = array();
$ibforums->admin->page_detail = "You can edit, remove and create new language packs from this section";
$ibforums->admin->page_title = "Manage Language Sets";
//-----------------------------------------
$DB->cache_add_query( 'languages_list_current', array() );
$DB->cache_exec_query();
$used_ids = array();
$show_array = array();
$ibforums->html .= $ibforums->adskin->js_checkdelete();
if ( $DB->get_num_rows() )
{
$ibforums->adskin->td_header[] = array( "Title" , "40%" );
$ibforums->adskin->td_header[] = array( "Members" , "30%" );
$ibforums->adskin->td_header[] = array( "Export" , "10%" );
$ibforums->adskin->td_header[] = array( "Edit" , "10%" );
$ibforums->adskin->td_header[] = array( "Remove" , "10%" );
$ibforums->html .= $ibforums->adskin->start_table( "Current Language Packs In Use" );
while ( $r = $DB->fetch_row() )
{
if ($ibforums->vars['default_language'] == $r['ldir'])
{
$root = " (Default Language)";
}
else
{
$root = " ( Make Default Language )";
}
$show_array[ $r['lid'] ] .= stripslashes($r['lname'])."
";
if ( in_array( $r['lid'], $used_ids ) )
{
continue;
}
$ibforums->html .= $ibforums->adskin->add_td_row( array( "".stripslashes($r['lname'])." $root",
"{$r['mcount']}",
"Export",
"Edit",
"Remove",
) );
$used_ids[] = $r['lid'];
$form_array[] = array( $r['lid'], $r['lname'] );
}
$ibforums->html .= $ibforums->adskin->end_table();
}
if ( count($used_ids) < 1 )
{
$used_ids[] = '0';
}
$DB->simple_construct( array( 'select' => 'lid, ldir, lname', 'from' => 'languages', 'where' => "lid NOT IN(".implode(",",$used_ids).")" ) );
$DB->simple_exec();
if ( $DB->get_num_rows() )
{
$ibforums->adskin->td_header[] = array( "Title" , "40%" );
$ibforums->adskin->td_header[] = array( "Export" , "10%" );
$ibforums->adskin->td_header[] = array( "Edit" , "30%" );
$ibforums->adskin->td_header[] = array( "Remove" , "20%" );
$ibforums->html .= $ibforums->adskin->start_table( "Current Unallocated Language Packs" );
while ( $r = $DB->fetch_row() )
{
if ($ibforums->vars['default_language'] == $r['ldir'])
{
$root = " (Default Language)";
}
else
{
$root = " ( Make Default Language )";
}
$ibforums->html .= $ibforums->adskin->add_td_row( array( "".stripslashes($r['lname'])." $root",
"Export",
"Edit",
"Remove",
) );
$form_array[] = array( $r['lid'], $r['lname'] );
}
$ibforums->html .= $ibforums->adskin->end_table();
}
//-----------------------------------------
// Create new set?
//-----------------------------------------
$ibforums->html .= $ibforums->adskin->start_form( array( 1 => array( 'code' , 'add' ),
2 => array( 'act' , 'lang' ),
) );
$ibforums->adskin->td_header[] = array( " " , "40%" );
$ibforums->adskin->td_header[] = array( " " , "60%" );
$ibforums->html .= $ibforums->adskin->start_table( "Create Language Set" );
$ibforums->html .= $ibforums->adskin->add_td_row( array( "Base new language set on..." ,
$ibforums->adskin->form_dropdown( "id", $form_array)
) );
$ibforums->html .= $ibforums->adskin->end_form("Create new Language set");
$ibforums->html .= $ibforums->adskin->end_table();
//-----------------------------------------
// Create new set?
//-----------------------------------------
$ibforums->html .= $ibforums->adskin->start_form( array( 1 => array( 'code' , 'swap' ),
2 => array( 'act' , 'lang' ),
) );
$ibforums->adskin->td_header[] = array( " " , "40%" );
$ibforums->adskin->td_header[] = array( " " , "60%" );
$ibforums->html .= $ibforums->adskin->start_table( "Swap Member's Language Choice" );
$ibforums->html .= $ibforums->adskin->add_td_row( array( "Member's that now use language set..." ,
$ibforums->adskin->form_dropdown( "old", array_merge( array( -1 => array( 'none', 'No preference stored - using default' ) ), $form_array ) )
) );
$ibforums->html .= $ibforums->adskin->add_td_row( array( "Update to use language set..." ,
$ibforums->adskin->form_dropdown( "new", $form_array)
) );
$ibforums->html .= $ibforums->adskin->end_form("Swap Member's Choice");
$ibforums->html .= $ibforums->adskin->end_table();
//-----------------------------------------
//-------------------------------
$ibforums->admin->output();
}
}
?>