save.cgi

applet在線上繪圖,允許在瀏覽器上繪圖,最後儲存成各式的圖檔

#!/usr/bin/perl -w

###################################################################
##  SaveImage
##
##  Author: Dmitriy V. Novikov.
##  Created: 26.06.2002
##  email:  [e-mail]
###################################################################

BEGIN {
    use strict;
    use vars qw ( $query $ERROR $image $notes $dirToSave);
    use CGI::Carp qw(fatalsToBrowser);
    use CGI;
    use MIME::Base64;

    $dirToSave = "./"; # It is a directory with write access
    sub putFile($$);
}


    $query = new CGI;
    ${$_} = $query->param($_) for $query->param;

    print $query->header( -type=>'text/plain',
                          -expires=>'-1d');

    if (defined ($image)){
        my $binImg = decode_base64($image);
        unless (putFile($binImg,"$dirToSave/image.png")){
            print "#SHOWSTATUS=$ERROR\n";
        } else {
            print "#SHOWDOCUMENT=view.htm\n";
        }
    }

sub putFile($$){

    my $fileSrc  = shift;
    my $fileName = shift;

    $ERROR = "";

    if (!open (MY_FILE, ">$fileName"))
    {
        $ERROR = "Can not open file: $fileName";
    }

    binmode MY_FILE;
    print MY_FILE  $fileSrc;

    close(MY_FILE);

    if ($ERROR){
        return 0;
    } else {
        return 1;
    }
}

1