home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Postcards / createPostcard.cgi next >
Encoding:
Text File  |  2017-09-22  |  1.9 KB  |  88 lines
  1. #!/user/a61/perl/bin/perl
  2. # #!/usr/local/bin/perl
  3.  
  4. use GD;
  5.  
  6. # initialize
  7. $input_postcard="pictures/postcard.gif";
  8. $extension=".gif";
  9. $note = "The Internet 1996 World Exposition";
  10. $note2 = "http://park.org/";
  11.  
  12.  
  13. # Read arguments from command line
  14. # make inputs
  15. if ($#ARGV == 1) {
  16.    $message_input = @ARGV[0];
  17.    $postcard_input = @ARGV[1];
  18. }
  19. else {
  20.    print "Usage: createPostcard.cgi [MESSAGE POSTCARD]\n";
  21.    exit(0);
  22. } 
  23. $input_text="$message_input";
  24. $input_picture="pictures/$postcard_input";
  25. $input_picture=$input_picture.$extension;
  26.  
  27.  
  28. # Read empty postcard
  29. if ( open (IMIN1, "$input_postcard") ) {
  30.    $postcard = newFromGif GD::Image(IMIN1);
  31.    close (IMIN1);
  32. }
  33. else {
  34.    exit 0;
  35. }
  36.  
  37.  
  38. # Read picture to put in postcard
  39. if ( open (IMIN2, "$input_picture") ) {
  40.    $picture = newFromGif GD::Image(IMIN2);
  41.    close (IMIN2);
  42. }
  43. else {
  44.    exit 0;
  45. }
  46.  
  47.  
  48. # Colors
  49. $white = $postcard->colorAllocate(255,255,255);
  50. $black = $postcard->colorAllocate(0,0,0);
  51. $bg_color = $black;
  52.  
  53. # Change Background
  54. $postcard->fill(25,25,$bg_color);
  55.  
  56.  
  57. # Place the text
  58. # - 25 grote karakters passen binnen 200 pixels
  59. # - Dit is 8 pixels per groot karakter
  60. if ( ! ($input_text eq "No") ) {
  61.    $Large_Length=50;
  62.    $Large_Pixel=8;
  63.  
  64.    # - string: font, destX, destY, string, color
  65.    # - font: gdSmallFont, gdLargeFont, gdMediumBoldFont (12pt), gdTinyFont
  66.    $input_text =~ tr/_/ /;
  67.    $length_text = length($input_text);
  68.    $length_diff = $Large_Length - $length_text;
  69.    $length_diff = int($length_diff / 2);
  70.    $offset = ( $length_diff * $Large_Pixel ) - 1;
  71.    $postcard->string(gdLargeFont, 50 + $offset, 44, $input_text, $white);
  72. }
  73.  
  74.  
  75. # A note
  76. $postcard->string(gdMediumBoldFont, 132, 229, $note, $white);
  77. $postcard->string(gdMediumBoldFont, 194, 247, $note2, $white);
  78.  
  79.  
  80. # Place the picture
  81. ($picture_width, $picture_height) = $picture->getBounds();
  82. $postcard->copyResized($picture, 125, 100, 0, 0, 250, 100, $picture_width, $picture_height);
  83.  
  84.  
  85. # output
  86. print "Content-Type: image/gif\n\n";
  87. print $postcard->gif;
  88.