ACC SHELL

<?
require "./classes/classes.php";
$pripojeni = new CDatabaze ( $GLOBALS['conf_uzivatel'], 	$GLOBALS['conf_heslodb'], $GLOBALS['conf_server'], $GLOBALS['conf_databaze']);
$sezeni = new CSezeni();


$vypsat_mesic = $_REQUEST['vypsat_mesic'] ? $_REQUEST['vypsat_mesic'] : date("Y-m");


header("Content-type: application/vnd-ms-excel");
header("Content-Disposition: attachment; filename=seznam_uzivatelu".date("Y-m").".xls");
?>
<?php

//set_time_limit(10);

require_once "./excel_classes/class.writeexcel_workbook.inc.php";
require_once "./excel_classes/class.writeexcel_worksheet.inc.php";


	list($rok, $mesic) = explode("-", $vypsat_mesic);
	$cas_prvniho = mktime(0,0,0,$mesic+0, 1, $rok);
	$cas_posledniho = mktime(0,0,0,$mesic+1, 1, $rok);
	$pocet_dni_v_mesici = ($cas_posledniho-$cas_prvniho)/86400;

	$dny_cesky = array(0 => "Ne", 1 => "Po", 2 => "Út", 3 => "St", 4 => "Čt", 5 => "Pá", 6 => "So" );
	$mesice_cesky = array( 1 => "Leden", 2 => "Únor", 3 => "Březen", 4 => "Duben", 5 => "Květen", 6 => "Červen", 7 => "Červenec", 8 => "Srpen", 9 => "Září", 10 => "Říjen", 11 => "Listopad", 12 => "Prosinec" );





   $pripojeni->dotaz("SET NAMES 'CP1250'");

		
$fname = tempnam("./tmp", "demo.xls");
$workbook =& new writeexcel_workbook($fname);
 $nazev="Registrovani uzivatele";
$worksheet =& $workbook->addworksheet('Zakaznici-'.$mesice_cesky[$mesic+0].' '.$rok.''); 
   
#######################################################################
#
# Write Kontrola prihlasenych
#
$worksheet->set_column('A:B', 25 );
$worksheet->set_column('C:D', 15 );
$worksheet->set_column('E:E', 30 );
$worksheet->set_column('F:F', 15 );
$worksheet->set_column('G:G', 35 );  
$heading  =& $workbook->addformat(array(
                                        bold    => 1,
                                        size    => 18
                                       
                                        ));
    $nazevseznamu="  Seznam registrovaných uživatelu ku dnu ".date("d.m.Y");
$headings = array($nazevseznamu, '');
$worksheet->write_row('B1', $headings, $heading);     
####################################################################
# write 
$heading  =& $workbook->addformat(array(
                                        bold    => 1,
                                        size    => 16
                                       
                                        ));

$headings = array($nazev_kurzu, '');
$worksheet->write_row('B2', $headings, $heading);

$text_format =& $workbook->addformat(array(
                                            bold    => 0,
                                            italic  => 0,
                                            color   => 'red',
                                            size    => 12
                                        ));

$text_format1 =& $workbook->addformat(array(
                                            bold    => 0,
                                            italic  => 0,
                                            color   => 'black',
                                            size    => 11
                                        ));
                                        

  $j=6; 
                                     
$worksheet->write(B4, Jméno, $text_format);
$worksheet->write(C4, Login, $text_format);
$worksheet->write(D4, Firma, $text_format);
$worksheet->write(E4, "E-mail", $text_format);
$worksheet->write(F4, Telefon, $text_format);
$worksheet->write(G4, "Adresa", $text_format);
  
 

//$worksheet->write(B6, Petr, $text_format1);  
 
    
$dbdata1 = $pripojeni->dotaz("SELECT * FROM ".$GLOBALS['config_db_prefix']."modul_shop_customer WHERE login<>'' ORDER BY surname, name"); 
    while($dbdata1 && $data = $pripojeni->objekt_dotazu($dbdata1)){
  		$worksheet->write(B.$j, $data->name." ".$data->surname, $text_format1);
			$worksheet->write(C.$j, $data->login, $text_format1);
			$worksheet->write(D.$j, $data->firm, $text_format1);
			$worksheet->write(E.$j, $data->email, $text_format1);
			$worksheet->write(F.$j, $data->phone, $text_format1);
			$worksheet->write(G.$j, $data->street.", ".$data->zip." ".$data->town, $text_format1);
	
		   			$j++;	
		
		}   


$workbook->close();


$fh=fopen($fname, "rb");

fpassthru($fh);
unlink($fname);


$adresar = Dir("./tmp");
while ($polozka=$adresar->Read()){
	//echo $polozka."<br>";
	@unlink( "./tmp/$polozka");
}
$adresar->Close();
   
?>