Subversion Repositories CoffeeCatalog

#!/usr/bin/perl -w

use strict;

use HTML::Tiny;

use CGI qw(:standard escape escapeHTML);

# use CGI qw/param cookie header start_html url/;

my $h = HTML::Tiny->new( mode => 'html' );

my $pageTitle = "CC Manage Roaster";

my $homeURL = "/";

print header (),

			start_html (-title => "Add / Update Roaster", -style => {'src' => "style.css"} );

print $h->div ({ class => "accent pageheader" }, [

  $h->h1 ($pageTitle),

  $h->div ({ class=>"sp0" }, [

    $h->div ({ class=>"spLeft" }, [

    ]),

    $h->div ({ class=>"spRight" }, [

      $h->input ({ type=>"button", value=>"Home", onClick=>"window.location.href='$homeURL'" }),

    ]),

  ]),

]);

my $choice = defined param ("choice") ? param ("choice") : "";

my $actionbutton;

if ($choice eq "Save") {

	process_form ();

} elsif (defined (param ("roaster"))) {

  my $roaster = param ("roaster");

	display_form ($roaster, $choice);

} else {

	display_form ();

}

print $h->close ("html");

sub display_form  {

  my $R = shift;

  my $view = shift;

  my $hiddenR = "";

  my ($U, $L, $I, $logo);

  if ($R) {

    # we're updating an existing roaster.  Get the current values out of the DB...

    use WebDB;

    my $dbh = WebDB::connect ();

	  ($U, $L) = $dbh->selectrow_array (

                     "SELECT url, location, note FROM roasters WHERE roaster = ?",

                      undef, $R);

	  $dbh->disconnect ();

	  my $i = "serve_image.pl" . sprintf ("?name=%s", escape ($R));

	  $I = $h->img ({ src => "$i;thumbnail=1", alt => $R });

	  # did we find a record?

	  error ("Cannot find Roaster named $R") unless defined ($L);

    if ($view eq "Update") {

      print $h->p ("Updating Roaster $R...");

      $R = $h->input ({

        type => "Text",

        name => "roaster",

        value => "$R",

        override => 1,

        size => 30

      });

      $U = $h->input ({

        type => "Text",

        name => "url",

        value => "$U",

        override => 1,

        size => 30

      });

      $L = $h->input ({

        type => "Text",

        name => "location",

        value => "$L",

        override => 1,

        size => 30

      });

      $logo = $I.'   '.$h->input ({

        class => "inputfile",

        type => "file",

        name => "logo",

        id   => "file",

        size => 60

      }) . $h->label ({ for=>"file", class=>"top" }, $h->span ("Choose File..."));

      $actionbutton = $h->input ({ type=>"submit", value => "Save", name=>"choice" });

      $actionbutton .= $h->input ({ type=>"submit", value => "Cancel", name=>"choice" });

    } else {

      print $h->p ("Viewing Roaster $R...");

      $logo = $I;

      $hiddenR = $h->input ({ type=>"hidden", name=>"roaster", value=> "$R" });

      $actionbutton = $h->input ({ type=>"submit", value => "Update", name=>"choice" });

    }

  } else {

    print $h->p ("Adding a new Roaster...");

 	  print ;

    $R = $h->input ({

      type => "Text",

      name => "roaster",

      value => "",

      override => 1,

      size => 30

    });

    $U = $h->input ({

      type => "Text",

      name => "url",

      value => "",

      override => 1,

      size => 30

    });

    $L = $h->input ({

      type => "Text",

      name => "location",

      value => "",

      override => 1,

      size => 30

    });

    $logo = $h->input ({

        class => "inputfile",

        type => "file",

        name => "logo",

        id   => "file",

        size => 60

    }) . $h->label ({ for=>"file", class=>"top" }, $h->span ("Choose File..."));

    $actionbutton = $h->input ({ type=>"submit", value => "Save", name=>"choice" });

#    $actionbutton .= $h->input ({ type=>"submit", value => "Cancel", name=>"choice" });  # FIX THIS <---

  }

	print $h->open ("form", { action => url (), method=>"POST", enctype=>"multipart/form-data" });

	print $h->div ({ class=>"rTable" }, [

    $h->div ({ class=>"rTableRow" }, [

      $h->div ({ class=>"rTableCell" }, "Roaster: "),

      $h->div ({ class=>"rTableCell" }, [ $hiddenR, $R ])

    ]),

    $h->div ({ class=>"rTableRow" }, [

      $h->div ({ class=>"rTableCell" }, "URL: "),

      $h->div ({ class=>"rTableCell" }, $U)

    ]),

    $h->div ({ class=>"rTableRow" }, [

      $h->div ({ class=>"rTableCell" }, "Location (City, State): "),

      $h->div ({ class=>"rTableCell" }, $L)

    ]),

    $h->div ({ class=>"rTableRow" }, [

      $h->div ({ class=>"rTableCell top" }, "Logo:"),

      $h->div ({ class=>"rTableCell" }, $logo)

    ]),

  ]);

#  print $I;

#  print $h->input ({ type=>"hidden", name => "choice", value => "Save"});

  print $actionbutton;

  print $h->close ("form");

  printJavascript ();

}

sub process_form  {

  use WebDB;

	my $roaster = param ("roaster");

	my $url = param ("url");

	my $location = param ("location");

	my $logo = param ("logo");

	my @errors = ();

  my $dbh;

  my $mime_type;

  my ($full, $thumb);

  my $serve_url;

  $roaster = WebDB::trim ($roaster);	        # trim extraneous whitespace from name

  $url = WebDB::trim ($url);	        # trim extraneous whitespace from url

  $location = WebDB::trim ($location);	        # trim extraneous whitespace from location

  $logo = "" unless defined ($logo); # convert undef to empty string

  	 # check for required fields

  push (@errors, "Please supply a Roaster name") if $roaster eq "";

  push (@errors, "Please supply the Roaster's location") if $location eq "";

  push (@errors, "Please supply a URL to the Roaster") if $url eq "";

#  push (@errors, "Please specify an image file") if $logo eq "";

  if (@errors)	 {

    print $h->div ({ class=>"error"}, [

  	  $h->p ("The following errors occurred:"),

  	  $h->ul ($h->li (@errors)),

  	  $h->p ("Please click your Browser's Back button to\n"

  	  	   . "return to the previous page and correct the problem.")

  	]);

  	return;

  }	 # Form was okay;  get image type and contents and create new record.

  # Use REPLACE to clobber any old image with the same name.

  $dbh = WebDB::connect ();

  if ($logo) {

    $mime_type = uploadInfo ($logo)->{'Content-Type'};

    ($full, $thumb) = read_image_file ($logo);

    $dbh->do (

  		   "REPLACE INTO roasters

		    (roaster,url,logo,thumbnail,location,note,mime_type)

		    VALUES(?,?,?,?,?,?,?)",

			   undef,

			   $roaster, $url, $full, $thumb, $location, "", $mime_type);

  } else {

    $dbh->do (

  		   "INSERT INTO roasters

		    (roaster,url,location,note)

		    VALUES(?,?,?,?)

		    ON DUPLICATE KEY UPDATE url = ?, location = ?",

			   undef,

			   $roaster, $url, $location, "", $url, $location);

  }

	$dbh->disconnect ();	 # Image was stored into database successfully.  Present confirmation

		 # page that displays both the full size and thumbnail images.

	print $h->p ({ class=>"success" }, "Roaster successfully saved.");

  display_form ($roaster);

}

use Image::Magick;

sub read_image_file {

	my $fh = shift;             # filename/file handle

	my $img = new Image::Magick;

	my ($full, $thumb);

	my $err;

	# read full-size image directly from upload file

	(read ($fh, $full, (stat ($fh))[7]) == (stat ($fh))[7])

          or error ("Can't read image file: $!");

	# produce thumbnail from full-size image

	$err = $img->BlobToImage ($full);

	error ("Can't convert image data: $err") if $err;

	$err = $img->Scale (geometry => "64x64");

	error ("Can't scale image file: $err") if $err;

	$thumb = $img->ImageToBlob ();

	return ($full, $thumb);

}

sub error {

	my $msg = shift;

#	print $h->p ({ class=>"error" }, $h->url_encode ("Error: $msg"));

	print $h->p ({ class=>"error" }, "Error: $msg");

  print $h->close("html");

	exit (0);

}

sub printJavascript {

    print<<JSCRIPT;

<SCRIPT language="JavaScript">

<!--

var inputs = document.querySelectorAll( '.inputfile' );

Array.prototype.forEach.call( inputs, function( input )

{

	var label	 = input.nextElementSibling,

		labelVal = label.innerHTML;

	input.addEventListener( 'change', function( e )

	{

		var fileName = e.target.value.split( '\\\\' ).pop();

console.log("setting filename");

		if( fileName )

			label.querySelector( 'span' ).innerHTML = fileName;

		else

			label.innerHTML = labelVal;

	});

});

//-->

</SCRIPT>

JSCRIPT

}