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

 

 

 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 =~ s/</\&lt\;/g;

 #~ return $svg;

 

 

 $svg = &repair_file($svg);

 

 

 

 	

 &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

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

 

 	

 }