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

 

 

 $ref = retrieve('file');

 

 #print Dumper $$ref;

 &echo($$ref);

 #&impose($$ref);

 

 

 

 

 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};

 }

 

 

 

 

 #my $y=$svg->group(

 #        id    => 'group_y'    );

 #

 #my $f=$svg->group(

 #        id    => 'group_f'    ,

 #        transform => "$base"

 #        

 #        );

 #        

 # 

 

       

   

         

         

         

 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 echo 

 {

 	

 	

 my $svg = $_[0];

 

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

 #~ $svg =~ s/</\&lt\;/g;

 #~ return $svg;

 

 

 #$svg = &repair_file($svg);

 

 $svg = &impose($svg);

 

 

 #print $svg;

 open OUT, '>C:/Documents and Settings/Robert McIntyre/Desktop/perlOut.svg';

 select OUT;

 print  $svg;

 close OUT;

 

 #&mail($svg, $destination);

 

 return "done.";	

 	

 }

 

 

 

 

 

 

 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

 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"

 

 );

 

 

 $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;

 	

 }