#!/usr/bin/perl

#
# NZ SMS 1.0
# Autor: Maciej Kozinski
# maciej_kozinski@yahoo.com
# http://www.geocities.com/maciej_kozinski/
#

use Getopt::Std;
use Digest::MD5 qw (md5 md5_hex md5_base64);

getopt ('s');

print<<EOF;

  NZ SMS 1.0
  Autor: Maciej Kozinski
  maciej_kozinski\@yahoo.com	
  http://www.geocities.com/maciej_kozinski/

EOF

$dir = "/tmp/sms/";

if ( ! -d $dir ) {
  umask 0000;
  mkdir $dir,0777;
  chown 0,0,$dir;
 }

while ($num = & getnum ()) {
  if ($msg = & getmsg ()) {
   $content = $num ." ".$msg;
   $digest = md5_hex ($content);
   $filename = $dir.$digest;
   open (PLIK, ">$filename") or die "Nie moge otworzyc pliku $filename!\n";
   print PLIK $content;
   close (PLIK);
  }
 }



sub getnum () {
 print "Podaj numer telefonu: ";
 my $n = <STDIN>;
 if ($n =~ /([56]0[0-9]{6}\d)/) {
  $n = $1;
 }
  else 
  {
 print "Bledny numer telefonu!\n" if ($n =~ /.+/);;
 $n = 0;
  }
 return $n;
}

sub getmsg () {
 print "Podaj wiadomosc:      ";
 $m = <STDIN>;
 if ($m =~ /(.{3,150})/) {
   $m = $1;
  }
  else 
  {
   $m = 0;
  }
}
