home *** CD-ROM | disk | FTP | other *** search
/ Freelog 125 / Freelog_MarsAvril2015_No125.iso / Bureautique / OpenOffice / Apache_OpenOffice_4.1.1_Win_x86_install_fr.exe / openoffice1.cab / show.pl < prev    next >
Perl Script  |  2014-02-25  |  2KB  |  60 lines
  1. #!/usr/bin/perl
  2. # *************************************************************
  3. #  
  4. #  Licensed to the Apache Software Foundation (ASF) under one
  5. #  or more contributor license agreements.  See the NOTICE file
  6. #  distributed with this work for additional information
  7. #  regarding copyright ownership.  The ASF licenses this file
  8. #  to you under the Apache License, Version 2.0 (the
  9. #  "License"); you may not use this file except in compliance
  10. #  with the License.  You may obtain a copy of the License at
  11. #  
  12. #    http://www.apache.org/licenses/LICENSE-2.0
  13. #  
  14. #  Unless required by applicable law or agreed to in writing,
  15. #  software distributed under the License is distributed on an
  16. #  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
  17. #  KIND, either express or implied.  See the License for the
  18. #  specific language governing permissions and limitations
  19. #  under the License.
  20. #  
  21. # *************************************************************
  22.  
  23. require "common.pl";
  24.  
  25. print "Content-type: text/html\n\n";
  26.  
  27. # get current and next picture
  28. $sCurrPic = join( "", common::File_read( "currpic.txt" ) );
  29. @aPictureArray = common::File_read( "picture.txt" );
  30.  
  31. # not last picture or wrong input ?
  32. if( abs( $sCurrPic ) > 0 )
  33. {
  34.     $nCurrPic = abs( $sCurrPic );
  35.     $nPictureArrayLen = @aPictureArray;
  36.     if( $nCurrPic < $nPictureArrayLen )
  37.     {
  38.         $sPictureName1 = ( split( ";", @aPictureArray[ $nCurrPic ] ) )[ 1 ];
  39.         $sPictureName2 = ( split( ";", @aPictureArray[ $nCurrPic + 1 ] ) )[ 1 ];
  40.     }
  41.     else
  42.     {
  43.         $sPictureName1 = ( split( ";", @aPictureArray[ $nCurrPic ] ) )[ 1 ];
  44.         $sPictureName2 = $sPictureName1;
  45.     }
  46. }
  47.  
  48. print "<HTML>";
  49.  
  50. print "<HEAD>";
  51.     print "<TITLE>$$1</TITLE>";
  52. print "</HEAD>";
  53.  
  54. print "<BODY bgcolor=\"white\">";
  55.     print "<P ALIGN=CENTER><IMG src=\"" . $sPictureName1 . "\" width=$$4 height=$$5 border=0>";
  56.     print "<P><IMG src=\"" . $sPictureName2 . "\" width=1 height=1 border=0>";
  57. print "</BODY>";
  58.  
  59. print "</HTML>";
  60.