home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / sms435.exe / userexit < prev   
Text File  |  2000-03-05  |  2KB  |  63 lines
  1. #!/usr/bin/perl
  2.  
  3. $mailprogram = "/usr/lib/sendmail -t > /dev/null";
  4. #$mailprogram = "sendmail -t > nul";
  5. if ($ARGV[0] eq "-1") {
  6.    if (open(MAIL, "|".$mailprogram)) {
  7.       print MAIL "To: ", $ARGV[1], "\n";
  8.       print MAIL "From: SendSMS\n";
  9.       print MAIL "Subject: Message not delivered\n\n";
  10.       print MAIL "Your follwing message to ", $ARGV[2], " couldn't be delivered.\n\n";
  11.       print MAIL $ARGV[3], "\n";
  12.       close(MAIL);
  13.    }
  14. } elsif ($ARGV[0] eq "1") {
  15.    if (open(MAIL, "|".$mailprogram)) {
  16.       print MAIL "To: ", $ARGV[1], "\n";
  17.       print MAIL "From: SendSMS\n";
  18.       print MAIL "Subject: Message sent successfully\n\n";
  19.       print MAIL "Your following message to ", $ARGV[2], " has been sent successfully.\n\n";
  20.       print MAIL $ARGV[3], "\n";
  21.       close(MAIL);
  22.    }
  23. } elsif ($ARGV[0] eq "2") {
  24.    if (open(MAIL, "|".$mailprogram)) {
  25.       print MAIL "To: ", $ARGV[2], "\n";
  26.       print MAIL "From: SendSMS\n";
  27.       print MAIL "Subject: Message received\n\n";
  28.       print MAIL "The following message from ", $ARGV[1], " has been received.\n\n";
  29.       print MAIL $ARGV[3], "\n";
  30.       close(MAIL);
  31.       if ("\L$ARGV[3]" eq "#!getdate()") {
  32.          local($date);
  33.  
  34.          $date = scalar localtime;
  35.          `sendsms -d$ARGV[5] $ARGV[1] \"$date\"`;
  36.       } elsif ("\L$ARGV[3]" eq "#!hostname()") {
  37.          local($host);
  38.  
  39.          $host = hostname();
  40.          `sendsms -d$ARGV[5] $ARGV[1] \"$host\"`;
  41.       }
  42.    }
  43. } elsif ($ARGV[0] eq "3") {
  44.    if (open(MAIL, "|".$mailprogram)) {
  45.       print MAIL "To: ", $ARGV[2], "\n";
  46.       print MAIL "From: SendSMS\n";
  47.       print MAIL "Subject: Status request\n\n";
  48.       print MAIL "Status report for a message to ", $ARGV[1], " has been received.\n\n";
  49.       print MAIL $ARGV[3], "\n";
  50.       close(MAIL);
  51.    }
  52. } elsif ($ARGV[0] eq "4") {
  53.    if (open(MAIL, "|".$mailprogram)) {
  54.       print MAIL "To: ", $ARGV[2], "\n";
  55.       print MAIL "From: SendSMS\n";
  56.       print MAIL "Subject: Message deleted\n\n";
  57.       print MAIL "Message for ", $ARGV[1], " has been deleted.\n\n";
  58.       print MAIL $ARGV[3], "\n";
  59.       close(MAIL);
  60.    }
  61. }
  62. exit;
  63.