#!/usr/bin/perl

 

 

 use List::Util qw(first max maxstr min minstr reduce shuffle sum);

 use Storable;

 use CGI::Ajax;

 use CGI qw(:standard);

 use URI::Escape;

 use MIME::QuotedPrint;

 use MIME::Base64;

 use Mail::Sendmail 0.75; # doesn't work with v. 0.74!

 use XML::Simple;

 use Data::Dumper;

 $Data::Dumper::Indent = 1;

 use Storable;

 use SVG;

 use Laserkard;

 

 

 my $q = new CGI;

 

 

 

 my %hash = 

 ( 

 'material' => \&Laserkard::material,

 'template'	=> \&Laserkard::template, 

 'inputbox'	=> \&Laserkard::inputbox,

 'display'	=> \&Laserkard::display,

 'change_rules' => \&Laserkard::change_rules,

 'vanish'      => \&Laserkard::vanish,

 'updateForm'  => \&Laserkard::updateForm,

 'cardType'    => \&Laserkard::cardType,

 'echo' => \&echo

 );

 

  

 

 my $pjx = CGI::Ajax->new(%hash);

 

 # this outputs the html for the page, and stops caching, so the fucker will work in IE.

 print $pjx->build_html($q,\&gen,{-Cache_Control => 'no-store, no-cache, must-revalidate', -Pragma => 'no-cache'}); 

 

 

 

 

 sub gen

 {

 

 

 

 

 

 $a = Laserkard::genEcho();

 

 

 

 

 return $a

 

 

 }

 

 

 

 sub echo 

 {

 	

 

 	

 my $svg = shift;

 

 

 

 #my $destination = 'rlm@mit.edu';	

 

 

 

 

 

 

 

 my @cards = split (/S3ntinEL/, $svg);

 my $emmmm = shift;

 #return $emmmm;

 

 $cardsPerMail = 30;

 ##### ok, now we have this awesome array with all the cards we need to print.

 # the numbers are right, so now we really just have to impose them.

 for $mails(0..int(($#cards) / $cardsPerMail))

 {

 

 

 my $start = $mails * $cardsPerMail;

 

 my $end =  ($#cards >($start + $cardsPerMail)) ?  ($start + $cardsPerMail)  :  $#cards;

 

 $svg = &impose(@cards[$start..$end]);

 #$svg = &impose($cards[$end]);

 	

 &mail($svg, $emmmm);

 }

 

 

 #return "Success";

 return "<h1>Success!</h1><br>".(int(($#cards) / $cardsPerMail)+1). " email(s) <br>Succesuffuly sent to : $emmmm<br>".($#cards+1). " cards were included in the SVG file(s).";

 

 

 

 	

 	

 }

 

 

 

 sub impose

 {

 

 #here $svg is a string which contains the properly formatted svg data for one card

 #out purpose here is to take that one card, size it correctly, and make appropiate copies 

 #so that our supplier can simply import the file and print.

 

 my $xml = new XML::Simple;

 my @cards = @_;

 

 

 for (0..$#cards)

 {

 

 $cards[$_] =~ s/^/\n\n\n/;

 $cards[$_] =~ s/$/\n\n\n/;

 # you fucking bitch!

 $cards[$_] =~ s/Created wit........//;

 }

 

 # read XML file

 

 

 

 

 #print Dumper(%juzz);

 

 

 my $svg= SVG->new(width=>"18in",height=>"14in");

 

 #print Dumper($juzz{'path'}[2]);

 #print "\n***************************\n";

 #print Dumper($pathData);

 

 

 

 

 my $base = "scale(0.6057),matrix(1 0 0 -1 0 317), rotate(180),translate(-514,-317)";

 

 

 my @cardCollection;

 

 for $name(0..$#cards)  #22 letters for 22 cards

 {

 	

 	#calcuate the thing's place in the grid:

 	

 	$cardsToARow = 5;

 	$cardsToAColumn =  5;

 	

 	my $row = int($name/$cardsToARow);  #  cards to a row 

 	my $column = int($name %  $cardsToAColumn);

 	

 	$margin = 25;

 	$cardWidth   =  514*0.6057;

 	$cardHeight  = 	317*0.6057;

 	

 	

 	$transX = 40 + ($margin + $cardWidth ) * $column;

 	$transY = 40 + ($margin + $cardHeight) * $row;

 	

 	

 	

 	${"group_".$name} = 

 	$svg->group(

     id    => "group_".$name,    

 	transform => "translate($transX,$transY),"."$base"

 	);

 	

 	push @cardCollection, ${"group_".$name};

 }

 

 

 

       

 

 

         

         

         

 for ($i = 0; $i <= $#cardCollection; $i++)

 {

 

 

 my $data = $xml->XMLin($cards[$i], ForceArray => 1);

 

 

 my %data = %$data;

 

 my %juzz  = 

 (

 

 path	=> $data{'path'},

 rect 	=> $data{'rect'},

 width	=>"16in" ,

 height	=>"12in" ,

 version	=>"1.1",

 xmlns	=>"http://www.w3.org/2000/svg"

 

 );

 

 

 for $pathData(@{$juzz{'path'}})

 {

 $cardCollection[$i]->tag('path', %{$pathData});

 }

 

 for $pathData(@{$juzz{'rect'}})

 {

 $cardCollection[$i]->tag('rect', %{$pathData});

 }

 

 

 }

 

 

 

 #my $tag = $svg->tag('path', $juzz{'path'});

 

 

 #$tag = $svg->group(%attributes);

 

 

 $output =  $svg->xmlify;

 

 

 $killCopyrigt = <<HERE;

 <!-- 

 	Generated using the Perl SVG Module V2.49

 	by Ronan Oger

 	Info: http://www.roitsystems.com/

  -->

 HERE

 

 $output =~ s/$killCopyrigt/\n/;

 

 return $output;

 

 	

 	

 }

 

 

 sub repair_file

 {

 

 

 $sss =  $_[0];

 

 

 

 $sss =~ s/^/\n\n\n/;

 $sss =~ s/$/\n\n\n/;

 # you fucking bitch.

 $sss =~ s/Created wit........//;

 

 

 store \$sss, 'file';

 

 # read XML file

 $xml = new XML::Simple;

 $data = $xml->XMLin($sss, ForceArray => 1);

 

 

 my %data = %$data;

 

 my %juzz  = 

 (

 

 path	=> $data{'path'},

 rect 	=> $data{'rect'},

 width	=>"16in" ,

 height	=>"12in" ,

 version	=>"1.1",

 xmlns	=>"http://www.w3.org/2000/svg"

 

 );

 

 

 $out = $xml->XMLout(\%juzz , RootName=>'svg');

 

 

 my $fixed = <<HERE;

 <?xml version="1.0" standalone="no"?>

 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" 

   "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">

 HERE

  

 

 

 $fixed .= $out;

 

 #print $fixed;

 return $fixed;

 	

 }	

 	

 	

 	

 sub mail

 {

 	

 	

 	

 %mail = 

 (

 from => 'rlm@mit.edu',

 to => $_[1],

 subject => 'Test attachment',

 );

 

 

 $boundary = "====" . time() . "====";

 $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";

 

 $message = encode_qp( "email from your friend PERL." );

 

 $attach1 = encode_base64($_[0]);  # this part is so cool!  I can e-mail a perl varible to anyone in the world!

 

 $attach2 = encode_base64("hi this is a test arttacghjkalsdlasndlashdlsf");

 

 

 

 

 

 $boundary = '--'.$boundary;

 $mail{body} = <<END_OF_BODY;

 $boundary

 Content-Type: text/plain; charset="iso-8859-1"

 Content-Transfer-Encoding: quoted-printable

 

 $message

 $boundary

 Content-Type: application/octet-stream; name="test.svg"

 Content-Transfer-Encoding: base64

 Content-Disposition: attachment; filename="test.svg"

 

 $attach1

 

 

 $boundary--

 

 END_OF_BODY

 

 sendmail(%mail) || print "Error: $Mail::Sendmail::error\n";

 

 	

 }