while (($filename = readdir($dir)) !== false) {
if (($pos = strpos($filename, '.vmsg')) !== false) {
$fname = substr($filename,0,$pos);
- $info = message_info('incoming', $fname);
+ $info = message_info($directory, $fname);
$info['fname'] = $fname;
$result[] = $info;
}
pclose($p);
}
-?>
\ No newline at end of file
+function archive_call($call)
+{
+ $basename = SPOOL_DIR . '/' . 'incoming' . '/' . $call;
+ $basenew = SPOOL_DIR . '/' . 'archive' . '/' . $call;
+
+ rename($basename . '.vmsg', $basenew . '.vmsg');
+ rename($basename . '.info', $basenew . '.info');
+}
+
+function delete_call($dir, $call)
+{
+ $basename = SPOOL_DIR . '/' . $dir . '/' . $call;
+
+ unlink($basename . '.vmsg');
+ unlink($basename . '.info');
+}
+
+?>