#!/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;

 

 my $q = new CGI;

 

 

 

 my %hash = 

 ( 

 '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

 {

   {

     local( $/, *FH ) ;

     open( FH, "<./echo.html" ) or die "sudden flaming death\n";

     $a = <FH>;

    }

 

   {

     local( $/, *FH ) ;

     open( FH, "<./top_menu.include" ) or die "sudden flaming death\n";

     $b = <FH>;

    }

 

 

 

 $a =~ s/PERL-REPLACE::TOP_MENU/$b/; #equivalent to <?php include("top_menu.html"); ?>, but in perl and with more memory problems :)

 

 

 

 return $a

 

 

 }

 

 

 

 sub echo 

 {

 	

 	

 my $svg = $_[0];

 

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

 

 

 

 

 $svg = &impose($svg);

 

 

 

 

 	

 &mail($svg, $destination);

 

 

 

 

 return "done.";	

 	

 }

 

 

 

 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.

 

 $sss =  $_[0];

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

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

 # you fucking bitch!

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

 

 

 # read XML file

 my $xml = new XML::Simple;

 my $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"

 

 );

 

 

 

 

 #print Dumper(%juzz);

 

 

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

 

 #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..21)  #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++)

 {

 

 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

 Content-Type: application/octet-stream; name="huh.txt"

 Content-Transfer-Encoding: base64

 Content-Disposition: attachment; filename="huh.txt"

 

 $attach2

 $boundary--

 

 END_OF_BODY

 

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

 

 	

 }