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