contrib/scripts/vmail.cgi

   1 #!/usr/bin/perl
   2 #
   3 # Web based Voicemail for Asterisk
   4 #
   5 # Copyright (C) 2002, Linux Support Services, Inc.
   6 #
   7 # Distributed under the terms of the GNU General Public License
   8 #
   9 # Written by Mark Spencer <markster@linux-support.net>
  10 #
  11 # (icky, I know....  if you know better perl please help!)
  12 #
  13 #
  14 use CGI qw/:standard/;
  15 use Carp::Heavy;
  16 use CGI::Carp qw(fatalsToBrowser);
  17
  18 @validfolders = ( "INBOX", "Old", "Work", "Family", "Friends", "Cust1", "Cust2", "Cust3", "Cust4", "Cust5" );
  19
  20 %formats = (
  21         "wav" => {
  22                 name => "Uncompressed WAV",
  23                 mime => "audio/x-wav",
  24                 pref => 1
  25         },
  26         "WAV" => {
  27                 name => "GSM Compressed WAV",
  28                 mime => "audio/x-wav",
  29                 pref => 2
  30         },
  31         "gsm" => {
  32                 name => "Raw GSM Audio",
  33                 mime => "audio/x-gsm",
  34                 pref => 3
  35         }
  36 );
  37
  38 $astpath = "/_asterisk";
  39
  40 $stdcontainerstart = "<table align=center width=600><tr><td>\n";
  41 $footer = "<hr><font size=-1><a href=\"http://www.asterisk.org\">The Asterisk Open Source PBX</a> Copyright 2002, <a href=\"http://www.digium.com\">Digium, Inc.</a></a>";
  42 $stdcontainerend = "</td></tr><tr><td align=right>$footer</td></tr></table>\n";
  43
  44 sub login_screen() {
  45         print header;
  46         my ($message) = @_;
  47         print <<_EOH;
  48
  49 <TITLE>Asterisk Web-Voicemail</TITLE>
  50 <BODY BGCOLOR="white">
  51 $stdcontainerstart
  52 <FORM METHOD="post">
  53 <input type=hidden name="action" value="login">
  54 <table align=center>
  55 <tr><td valign=top align=center rowspan=6><img align=center src="$astpath/animlogo.gif"></td></tr>
  56 <tr><td align=center colspan=2><font size=+2>Comedian Mail Login</font></td></tr>
  57 <tr><td align=center colspan=2><font size=+1>$message</font></td></tr>
  58 <tr><td>Mailbox:</td><td><input type=text name="mailbox"></td></tr>
  59 <tr><td>Password:</td><td><input type=password name="password"></td></tr>
  60 <tr><td align=right colspan=2><input value="Login" type=submit></td></tr>
  61 </table>
  62 </FORM>
  63 $stdcontainerend
  64 </BODY>\n
  65 _EOH
  66
  67 }
  68
  69 sub check_login()
  70 {
  71         local ($filename, $startcat) = @_;
  72         local ($mbox, $context) = split(/\@/, param('mailbox'));
  73         local $pass = param('password');
  74         local $category = $startcat;
  75         local @fields;
  76         local $tmp;
  77         local (*VMAIL);
  78         if (!$category) {
  79                 $category = "general";
  80         }
  81         if (!$context) {
  82                 $context = param('context');
  83         }
  84         if (!$context) {
  85                 $context = "default";
  86         }
  87         if (!$filename) {
  88                 $filename = "/etc/asterisk/voicemail.conf";
  89         }
  90 #       print header;
  91 #       print "Including <h2>$filename</h2> while in <h2>$category</h2>...\n";
  92         open(VMAIL, "<$filename") || die("Bleh, no $filename");
  93         while(<VMAIL>) {
  94                 chomp;
  95                 if (/include\s\"([^\"]+)\"$/) {
  96                         ($tmp, $category) = &check_login("/etc/asterisk/$1", $category);
  97                         if (length($tmp)) {
  98 #                               print "Got '$tmp'\n";
  99                                 return ($tmp, $category);
 100                         }
 101                 } elsif (/\[(.*)\]/) {
 102                         $category = $1;
 103                 } elsif ($category ne "general") {
 104                         if (/([^\s]+)\s*\=\>?\s*(.*)/) {
 105                                 @fields = split(/\,\s*/, $2);
 106 #                               print "<p>Mailbox is $1\n";
 107                                 if (($mbox eq $1) && ($pass eq $fields[0]) && ($context eq $category)) {
 108                                         return ($fields[1] ? $fields[1] : "Extension $mbox in $context", $category);
 109                                 }
 110                         }
 111                 }
 112         }
 113         close(VMAIL);
 114         return ("", $category);
 115 }
 116
 117 sub validmailbox()
 118 {
 119         local ($context, $mbox, $filename, $startcat) = @_;
 120         local $category = $startcat;
 121         local @fields;
 122         local (*VMAIL);
 123         if (!$context) {
 124                 $context = param('context');
 125         }
 126         if (!$context) {
 127                 $context = "default";
 128         }
 129         if (!$filename) {
 130                 $filename = "/etc/asterisk/voicemail.conf";
 131         }
 132         if (!$category) {
 133                 $category = "general";
 134         }
 135         open(VMAIL, "<$filename") || die("Bleh, no $filename");
 136         while(<VMAIL>) {
 137                 chomp;
 138                 if (/include\s\"([^\"]+)\"$/) {
 139                         ($tmp, $category) = &validmailbox($mbox, $context, "/etc/asterisk/$1");
 140                         if ($tmp) {
 141                                 return ($tmp, $category);
 142                         }
 143                 } elsif (/\[(.*)\]/) {
 144                         $category = $1;
 145                 } elsif (($category ne "general") && ($category eq $context)) {
 146                         if (/([^\s]+)\s*\=\>?\s*(.*)/) {
 147                                 @fields = split(/\,\s*/, $2);
 148                                 if (($mbox eq $1) && ($context eq $category)) {
 149                                         return ($fields[2] ? $fields[2] : "unknown", $category);
 150                                 }
 151                         }
 152                 }
 153         }
 154         return ("", $category);
 155 }
 156
 157 sub mailbox_options()
 158 {
 159         local($context, $current, $filename, $category) = @_;
 160         local (*VMAIL);
 161         local $tmp2;
 162         local $tmp;
 163         if (!$filename) {
 164                 $filename = "/etc/asterisk/voicemail.conf";
 165         }
 166         if (!$category) {
 167                 $category = "general";
 168         }
 169 #       print header;
 170 #       print "Including <h2>$filename</h2> while in <h2>$category</h2>...\n";
 171         open(VMAIL, "<$filename") || die("Bleh, no voicemail.conf");
 172         while(<VMAIL>) {
 173                 chomp;
 174                 s/\;.*$//;
 175                 if (/include\s\"([^\"]+)\"$/) {
 176                         ($tmp2, $category) = &mailbox_options($context, $current, "/etc/asterisk/$1", $category);
 177 #                       print "Got '$tmp2'...\n";
 178                         $tmp .= $tmp2;
 179                 } elsif (/\[(.*)\]/) {
 180                         $category = $1;
 181                 } elsif ($category ne "general") {
 182                         if (/([^\s]+)\s*\=\>?\s*(.*)/) {
 183                                 @fields = split(/\,\s*/, $2);
 184                                 $text = "$1";
 185                                 if ($fields[2]) {
 186                                         $text .= " ($fields[1])";
 187                                 }
 188                                 if ($1 eq $current) {
 189                                         $tmp .= "<OPTION SELECTED>$text</OPTION>\n";
 190                                 } else {
 191                                         $tmp .= "<OPTION>$text</OPTION>\n";
 192                                 }
 193
 194                         }
 195                 }
 196         }
 197         close(VMAIL);
 198         return ($tmp, $category);
 199 }
 200
 201 sub mailbox_list()
 202 {
 203         local ($name, $context, $current) = @_;
 204         local $tmp;
 205         local $text;
 206         local $tmp;
 207         local $opts;
 208         if (!$context) {
 209                 $context = "default";
 210         }
 211         $tmp = "<SELECT name=\"$name\">\n";
 212         ($opts) = &mailbox_options($context, $current);
 213         $tmp .= $opts;
 214         $tmp .= "</SELECT>\n";
 215
 216 }
 217
 218 sub msgcount()
 219 {
 220         my ($context, $mailbox, $folder) = @_;
 221         my $path = "/var/spool/asterisk/voicemail/$context/$mailbox/$folder";
 222         if (opendir(DIR, $path)) {
 223                 my @msgs = grep(/^msg....\.txt$/, readdir(DIR));
 224                 closedir(DIR);
 225                 return sprintf "%d", $#msgs + 1;
 226         }
 227         return "0";
 228 }
 229
 230 sub msgcountstr()
 231 {
 232         my ($context, $mailbox, $folder) = @_;
 233         my $count = &msgcount($context, $mailbox, $folder);
 234         if ($count > 1) {
 235                 "$count messages";
 236         } elsif ($count > 0) {
 237                 "$count message";
 238         } else {
 239                 "no messages";
 240         }
 241 }
 242 sub messages()
 243 {
 244         my ($context, $mailbox, $folder) = @_;
 245         my $path = "/var/spool/asterisk/voicemail/$context/$mailbox/$folder";
 246         if (opendir(DIR, $path)) {
 247                 my @msgs = sort grep(/^msg....\.txt$/, readdir(DIR));
 248                 closedir(DIR);
 249                 return map { s/^msg(....)\.txt$/$1/; $_ } @msgs;
 250         }
 251         return ();
 252 }
 253
 254 sub getcookie()
 255 {
 256         my ($var) = @_;
 257         return cookie($var);
 258 }
 259
 260 sub makecookie()
 261 {
 262         my ($format) = @_;
 263         cookie(-name => "format", -value =>["$format"], -expires=>"+1y");
 264 }
 265
 266 sub getfields()
 267 {
 268         my ($context, $mailbox, $folder, $msg) = @_;
 269         my $fields;
 270         if (open(MSG, "</var/spool/asterisk/voicemail/$context/$mailbox/$folder/msg${msg}.txt")) {
 271                 while(<MSG>) {
 272                         s/\#.*$//g;
 273                         if (/^(\w+)\s*\=\s*(.*)$/) {
 274                                 $fields->{$1} = $2;
 275                         }
 276                 }
 277                 close(MSG);
 278                 $fields->{'msgid'} = $msg;
 279         } else { print "<BR>Unable to open '$msg' in '$mailbox', '$folder'\n<B>"; }
 280         $fields;
 281 }
 282
 283 sub message_prefs()
 284 {
 285         my ($nextaction, $msgid) = @_;
 286         my $folder = param('folder');
 287         my $mbox = param('mailbox');
 288         my $passwd = param('password');
 289         my $format = param('format');
 290         if (!$format) {
 291                 $format = &getcookie('format');
 292         }
 293         print header;
 294         print <<_EOH;
 295
 296 <TITLE>Asterisk Web-Voicemail: Preferences</TITLE>
 297 <BODY BGCOLOR="white">
 298 $stdcontainerstart
 299 <FORM METHOD="post">
 300 <table width=100% align=center>
 301 <tr><td align=right colspan=3><font size=+2>Web Voicemail Preferences</font></td></tr>
 302 <tr><td align=left><font size=+1>Preferred&nbsp;Audio&nbsp;Format:</font></td><td colspan=2></td></tr>
 303 _EOH
 304
 305 foreach $fmt (sort { $formats{$a}->{'pref'} <=> $formats{$b}->{'pref'} } keys %formats) {
 306         my $clicked = "checked" if $fmt eq $format;
 307         print "<tr><td></td><td align=left><input type=radio name=\"format\" $clicked value=\"$fmt\"></td><td width=100%>&nbsp;$formats{$fmt}->{name}</td></tr>\n";
 308 }
 309
 310 print <<_EOH;
 311 <tr><td align=right colspan=3><input type=submit value="save settings..."></td></tr>
 312 </table>
 313 <input type=hidden name="action" value="$nextaction">
 314 <input type=hidden name="folder" value="$folder">
 315 <input type=hidden name="mailbox" value="$mbox">
 316 <input type=hidden name="context" value="$context">
 317 <input type=hidden name="password" value="$passwd">
 318 <input type=hidden name="msgid" value="$msgid">
 319 $stdcontainerend
 320 </BODY>\n
 321 _EOH
 322
 323 }
 324
 325 sub message_play()
 326 {
 327         my ($message, $msgid) = @_;
 328         my $folder = param('folder');
 329         my ($mbox, $context) = split(/\@/, param('mailbox'));
 330         my $passwd = param('password');
 331         my $format = param('format');
 332
 333         my $fields;
 334         if (!$context) {
 335                 $context = param('context');
 336         }
 337         if (!$context) {
 338                 $context = "default";
 339         }
 340
 341         my $folders = &folder_list('newfolder', $context, $mbox, $folder);
 342         my $mailboxes = &mailbox_list('forwardto', $context, $mbox);
 343         if (!$format) {
 344                 $format = &getcookie('format');
 345         }
 346         if (!$format) {
 347                 &message_prefs("play", $msgid);
 348         } else {
 349                 print header(-cookie => &makecookie($format));
 350                 $fields = &getfields($context, $mbox, $folder, $msgid);
 351                 if (!$fields) {
 352                         print "<BR>Bah!\n";
 353                         return;
 354                 }
 355                 my $duration = $fields->{'duration'};
 356                 if ($duration) {
 357                         $duration = sprintf "%d:%02d", $duration/60, $duration % 60;
 358                 } else {
 359                         $duration = "<i>Unknown</i>";
 360                 }
 361                 print <<_EOH;
 362
 363 <TITLE>Asterisk Web-Voicemail: $folder Message $msgid</TITLE>
 364 <BODY BGCOLOR="white">
 365 $stdcontainerstart
 366 <FORM METHOD="post">
 367 <table width=100% align=center>
 368 <tr><td align=right colspan=3><font size=+1>$folder Message $msgid</font></td></tr>
 369 _EOH
 370
 371                 print <<_EOH;
 372 <tr><td align=center colspan=3>
 373 <table>
 374         <tr><td colspan=2 align=center><font size=+1>$folder <b>$msgid</b></font></td></tr>
 375         <tr><td><b>Message:</b></td><td>$msgid</td></tr>\n
 376         <tr><td><b>Mailbox:</b></td><td>$mbox</td></tr>\n
 377         <tr><td><b>Folder:</b></td><td>$folder</td></tr>\n
 378         <tr><td><b>From:</b></td><td>$fields->{callerid}</td></tr>\n
 379         <tr><td><b>Duration:</b></td><td>$duration</td></tr>\n
 380         <tr><td><b>Original Date:</b></td><td>$fields->{origdate}</td></tr>\n
 381         <tr><td><b>Original Mailbox:</b></td><td>$fields->{origmailbox}</td></tr>\n
 382         <tr><td><b>Caller Channel:</b></td><td>$fields->{callerchan}</td></tr>\n
 383         <tr><td align=center colspan=2>
 384         <input name="action" type=submit value="index">&nbsp;
 385         <input name="action" type=submit value="delete ">&nbsp;
 386         <input name="action" type=submit value="forward to -> ">&nbsp;
 387         $mailboxes&nbsp;
 388         <input name="action" type=submit value="save to ->">
 389         $folders&nbsp;
 390         <input name="action" type=submit value="play ">
 391         <input name="action" type=submit value="download">
 392 </td></tr>
 393 <tr><td colspan=2 align=center>
 394 <embed width=400 height=40 src="vmail.cgi?action=audio&folder=$folder&mailbox=$mbox&password=$passwd&msgid=$msgid&format=$format&dontcasheme=$$.$format" autostart=yes loop=false></embed>
 395 </td></tr></table>
 396 </td></tr>
 397 </table>
 398 <input type=hidden name="folder" value="$folder">
 399 <input type=hidden name="mailbox" value="$mbox">
 400 <input type=hidden name="context" value="$context">
 401 <input type=hidden name="password" value="$passwd">
 402 <input type=hidden name="msgid" value="$msgid">
 403 $stdcontainerend
 404 </BODY>\n
 405 _EOH
 406         }
 407 }
 408
 409 sub message_audio()
 410 {
 411         my ($forcedownload) = @_;
 412         my $folder = param('folder');
 413         my $msgid = param('msgid');
 414         my $mailbox = param('mailbox');
 415         my $format = param('format');
 416         if (!$format) {
 417                 $format = &getcookie('format');
 418         }
 419         my $path = "/var/spool/asterisk/vm/$mailbox/$folder/msg${msgid}.$format";
 420
 421         $msgid =~ /^\d\d\d\d$/ || die("Msgid Liar ($msgid)!");
 422         grep(/^${format}$/, keys %formats) || die("Format Liar ($format)!");
 423
 424         # Mailbox and folder are already verified
 425         if (open(AUDIO, "<$path")) {
 426                 $size = -s $path;
 427                 $|=1;
 428                 if ($forcedownload) {
 429                         print header(-type=>$formats{$format}->{'mime'}, -Content_length => $size, -attachment => "msg${msgid}.$format");
 430                 } else {
 431                         print header(-type=>$formats{$format}->{'mime'}, -Content_length => $size);
 432                 }
 433
 434                 while(($amt = sysread(AUDIO, $data, 4096)) > 0) {
 435                         syswrite(STDOUT, $data, $amt);
 436                 }
 437                 close(AUDIO);
 438         } else {
 439                 die("Hrm, can't seem to open $path\n");
 440         }
 441 }
 442
 443 sub message_index()
 444 {
 445         my ($folder, $message) = @_;
 446         my ($mbox, $context) = split(/\@/, param('mailbox'));
 447         my $passwd = param('password');
 448         my $message2;
 449         my $msgcount;
 450         my $hasmsg;
 451         my $newmessages, $oldmessages;
 452         my $format = param('format');
 453         if (!$format) {
 454                 $format = &getcookie('format');
 455         }
 456         if (!$context) {
 457                 $context = param('context');
 458         }
 459         if (!$context) {
 460                 $context = "default";
 461         }
 462         if ($folder) {
 463                 $msgcount = &msgcountstr($context, $mbox, $folder);
 464                 $message2 = "&nbsp;&nbsp;&nbsp;Folder '$folder' has " . &msgcountstr($context, $mbox, $folder);
 465         } else {
 466                 $newmessages = &msgcount($context, $mbox, "INBOX");
 467                 $oldmessages = &msgcount($context, $mbox, "Old");
 468                 if (($newmessages > 0) || ($oldmessages < 1)) {
 469                         $folder = "INBOX";
 470                 } else {
 471                         $folder = "Old";
 472                 }
 473                 $message2 = "You have";
 474                 if ($newmessages > 0) {
 475                         $message2 .= " <b>$newmessages</b> NEW";
 476                         if ($oldmessages > 0) {
 477                                 $message2 .= "and <b>$oldmessages</b> OLD";
 478                                 if ($oldmessages != 1) {
 479                                         $message2 .= " messages.";
 480                                 } else {
 481                                         $message2 .= "message.";
 482                                 }
 483                         } else {
 484                                 if ($newmessages != 1) {
 485                                         $message2 .= " messages.";
 486                                 } else {
 487                                         $message2 .= " message.";
 488                                 }
 489                         }
 490                 } else {
 491                         if ($oldmessages > 0) {
 492                                 $message2 .= " <b>$oldmessages</b> OLD";
 493                                 if ($oldmessages != 1) {
 494                                         $message2 .= " messages.";
 495                                 } else {
 496                                         $message2 .= " message.";
 497                                 }
 498                         } else {
 499                                 $message2 .= " <b>no</b> messages.";
 500                         }
 501                 }
 502         }
 503
 504         my $folders = &folder_list('newfolder', $context, $mbox, $folder);
 505         my $cfolders = &folder_list('changefolder', $context, $mbox, $folder);
 506         my $mailboxes = &mailbox_list('forwardto', $context, $mbox);
 507         print header(-cookie => &makecookie($format));
 508         print <<_EOH;
 509
 510 <TITLE>Asterisk Web-Voicemail: $mbox $folder</TITLE>
 511 <BODY BGCOLOR="white">
 512 $stdcontainerstart
 513 <FORM METHOD="post">
 514 <table width=100% align=center>
 515 <tr><td align=center colspan=2><font size=+2><I>$message</I></font></td></tr>
 516 <tr><td align=right colspan=2><font size=+1><b>$folder</b> Messages</font> <input type=submit name="action" value="change to ->">$cfolders</td></tr>
 517 <tr><td align=left colspan=2><font size=+1>$message2</font></td></tr>
 518 </table>
 519 <table width=100% align=center cellpadding=0 cellspacing=0>
 520 _EOH
 521
 522 print "<tr><td>&nbsp;Msg</td><td>&nbsp;From</td><td>&nbsp;Duration</td><td>&nbsp;Date</td><td>&nbsp;</td></tr>\n";
 523 print "<tr><td><hr></td><td><hr></td><td><hr></td><td><hr></td><td></td></tr>\n";
 524 foreach $msg (&messages($context, $mbox, $folder)) {
 525
 526         $fields = &getfields($context, $mbox, $folder, $msg);
 527         $duration = $fields->{'duration'};
 528         if ($duration) {
 529                 $duration = sprintf "%d:%02d", $duration / 60, $duration % 60;
 530         } else {
 531                 $duration = "<i>Unknown</i>";
 532         }
 533         $hasmsg++;
 534         print "<tr><td><input type=checkbox name=\"msgselect\" value=\"$msg\">&nbsp;<b>$msg</b></td><td>$fields->{'callerid'}</td><td>$duration</td><td>$fields->{'origdate'}</td><td><input name='play$msg' alt=\"Play message $msg\" border=0 type=image align=left src=\"$astpath/play.gif\"></td></tr>\n";
 535
 536 }
 537 if (!$hasmsg) {
 538         print "<tr><td colspan=4 align=center><P><b><i>No messages</i></b><P></td></tr>";
 539 }
 540
 541 print <<_EOH;
 542 </table>
 543 <table width=100% align=center>
 544 <tr><td align=right colspan=2>
 545         <input type="submit" name="action" value="refresh">&nbsp;
 546 _EOH
 547
 548 if ($hasmsg) {
 549 print <<_EOH;
 550         <input type="submit" name="action" value="delete">&nbsp;
 551         <input type="submit" name="action" value="save to ->">
 552         $folders&nbsp;
 553         <input type="submit" name="action" value="forward to ->">
 554         $mailboxes
 555 _EOH
 556 }
 557
 558 print <<_EOH;
 559 </td></tr>
 560 <tr><td align=right colspan=2>
 561         <input type="submit" name="action" value="preferences">
 562         <input type="submit" name="action" value="logout">
 563 </td></tr>
 564 </table>
 565 <input type=hidden name="folder" value="$folder">
 566 <input type=hidden name="mailbox" value="$mbox">
 567 <input type=hidden name="context" value="$context">
 568 <input type=hidden name="password" value="$passwd">
 569 </FORM>
 570 $stdcontainerend
 571 </BODY>\n
 572 _EOH
 573 }
 574
 575 sub validfolder()
 576 {
 577         my ($folder) = @_;
 578         return grep(/^$folder$/, @validfolders);
 579 }
 580
 581 sub folder_list()
 582 {
 583         my ($name, $context, $mbox, $selected) = @_;
 584         my $f;
 585         my $count;
 586         my $tmp = "<SELECT name=\"$name\">\n";
 587         foreach $f (@validfolders) {
 588                 $count =  &msgcount($context, $mbox, $f);
 589                 if ($f eq $selected) {
 590                         $tmp .= "<OPTION SELECTED>$f ($count)</OPTION>\n";
 591                 } else {
 592                         $tmp .= "<OPTION>$f ($count)</OPTION>\n";
 593                 }
 594         }
 595         $tmp .= "</SELECT>";
 596 }
 597
 598 sub message_rename()
 599 {
 600         my ($context, $mbox, $oldfolder, $old, $newfolder, $new) = @_;
 601         my $oldfile, $newfile;
 602         return if ($old eq $new) && ($oldfolder eq $newfolder);
 603
 604         if ($context =~ /^(\w+)$/) {
 605                 $context = $1;
 606         } else {
 607                 die("Invalid Context<BR>\n");
 608         }
 609
 610         if ($mbox =~ /^(\w+)$/) {
 611                 $mbox = $1;
 612         } else {
 613                 die ("Invalid mailbox<BR>\n");
 614         }
 615
 616         if ($oldfolder =~ /^(\w+)$/) {
 617                 $oldfolder = $1;
 618         } else {
 619                 die("Invalid old folder<BR>\n");
 620         }
 621
 622         if ($newfolder =~ /^(\w+)$/) {
 623                 $newfolder = $1;
 624         } else {
 625                 die("Invalid new folder ($newfolder)<BR>\n");
 626         }
 627
 628         if ($old =~ /^(\d\d\d\d)$/) {
 629                 $old = $1;
 630         } else {
 631                 die("Invalid old Message<BR>\n");
 632         }
 633
 634         if ($new =~ /^(\d\d\d\d)$/) {
 635                 $new = $1;
 636         } else {
 637                 die("Invalid old Message<BR>\n");
 638         }
 639
 640         my $path = "/var/spool/asterisk/voicemail/$context/$mbox/$newfolder";
 641         mkdir $path, 0755;
 642         my $path = "/var/spool/asterisk/voicemail/$context/$mbox/$oldfolder";
 643         opendir(DIR, $path) || die("Unable to open directory\n");
 644         my @files = grep /^msg${old}\.\w+$/, readdir(DIR);
 645         closedir(DIR);
 646         foreach $oldfile (@files) {
 647                 my $tmp = $oldfile;
 648                 if ($tmp =~ /^(msg${old}.\w+)$/) {
 649                         $tmp = $1;
 650                         $oldfile = $path . "/$tmp";
 651                         $tmp =~ s/msg${old}/msg${new}/;
 652                         $newfile = "/var/spool/asterisk/voicemail/$context/$mbox/$newfolder/$tmp";
 653 #                       print "Renaming $oldfile to $newfile<BR>\n";
 654                         rename($oldfile, $newfile);
 655                 }
 656         }
 657 }
 658
 659 sub file_copy()
 660 {
 661         my ($orig, $new) = @_;
 662         my $res;
 663         my $data;
 664         open(IN, "<$orig") || die("Unable to open '$orig'\n");
 665         open(OUT, ">$new") || DIE("Unable to open '$new'\n");
 666         while(($res = sysread(IN, $data, 4096)) > 0) {
 667                 syswrite(OUT, $data, $res);
 668         }
 669         close(OUT);
 670         close(IN);
 671 }
 672
 673 sub message_copy()
 674 {
 675         my ($mbox, $newmbox, $oldfolder, $old, $new) = @_;
 676         my $oldfile, $newfile;
 677         return if ($mbox eq $newmbox);
 678
 679         if ($mbox =~ /^(\w+)$/) {
 680                 $mbox = $1;
 681         } else {
 682                 die ("Invalid mailbox<BR>\n");
 683         }
 684
 685         if ($newmbox =~ /^(\w+)$/) {
 686                 $newmbox = $1;
 687         } else {
 688                 die ("Invalid new mailbox<BR>\n");
 689         }
 690
 691         if ($oldfolder =~ /^(\w+)$/) {
 692                 $oldfolder = $1;
 693         } else {
 694                 die("Invalid old folder<BR>\n");
 695         }
 696
 697         if ($old =~ /^(\d\d\d\d)$/) {
 698                 $old = $1;
 699         } else {
 700                 die("Invalid old Message<BR>\n");
 701         }
 702
 703         if ($new =~ /^(\d\d\d\d)$/) {
 704                 $new = $1;
 705         } else {
 706                 die("Invalid old Message<BR>\n");
 707         }
 708
 709         my $path = "/var/spool/asterisk/vm/$newmbox";
 710         mkdir $path, 0755;
 711         my $path = "/var/spool/asterisk/vm/$newmbox/INBOX";
 712         mkdir $path, 0755;
 713         my $path = "/var/spool/asterisk/vm/$mbox/$oldfolder";
 714         opendir(DIR, $path) || die("Unable to open directory\n");
 715         my @files = grep /^msg${old}\.\w+$/, readdir(DIR);
 716         closedir(DIR);
 717         foreach $oldfile (@files) {
 718                 my $tmp = $oldfile;
 719                 if ($tmp =~ /^(msg${old}.\w+)$/) {
 720                         $tmp = $1;
 721                         $oldfile = $path . "/$tmp";
 722                         $tmp =~ s/msg${old}/msg${new}/;
 723                         $newfile = "/var/spool/asterisk/vm/$newmbox/INBOX/$tmp";
 724 #                       print "Copying $oldfile to $newfile<BR>\n";
 725                         &file_copy($oldfile, $newfile);
 726                 }
 727         }
 728 }
 729
 730 sub message_delete()
 731 {
 732         my ($context, $mbox, $folder, $msg) = @_;
 733         if ($mbox =~ /^(\w+)$/) {
 734                 $mbox = $1;
 735         } else {
 736                 die ("Invalid mailbox<BR>\n");
 737         }
 738         if ($context =~ /^(\w+)$/) {
 739                 $context = $1;
 740         } else {
 741                 die ("Invalid context<BR>\n");
 742         }
 743         if ($folder =~ /^(\w+)$/) {
 744                 $folder = $1;
 745         } else {
 746                 die("Invalid folder<BR>\n");
 747         }
 748         if ($msg =~ /^(\d\d\d\d)$/) {
 749                 $msg = $1;
 750         } else {
 751                 die("Invalid Message<BR>\n");
 752         }
 753         my $path = "/var/spool/asterisk/voicemail/$context/$mbox/$folder";
 754         opendir(DIR, $path) || die("Unable to open directory\n");
 755         my @files = grep /^msg${msg}\.\w+$/, readdir(DIR);
 756         closedir(DIR);
 757         foreach $oldfile (@files) {
 758                 if ($oldfile =~ /^(msg${msg}.\w+)$/) {
 759                         $oldfile = $path . "/$1";
 760 #                       print "Deleting $oldfile<BR>\n";
 761                         unlink($oldfile);
 762                 }
 763         }
 764 }
 765
 766 sub message_forward()
 767 {
 768         my ($toindex, @msgs) = @_;
 769         my $folder = param('folder');
 770         my ($mbox, $context) = split(/\@/, param('mailbox'));
 771         my $newmbox = param('forwardto');
 772         my $msg;
 773         my $msgcount;
 774         if (!$context) {
 775                 $context = param('context');
 776         }
 777         if (!$context) {
 778                 $context = "default";
 779         }
 780         $newmbox =~ s/(\w+)(\s+.*)?$/$1/;
 781         if (!&validmailbox($context, $newmbox)) {
 782                 die("Bah! Not a valid mailbox '$newmbox'\n");
 783                 return "";
 784         }
 785         $msgcount = &msgcount($context, $newmbox, "INBOX");
 786         my $txt;
 787         if ($newmbox ne $mbox) {
 788 #               print header;
 789                 foreach $msg (@msgs) {
 790 #                       print "Forwarding $msg from $mbox to $newmbox<BR>\n";
 791                         &message_copy($mbox, $newmbox, $folder, $msg, sprintf "%04d", $msgcount);
 792                         $msgcount++;
 793                 }
 794                 $txt = "Forwarded messages " . join(', ', @msgs) . "to $newmbox";
 795         } else {
 796                 $txt = "Can't forward messages to yourself!\n";
 797         }
 798         if ($toindex) {
 799                 &message_index($folder, $txt);
 800         } else {
 801                 &message_play($txt, $msgs[0]);
 802         }
 803 }
 804
 805 sub message_delete_or_move()
 806 {
 807         my ($toindex, $del, @msgs) = @_;
 808         my $txt;
 809         my $path;
 810         my $y, $x;
 811         my $folder = param('folder');
 812         my $newfolder = param('newfolder') unless $del;
 813         $newfolder =~ s/^(\w+)\s+.*$/$1/;
 814         my ($mbox, $context) = split(/\@/, param('mailbox'));
 815         if (!$context) {
 816                 $context = param('context');
 817         }
 818         if (!$context) {
 819                 $context = "default";
 820         }
 821         my $passwd = param('password');
 822         my $msgcount = &msgcount($context, $mbox, $folder);
 823         my $omsgcount = &msgcount($context, $mbox, $newfolder) if $newfolder;
 824 #       print header;
 825         if ($newfolder ne $folder) {
 826                 $y = 0;
 827                 for ($x=0;$x<$msgcount;$x++) {
 828                         my $msg = sprintf "%04d", $x;
 829                         my $newmsg = sprintf "%04d", $y;
 830                         if (grep(/^$msg$/, @msgs)) {
 831                                 if ($newfolder) {
 832                                         &message_rename($context, $mbox, $folder, $msg, $newfolder, sprintf "%04d", $omsgcount);
 833                                         $omsgcount++;
 834                                 } else {
 835                                         &message_delete($context, $mbox, $folder, $msg);
 836                                 }
 837                         } else {
 838                                 &message_rename($context, $mbox, $folder, $msg, $folder, $newmsg);
 839                                 $y++;
 840                         }
 841                 }
 842                 if ($del) {
 843                         $txt = "Deleted messages "  . join (', ', @msgs);
 844                 } else {
 845                         $txt = "Moved messages "  . join (', ', @msgs) . " to $newfolder";
 846                 }
 847         } else {
 848                 $txt = "Can't move a message to the same folder they're in already";
 849         }
 850         # Not as many messages now
 851         $msgcount--;
 852         if ($toindex || ($msgs[0] >= $msgcount)) {
 853                 &message_index($folder, $txt);
 854         } else {
 855                 &message_play($txt, $msgs[0]);
 856         }
 857 }
 858
 859 if (param()) {
 860         my $folder = param('folder');
 861         my $changefolder = param('changefolder');
 862         $changefolder =~ s/(\w+)\s+.*$/$1/;
 863
 864         my $newfolder = param('newfolder');
 865         $newfolder =~ s/^(\w+)\s+.*$/$1/;
 866         if ($newfolder && !&validfolder($newfolder)) {
 867                 print header;
 868                 die("Bah! new folder '$newfolder' isn't a folder.");
 869         }
 870         $action = param('action');
 871         $msgid = param('msgid');
 872         if (!$action) {
 873                 my ($tmp) = grep /^play\d\d\d\d\.x$/, param;
 874                 if ($tmp =~ /^play(\d\d\d\d)/) {
 875                         $msgid = $1;
 876                         $action = "play";
 877                 } else {
 878                         print header;
 879                         print "No message?<BR>\n";
 880                         return;
 881                 }
 882         }
 883         @msgs = param('msgselect');
 884         @msgs = ($msgid) unless @msgs;
 885         {
 886                 ($mailbox) = &check_login();
 887                 if (length($mailbox)) {
 888                         if ($action eq 'login') {
 889                                 &message_index($folder, "Welcome, $mailbox");
 890                         } elsif (($action eq 'refresh') || ($action eq 'index')) {
 891                                 &message_index($folder, "Welcome, $mailbox");
 892                         } elsif ($action eq 'change to ->') {
 893                                 if (&validfolder($changefolder)) {
 894                                         $folder = $changefolder;
 895                                         &message_index($folder, "Welcome, $mailbox");
 896                                 } else {
 897                                         die("Bah!  Not a valid change to folder '$changefolder'\n");
 898                                 }
 899                         } elsif ($action eq 'play') {
 900                                 &message_play("$mailbox $folder $msgid", $msgid);
 901                         } elsif ($action eq 'preferences') {
 902                                 &message_prefs("refresh", $msgid);
 903                         } elsif ($action eq 'download') {
 904                                 &message_audio(1);
 905                         } elsif ($action eq 'play ') {
 906                                 &message_audio(0);
 907                         } elsif ($action eq 'audio') {
 908                                 &message_audio(0);
 909                         } elsif ($action eq 'delete') {
 910                                 &message_delete_or_move(1, 1, @msgs);
 911                         } elsif ($action eq 'delete ') {
 912                                 &message_delete_or_move(0, 1, @msgs);
 913                         } elsif ($action eq 'forward to ->') {
 914                                 &message_forward(1, @msgs);
 915                         } elsif ($action eq 'forward to -> ') {
 916                                 &message_forward(0, @msgs);
 917                         } elsif ($action eq 'save to ->') {
 918                                 &message_delete_or_move(1, 0, @msgs);
 919                         } elsif ($action eq 'save to -> ') {
 920                                 &message_delete_or_move(0, 0, @msgs);
 921                         } elsif ($action eq 'logout') {
 922                                 &login_screen("Logged out!\n");
 923                         }
 924                 } else {
 925                         sleep(1);
 926                         &login_screen("Login Incorrect!\n");
 927                 }
 928         }
 929 } else {
 930         &login_screen("\&nbsp;");
 931 }