b2dbd6d96d4f9fbadb370357f23d83f0ba5b30d5
[infodrom/phone] / phone.php
1 <?
2 define('SPOOL_DIR', '/var/spool/vbox/ttyI6');
3
4 function read_info($dir, $call)
5 {
6   $info = array();
7   if (($f = fopen(SPOOL_DIR . '/' . $dir . '/' . $call . '.info', 'r')) !== false) {
8     $line = fgets($f, 1024);
9     fclose($f);
10     $info = unserialize($line);
11     if (empty($info['note'])) $info['note'] = '';
12   }
13   return $info;
14 }
15
16 function write_info($dir,$fname,$info)
17 {
18   if (($f = fopen(SPOOL_DIR . '/' . $dir . '/' . $fname . '.info', 'w')) !== false) {
19     fwrite($f, serialize($info)."\n");
20     fclose($f);
21   }
22 }
23
24 function message_info($dir,$fname)
25 {
26   $info = array();
27   $basename = SPOOL_DIR . '/' . $dir . '/' . $fname;
28
29   if (is_file($basename . '.vmsg')) {
30     if (!is_file($basename . '.info')) {
31       if (($p = popen('vboxmode ' . $basename . '.vmsg', 'r')) !== false) {
32         while (!feof($p)) {
33           $line = chop(fgets($p, 1024));
34           $pos = strpos($line, ':')+2;
35           if (strpos($line, 'Speaker name............: ') !== false) {
36             $info['name'] = utf8_encode(substr($line, $pos));
37           } elseif (strpos($line, 'Length..................: ') !== false) {
38             $info['length'] = substr($line, $pos);
39           } elseif (strpos($line, 'Speaker caller number...: ') !== false) {
40             $info['number'] = substr($line, $pos);
41           } elseif (strpos($line, 'Creation time...........: ') !== false) {
42             $info['date'] = substr($line, $pos);
43           }
44         }
45         pclose($p);
46         $s = stat($basename . '.vmsg');
47         $info['timestamp'] = $s['mtime'];
48         write_info($dir,$fname,$info);
49       }
50     }
51     $info = read_info($dir,$fname);
52   }
53
54   return $info;
55 }
56
57 function call_cmp($a, $b)
58 {
59   if (!empty($a['read']) && empty($b['read']))
60     return 1;
61   elseif (!empty($b['read']) && empty($a['read']))
62     return -1;
63   elseif ($a['timestamp'] > $b['timestamp'])
64     return -1;
65   else
66     return 1;
67   return 0;
68 }
69
70 function read_directory($directory)
71 {
72   $result = array();
73
74   if ($dir = opendir(SPOOL_DIR . '/' . $directory)) {
75     while (($filename = readdir($dir)) !== false) {
76       if (($pos = strpos($filename, '.vmsg')) !== false) {
77         $fname = substr($filename,0,$pos);
78         $info = message_info($directory, $fname);
79         $info['fname'] = $fname;
80         $result[] = $info;
81       }
82     }
83     closedir($dir);
84   }
85
86   usort($result, "call_cmp");
87   return $result;
88 }
89
90 function callinfo($dir, $call)
91 {
92   return read_info($dir, $call);
93 }
94
95 function send_call($dir, $call)
96 {
97   $dir = str_replace('/','x',$dir);
98   $call = str_replace('/','x',$call);
99   $fname = SPOOL_DIR . '/' . $dir . '/' . $call . '.vmsg';
100
101   if (!is_file($fname)) {
102     printf("<html><body><h3>Anruf %s in %s nicht gefunden!</h3></body></html>", $call, $dir);
103     return;
104   }
105
106   if (($p = popen('vboxtoau < ' . $fname, 'r')) === false) {
107     printf("<html><body><h3>Anruf %s in %s konnte geoeffnet werden!</h3></body></html>", $call, $dir);
108     return;
109   }
110
111   $info = read_info($dir, $call);
112   if (empty($info['read'])) {
113     $info['read'] = date('U');
114     write_info($dir, $call, $info);
115   }
116
117   header(sprintf('Content-disposition: inline; filename="%s.au"', $call));
118   header('Content-Type: audio/basic');
119   header("Cache-Control: ");
120   header("Pragma: ");
121   sleep(1);
122   fpassthru($p);
123
124   pclose($p);
125 }
126
127 function archive_call($call)
128 {
129   $basename = SPOOL_DIR . '/' . 'incoming' . '/' . $call;
130   $basenew = SPOOL_DIR . '/' . 'archive' . '/' . $call;
131
132   rename($basename . '.vmsg', $basenew . '.vmsg');
133   rename($basename . '.info', $basenew . '.info');
134 }
135
136 function delete_call($dir, $call)
137 {
138   $basename = SPOOL_DIR . '/' . $dir . '/' . $call;
139
140   unlink($basename . '.vmsg');
141   unlink($basename . '.info');
142 }
143
144 ?>