ExcelToJson.php
[Pman.Core] / ExcelToJson.php
1 <?php
2
3 require_once 'Pman/Roo.php';
4
5 class Pman_Core_ExcelToJson extends Pman_Roo
6 {
7     function getAuth()
8     {
9         if (HTML_FlexyFramework::get()->cli) {
10             return true;
11         }
12         return parent::getAuth();
13     }
14     
15     function post()
16     {
17         $this->transObj = DB_DataObject::Factory('invhist_transfer');
18         
19         $this->transObj->query('BEGIN');
20         
21         PEAR::setErrorHandling(PEAR_ERROR_CALLBACK, array($this, 'onPearError'));
22         
23         $img = DB_DataObject::Factory('images');
24         $img->setFrom(array(
25             'onid' => 0,
26             'ontable' => 'ipshead'
27         ));
28         $img->onUpload(false);
29         
30         require_once 'File/Convert.php';
31         $fc = new File_Convert($img->getStoreName(), $img->mimetype );
32         $csv = $fc->convert('text/csv');
33         $this->importCsv($csv);
34     }
35     
36     function importCsv($csv)
37     {
38         ini_set("auto_detect_line_endings", true);
39         
40         $fh = fopen($csv, 'r');
41         if (!$fh) {
42             $this->jerr("invalid file");
43         }
44         
45         $req = array(
46             
47         );
48         
49         $cols = false;
50         $rows = array();
51         
52         while(false !== ($n = fgetcsv($fh,10000, ',', '"'))) {
53             if (!$cols) {
54                 
55                 $cols = array();
56                 foreach($n as $k) {
57                     $cols[] = strtoupper(trim($k));
58                 }
59                 
60                 if (empty($cols)) {
61                     continue;
62                 }
63                 foreach($req as $r) {
64                     if (!in_array($r,$cols)) {
65                         $cols = false;
66                         break;
67                     }
68                 }
69                 continue;
70             }
71             foreach($cols as $i=>$k) {
72                 $row[$k] = $n[$i];
73             }
74             $rows[] = $row;
75         }
76         
77         if (empty($cols)) {
78             $this->jerr("could not find a row with " . implode(' / ', $req));
79         }
80         
81         fclose($fh);
82         
83         exit;
84     }
85     
86 }