File Coverage

blib/lib/Net/MSN/SB.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

# Net::MSN::SB - SwitchBoard class for Net::MSN.
# Originally written by:
#  Adam Swann - http://www.adamswann.com/library/2002/msn-perl/
# Modified by:
#  David Radunz - http://www.boxen.net/
#
# $Id: SB.pm,v 1.3 2003/07/02 14:14:55 david Exp $

package Net::MSN::SB;

use strict;
use warnings;

BEGIN {
  use base 'Net::MSN::Base';

  use vars qw($VERSION);

  $VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%03d"x$#r,@r };
}

sub new {
  my ($class, %args) = @_;

  my %defaults = (
    _Type	=>	'SB'
  );
  my $self = __PACKAGE__->SUPER::new(
    __PACKAGE__->SUPER::merge_opts(\%defaults, \%args)
  );

  return $self;
}

sub sendmsg {
  my ($self, $message, $type) = @_;

  $type = $type || 'N';

  my $header = qq{MIME-Version: 1.0\nContent-Type: text/plain; charset=UTF-8\nX-MMS-IM-Format: FN=MS%20Shell%20Dlg; EF=; CO=0; CS=0; PF=0\n\n};

  $message = $header. $message;
  $message =~ s/\n/\r\n/gs;

  $self->sendraw('MSG', $type. ' ' . length($message) . "\r\n" . $message);
}

return 1;