1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/echo.pl	Sun Jan 24 09:37:47 2010 -0500
     1.3 @@ -0,0 +1,224 @@
     1.4 +#!/usr/bin/perl
     1.5 +
     1.6 +
     1.7 +use List::Util qw(first max maxstr min minstr reduce shuffle sum);
     1.8 +use Storable;
     1.9 +use CGI::Ajax;
    1.10 +use CGI qw(:standard);
    1.11 +use URI::Escape;
    1.12 +use MIME::QuotedPrint;
    1.13 +use MIME::Base64;
    1.14 +use Mail::Sendmail 0.75; # doesn't work with v. 0.74!
    1.15 +use XML::Simple;
    1.16 +use Data::Dumper;
    1.17 +$Data::Dumper::Indent = 1;
    1.18 +
    1.19 +
    1.20 +my $q = new CGI;
    1.21 +
    1.22 +
    1.23 +
    1.24 +my %hash = 
    1.25 +( 
    1.26 +'echo' => \&echo
    1.27 +);
    1.28 +
    1.29 + 
    1.30 +
    1.31 +my $pjx = CGI::Ajax->new(%hash);
    1.32 +
    1.33 +# this outputs the html for the page, and stops caching, so the fucker will work in IE.
    1.34 +print $pjx->build_html($q,\&gen,{-Cache_Control => 'no-store, no-cache, must-revalidate', -Pragma => 'no-cache'}); 
    1.35 +
    1.36 +
    1.37 +
    1.38 +
    1.39 +sub gen
    1.40 +{
    1.41 +  {
    1.42 +    local( $/, *FH ) ;
    1.43 +    open( FH, "<./echo.html" ) or die "sudden flaming death\n";
    1.44 +    $a = <FH>;
    1.45 +   }
    1.46 +
    1.47 +  {
    1.48 +    local( $/, *FH ) ;
    1.49 +    open( FH, "<./top_menu.include" ) or die "sudden flaming death\n";
    1.50 +    $b = <FH>;
    1.51 +   }
    1.52 +
    1.53 +
    1.54 +
    1.55 +$a =~ s/PERL-REPLACE::TOP_MENU/$b/; #equivalent to <?php include("top_menu.html"); ?>, but in perl and with more memory problems :)
    1.56 +
    1.57 +
    1.58 +
    1.59 +return $a
    1.60 +
    1.61 +
    1.62 +}
    1.63 +
    1.64 +
    1.65 +
    1.66 +sub echo 
    1.67 +{
    1.68 +	
    1.69 +	
    1.70 +my $svg = $_[0];
    1.71 +
    1.72 +my $destination = 'rlm@mit.edu';	
    1.73 +
    1.74 +	
    1.75 +$svg = &repair_file($svg);
    1.76 +&mail($svg, $destination);
    1.77 +
    1.78 +
    1.79 +
    1.80 +
    1.81 +return "done.";	
    1.82 +	
    1.83 +}
    1.84 +
    1.85 +
    1.86 +sub repair_file
    1.87 +{
    1.88 +my $svg =  $_[0];
    1.89 +
    1.90 +$xml = new XML::Simple;
    1.91 +
    1.92 +
    1.93 +$sss = <<HERE;
    1.94 +
    1.95 +<svg height="318" width="515" version="1.1" xmlns="http://www.w3.org/2000/svg">
    1.96 +<desc>Created with Raphaël</desc>
    1.97 +<defs></defs>
    1.98 +<rect stroke="#0000ff" fill="none" ry="0" rx="0" r="0" height="317" width="514" y="0.5" x="0.5"></rect>
    1.99 +<path transform="" d="M30.9375,118.95833333333334L42.8125,118.95833333333334L38.2295,141.45833333333334L62.6045,118.95833333333334L78.2295,118.95833333333334L52.3955,141.04133333333334L68.8545,172.50033333333334L55.5205,172.50033333333334L43.4375,148.33333333333334L35.1045,155.62533333333334L31.5625,172.50033333333334L19.8955,172.50033333333334Z" stroke="#ff0000" fill="#ff0000"></path>
   1.100 +<path transform="" d="M104.06249999999994,148.95833333333334C105.31249999999994,138.54133333333334,90.72949999999994,138.75033333333334,87.60449999999994,145.83333333333334C86.97949999999994,146.87533333333334,86.56249999999994,147.91633333333334,86.14549999999994,148.95833333333334L104.06249999999994,148.95833333333334ZM96.14549999999994,132.70833333333334C109.68749999999994,132.29133333333334,116.56249999999994,141.87533333333334,113.64549999999994,155.62533333333334L85.10449999999994,155.62533333333334C84.47949999999994,162.08333333333334,87.60449999999994,165.62533333333334,93.64549999999994,165.62533333333334C97.81249999999994,165.41633333333334,99.68749999999994,162.70833333333334,101.56249999999994,160.20833333333334L112.18749999999994,160.20833333333334C109.06249999999994,168.54133333333334,103.43749999999994,173.75033333333334,91.97949999999994,173.54133333333334C80.93749999999994,173.54133333333334,74.89549999999994,168.00033333333334,74.89549999999994,156.66633333333334C74.89549999999994,142.91633333333334,82.18749999999994,133.12533333333334,96.14549999999994,132.70833333333334Z" stroke="#ff0000" fill="#ff0000"></path>
   1.101 +<path transform="" d="M136.56249999999994,173.5L124.27049999999994,173.5L119.27049999999994,133.75L130.10449999999994,133.75L132.81249999999994,161.25L146.35449999999994,133.75L157.60449999999994,133.75Z" stroke="#ff0000" fill="#ff0000"></path>
   1.102 +<path transform="" d="M175.10416666666674,127.70833333333334L164.27116666666674,127.70833333333334L166.14616666666674,118.95833333333334L176.97916666666674,118.95833333333334ZM163.02116666666674,133.75033333333334L173.85416666666674,133.75033333333334L165.52116666666674,172.50033333333334L154.89616666666674,172.50033333333334Z" stroke="#ff0000" fill="#ff0000"></path>
   1.103 +<path transform="" d="M204.47916666666652,149.79166666666669C208.22916666666652,141.04166666666669,196.97916666666652,138.3336666666667,192.60416666666652,144.37466666666668C187.39616666666652,151.24966666666668,187.60416666666652,163.12466666666668,184.89616666666652,172.49966666666668L174.27116666666652,172.49966666666668L182.39616666666652,133.74966666666668L192.60416666666652,133.74966666666668L191.35416666666652,139.16666666666669C198.02116666666652,128.54166666666669,219.0621666666665,131.04166666666669,215.9371666666665,146.4586666666667L210.52116666666652,172.49966666666668L199.6871666666665,172.49966666666668Z" stroke="#ff0000" fill="#ff0000"></path>
   1.104 +<path transform="" d="M282.1875000000002,134.79166666666663C282.6045000000002,125.41666666666663,270.7295000000002,128.74966666666663,262.3955000000002,128.12466666666663L259.2705000000002,143.12466666666663C269.4795000000002,142.91666666666663,281.7705000000002,144.99966666666663,282.1875000000002,134.79166666666663ZM276.14550000000025,172.49966666666663C274.47950000000026,163.33366666666663,280.3125000000002,150.83366666666663,268.64550000000025,151.66666666666663L257.39550000000025,151.66666666666663L253.02050000000025,172.49966666666663L241.35450000000026,172.49966666666663L252.60450000000026,118.95866666666663C270.10450000000026,119.99966666666663,294.89550000000025,113.54166666666663,294.0625000000002,132.91666666666663C293.64550000000025,141.45866666666663,288.64550000000025,145.62466666666663,281.77050000000025,147.49966666666663C290.52050000000025,149.99966666666663,285.72950000000026,163.33366666666663,287.60450000000026,172.49966666666663L276.14550000000025,172.49966666666663Z" stroke="#ff0000" fill="#ff0000"></path>
   1.105 +<path transform="" d="M309.27083333333303,156.45833333333334C305.937833333333,162.50033333333334,312.187833333333,167.50033333333334,317.812833333333,164.16633333333334C326.77083333333303,159.16633333333334,325.52083333333303,144.16633333333334,328.853833333333,133.75033333333334L339.478833333333,133.75033333333334L331.353833333333,173.00033333333334L321.145833333333,173.00033333333334C321.353833333333,170.83333333333334,322.395833333333,168.54133333333334,322.18783333333295,167.08333333333334C315.72883333333294,178.00033333333334,294.47883333333294,175.62533333333334,297.81283333333295,159.58333333333334L303.22883333333294,133.75033333333334L313.85383333333294,133.75033333333334Z" stroke="#ff0000" fill="#ff0000"></path>
   1.106 +<path transform="" d="M349.2708333333335,153.54166666666669C337.81283333333346,146.04166666666669,348.6458333333335,130.41666666666669,361.56283333333346,132.7086666666667C370.93783333333346,132.49966666666668,377.3958333333335,135.62466666666668,377.3958333333335,144.99966666666668L367.6038333333335,144.99966666666668C367.6038333333335,141.4586666666667,365.3128333333335,140.2086666666667,361.5628333333335,139.79166666666669C357.1878333333335,139.37466666666668,353.02083333333354,142.49966666666668,356.14583333333354,145.8336666666667C363.02083333333354,149.79166666666669,375.52083333333354,149.37466666666668,375.52083333333354,160.41666666666669C375.52083333333354,177.49966666666668,340.9378333333335,178.54166666666669,340.52083333333354,161.4586666666667L340.52083333333354,159.99966666666668L350.3128333333335,159.99966666666668C350.1038333333335,164.79166666666669,353.8538333333335,165.8336666666667,358.02083333333354,166.4586666666667C364.47883333333357,167.49966666666668,367.39583333333354,159.5836666666667,360.9378333333335,157.49966666666668Z" stroke="#ff0000" fill="#ff0000"></path>
   1.107 +<path transform="" d="M400.52083333333326,172.70833333333331C391.3538333333333,174.58333333333331,381.9788333333332,173.00033333333332,384.27083333333326,161.6663333333333L388.64583333333326,140.83333333333331L381.56283333333323,140.83333333333331L383.2288333333332,133.75033333333332L390.1038333333332,133.75033333333332L392.3958333333332,121.87533333333332L403.2288333333332,121.87533333333332L400.7288333333332,133.75033333333332L408.43783333333323,133.75033333333332L406.77083333333326,140.83333333333331L399.27083333333326,140.83333333333331L394.89583333333326,161.87533333333332C394.68783333333323,165.4163333333333,399.06283333333323,165.00033333333332,402.39583333333326,164.58333333333331Z" stroke="#ff0000" fill="#ff0000"></path>
   1.108 +<path transform="" d="M436.7708333333337,144.58333333333334C436.7708333333337,137.08333333333334,422.3958333333337,138.95833333333334,421.97883333333374,145.41633333333334L412.18783333333374,145.41633333333334C413.43783333333374,136.25033333333334,420.31283333333374,132.91633333333334,430.5208333333337,132.70833333333334C441.35383333333374,132.50033333333334,448.6458333333337,137.29133333333334,445.72883333333374,149.37533333333334C443.85383333333374,156.87533333333334,441.56283333333374,164.79133333333334,442.18783333333374,172.50033333333334L431.56283333333374,172.50033333333334L431.56283333333374,168.75033333333334C425.72883333333374,176.04133333333334,406.97883333333374,175.20833333333334,406.97883333333374,163.33333333333334C406.97883333333374,150.62533333333334,421.56283333333374,150.20833333333334,433.0208333333337,148.75033333333334C435.3128333333337,147.91633333333334,436.7708333333337,147.29133333333334,436.7708333333337,144.58333333333334ZM434.6878333333337,153.95833333333334C429.4788333333337,157.50033333333334,417.6038333333337,153.33333333333334,417.8128333333337,162.08333333333334C417.8128333333337,168.12533333333334,428.2288333333337,167.08333333333334,430.5208333333337,163.54133333333334C433.0208333333337,161.25033333333334,433.6458333333337,158.00033333333334,434.6878333333337,153.95833333333334Z" stroke="#ff0000" fill="#ff0000"></path>
   1.109 +<path transform="" d="M471.3541666666665,132.70833333333331C477.6041666666665,132.50033333333332,481.1461666666665,135.4163333333333,483.43716666666654,139.58333333333331L484.4791666666665,133.75033333333332L494.68716666666654,133.75033333333332C491.14616666666655,148.33333333333331,489.4791666666665,164.7913333333333,484.4791666666665,178.12533333333332C479.8961666666665,190.4163333333333,448.8541666666665,191.25033333333332,449.0621666666665,174.58333333333331L459.6871666666665,174.58333333333331C459.6871666666665,181.6663333333333,471.35416666666646,181.0413333333333,473.85416666666646,176.25033333333332C475.10416666666646,173.5413333333333,477.1871666666665,169.7913333333333,477.39616666666643,166.45833333333331C469.47916666666646,177.2913333333333,450.52116666666643,170.83333333333331,451.77116666666643,156.0413333333333C452.8121666666664,143.12533333333332,458.4371666666664,133.5413333333333,471.3541666666664,132.70833333333331ZM480.93716666666654,149.1663333333333C480.93716666666654,144.1663333333333,478.2291666666665,140.62533333333332,473.2291666666665,140.62533333333332C462.3961666666665,140.62533333333332,457.1871666666665,163.95833333333331,469.68716666666654,163.95833333333331C477.39616666666655,163.95833333333331,480.52116666666655,157.08333333333331,480.93716666666654,149.1663333333333Z" stroke="#ff0000" fill="#ff0000"></path>
   1.110 +<path transform="" d="M515.5208333333335,127.70833333333334L504.68783333333346,127.70833333333334L506.56283333333346,118.95833333333334L517.3958333333335,118.95833333333334ZM503.43783333333346,133.75033333333334L514.2708333333335,133.75033333333334L505.93783333333346,172.50033333333334L495.31283333333346,172.50033333333334Z" stroke="#ff0000" fill="#ff0000"></path>
   1.111 +</svg>
   1.112 +
   1.113 +
   1.114 +
   1.115 +
   1.116 +HERE
   1.117 +
   1.118 +
   1.119 +# read XML file
   1.120 +$data = $xml->XMLin($sss, ForceArray => 1);
   1.121 +
   1.122 +
   1.123 +my %data = %$data;
   1.124 +
   1.125 +my %juzz  = 
   1.126 +(
   1.127 +
   1.128 +path	=> $data{'path'},
   1.129 +rect 	=> $data{'rect'},
   1.130 +width	=>"16in" ,
   1.131 +height	=>"12in" ,
   1.132 +version	=>"1.1",
   1.133 +xmlns	=>"http://www.w3.org/2000/svg"
   1.134 +
   1.135 +);
   1.136 +
   1.137 +
   1.138 +$out = $xml->XMLout(\%juzz , RootName=>'svg');
   1.139 +
   1.140 +
   1.141 +my $fixed = <<HERE;
   1.142 +<?xml version="1.0" standalone="no"?>
   1.143 +<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" 
   1.144 +  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
   1.145 +HERE
   1.146 + 
   1.147 +
   1.148 +
   1.149 +$fixed .= $out;
   1.150 +
   1.151 +#print $fixed;
   1.152 +
   1.153 +	return $fixed;
   1.154 +	
   1.155 +	
   1.156 +}	
   1.157 +	
   1.158 +	
   1.159 +	
   1.160 +sub mail
   1.161 +{
   1.162 +	
   1.163 +	
   1.164 +	
   1.165 +%mail = 
   1.166 +(
   1.167 +from => 'rlm@mit.edu',
   1.168 +to => $_[1],
   1.169 +subject => 'Test attachment',
   1.170 +);
   1.171 +
   1.172 +
   1.173 +$boundary = "====" . time() . "====";
   1.174 +$mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
   1.175 +
   1.176 +$message = encode_qp( "email from your friend PERL." );
   1.177 +
   1.178 +$attach1 = encode_base64($_[0]);  # this part is so cool!  I can e-mail a perl varible to anyone in the world!
   1.179 +
   1.180 +$attach2 = encode_base64("hi this is a test arttacghjkalsdlasndlashdlsf");
   1.181 +
   1.182 +
   1.183 +
   1.184 +
   1.185 +
   1.186 +$boundary = '--'.$boundary;
   1.187 +$mail{body} = <<END_OF_BODY;
   1.188 +$boundary
   1.189 +Content-Type: text/plain; charset="iso-8859-1"
   1.190 +Content-Transfer-Encoding: quoted-printable
   1.191 +
   1.192 +$message
   1.193 +$boundary
   1.194 +Content-Type: application/octet-stream; name="test.svg"
   1.195 +Content-Transfer-Encoding: base64
   1.196 +Content-Disposition: attachment; filename="test.svg"
   1.197 +
   1.198 +$attach1
   1.199 +
   1.200 +$boundary
   1.201 +Content-Type: application/octet-stream; name="huh.txt"
   1.202 +Content-Transfer-Encoding: base64
   1.203 +Content-Disposition: attachment; filename="huh.txt"
   1.204 +
   1.205 +$attach2
   1.206 +$boundary--
   1.207 +
   1.208 +END_OF_BODY
   1.209 +
   1.210 +sendmail(%mail) || print "Error: $Mail::Sendmail::error\n";
   1.211 +
   1.212 +	
   1.213 +}
   1.214 +	
   1.215 +	
   1.216 +	
   1.217 +	
   1.218 +	
   1.219 +	
   1.220 +	
   1.221 +	
   1.222 +	
   1.223 +	
   1.224 +	
   1.225 +	
   1.226 +	
   1.227 +