keywords.pl - DriveHQ Cloud IT/Storage service

Yes No

Do you want to visit DriveHQ English website?

keywords.pl - Hosted on DriveHQ Cloud IT Platform

返回上层目录
上传
下载
共享
发布
新建文件夹
新建文件
复制
剪切
删除
粘贴
评论
升级服务

路径: \\LITTLELEV\ImageFolioLite\admin\keywords.pl

旋转

特效

属性

历史版本

|; $keyfilefound = 1; last; } } if (!$keyfilefound) { $keyform = qq||; } $keyform .=qq||; # THIS IS THE NEW SECTION FOR ADDING THUMBNAIL CAPTIONS $keyform .=qq||; # END OF NEW SECTION $keyform .= qq|

###############################################################################
# BizDesign ImageFolio Lite Edition 4.2 (Four-dot-Two)
###############################################################################
#
#          ##          ###        VERSION       :  4.2
#        ####        ##   ##      RELEASED ON   :  02/15/2007
#      ##  ##              ##     LAST MODIFIED :  02/15/2007
#    ##########          ##       
#          ##   ###    ##         
#          ##   ###  ########     
#
###############################################################################
# Released by BizDesign, Inc.
# written by Dirk Koppers and Greg Raaum of BizDesign
#
# Purchasing :  http://imagefolio.com/purchase/
# Support    :  http://imagefolio.com/support/
# Phone      :  (214) 642-9787
# Email      :  sales@bizdesign.com
###############################################################################
# COPYRIGHT AND LICENSE INFORMATION :
#
# Copyright (c) 1999-2007 BizDesign, Inc. All rights reserved.
#
# Selling or distributing the code for this program without prior written
# consent is expressly forbidden.
#
# One licensed copy of the program may reside on a single server, in use by a
# single domain.  For each installed instance of the program, a separate
# license is required.
#
# Licensed users may alter or modify this software, at their own risk, of
# course.  They may also hire others to modify their own copy of the code, as
# long as the code is not transferred to or retained by the individual who is
# hired (unless he/she is also a license holder). Although license-holders
# may modify the code for their use, modified code may NOT be resold or
# distributed.
#
# THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED WARRANTIES,
# INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL BIZDESIGN,
# INC. OR ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
# BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
# IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#
# BizDesign, Inc. is not liable for any conduct associated with image gallery
# activity, nor for any binary media posted using this program, including but
# not imited to images, photographs, movies, and clipart.
#
# The user must assume the entire risk of using the program.  Although this
# program has been thoroughly tested on BizDesign's servers, BizDesign does not
# warrant that it works on all servers and will not be held liable for anything,
# including but not limited to, misusage, error, or loss of data.  ANY
# LIABILITY OF THE SELLER WILL BE LIMITED EXCLUSIVELY TO PRODUCT REPLACEMENT
# OR REFUND OF PURCHASE PRICE.  Use at your own risk!
###############################################################################
# Do not modify below this line unless you know what you are doing.
###############################################################################
$ADDFILEDESCRIPTIONS = "active";

###############################################################################
# STEP 1
# If we don't receive any information we display the list of categories
###############################################################################
sub keywords_step_1 {

$pagetitle = "Add Keywords and Captions to Images - Select A Category";
&get_header;
&get_catlist;

print qq|

<form method=get action="$imagefolio_url">
<input type=hidden name=admin value="admin">
<input type=hidden name=uid value="$FORM{'uid'}">
<input type=hidden name=cgi value="keywords.pl">
<input type=hidden name=kwstep value=2>

<center>

<table border="0" width="100%" cellspacing=0 cellpadding=0 bgcolor="#000000">

<tr><td>

<table border="0" width="100%" cellspacing=1 cellpadding=0>
<tr bgcolor="#ffcc00"><td>

<table border="0" width="100%" cellspacing=0 cellpadding=4>
<tr><td><$admin_big_font><b>Select A Category</b></font></td>
<td align=right><$admin_big_font><b>Step 1 of 3</b></font></td>
</tr></table></td></tr>

<tr bgcolor="#eeeeee"><td align=center>$catlist</td></tr></table></td></tr></table>

<br><input type=submit value="Select An Image">

</center>

</form>
|;

&get_footer;
}

###############################################################################
# STEP 2
# If we don't receive any information we display the list of categories
###############################################################################
sub keywords_step_2 {

&get_imagelist;
$pagetitle = "Select An Image";
&get_header;

      $newcategory = $category;
      $newcategory =~ s/_/ /g;
      $newcategory =~ s/\// \> /g;

   if ($image) { $imagesource = "$imageurl/$category/$image"; }
   else { $imagesource = $if_images_directory . "/image_viewer.gif"; }

print qq|

<SCRIPT LANGUAGE="JavaScript"><!--
   function imgchange() {
      var si =  document.imageform.image.selectedIndex;
      var fname = document.imageform.image.options[si].value
      var directory = '$imageurl/$category';
      document.myimg.src = directory + '/' + fname}
//--></SCRIPT>

<form name="imageform" method=get action="$imagefolio_url">
<input type=hidden name=admin value="admin">
<input type=hidden name=uid value="$FORM{'uid'}">
<input type=hidden name=cgi value="keywords.pl">
<input type=hidden name=kwstep value=3>
<input type=hidden name=category value="$category">

<center>|;

   if ($keywords && $kwstep eq "final") {
      if (!$imagefound) {
         print qq|<$admin_font><b>Error:  Could not save Keywords to
         <font color=red>$image ($newcategory)</font></b></font><br><br>|;
      }
      else {
         print qq|<$admin_font><b>Keywords and Caption saved successfully for
         <font color=red>$image ($newcategory)</font></b></font><br><br>|;
      }
   }

print qq|

<table border="0" width="100%" cellspacing=0 cellpadding=4><tr><td>
<$admin_font><b>Instructions:</b>  Select an image from the select box.  If you would
like to view the image, click "View This Image."  To add or modify the selected image's Keywords and Caption,
click "Add Keywords and Caption"</font></td></tr></table><br>

<table border="0" width="100%" cellspacing=0 cellpadding=0 bgcolor="#000000">

<tr><td>

<table border="0" width="100%" cellspacing=1 cellpadding=0>

<tr bgcolor="#ffcc00"><td colspan=2>
<table border="0" width="100%" cellspacing=0 cellpadding=4>
<tr><td><$admin_big_font><b>Select An Image</b></font></td>
<td align=right><$admin_big_font><b>Step 2 of 3</b></font></td></tr></table>
</td></tr>

<tr bgcolor="#ffffff"><td colspan=2>
<table border="0" width="100%" cellspacing=0 cellpadding=4>
<tr><td><$admin_small_font>$newcategory</font></td>
<td align=right><$admin_small_font>$totalnames found</font></td></tr></table>
</td></tr>


<tr bgcolor="#eeeeee"><td width="50%" align=center>

<table border="0" width="100%" cellspacing=0 cellpadding=4>
<tr><td align=center>$imagelist</td></tr>
<tr><td align=center><INPUT type="button" value="View This Image" onClick="imgchange()"></td></tr>
</table>

</td><td width="50%" align=center valign=middle><IMG SRC="$imagesource" NAME="myimg" alt=".."></td></tr>

</table></td></tr></table>

<br><input type=submit value="Add Keywords and Caption"><br><br>

</center>
</form>
</body>
</html>
|;

&get_footer;
}

###############################################################################
# STEP 3
# We display a form for adding/modifying keywords
###############################################################################
sub keywords_step_3 {

$pagetitle = "Add or Modify Keywords and Caption";
&get_header;
&get_keyform;
&get_image_info;

      $newcategory = $category;
      $newcategory =~ s/_/ /g;
      $newcategory =~ s/\// \> /g;


print qq|

<form method=post action="$imagefolio_url">
<input type=hidden name=admin value="admin">
<input type=hidden name=uid value="$FORM{'uid'}">
<input type=hidden name=cgi value="keywords.pl">
<input type=hidden name=kwstep value="final">
<input type=hidden name=category value="$category">
<input type=hidden name=image value="$image">

<center>

<table border="0" width="100%" cellspacing=0 cellpadding=4><tr><td>
<$admin_font><b>Instructions:</b>  Add or modify keywords and image caption in the
text area below then click "Save Keywords and Caption"  Be sure to separate each keyword
with a space only, NOT a comma or separate line.</font></td></tr></table><br>

<table border="0" width="100%" cellspacing=0 cellpadding=0 bgcolor="#000000">

<tr><td>

<table border="0" width="100%" cellspacing=1 cellpadding=0>

<tr bgcolor="#ffcc00"><td colspan=2>
<table border="0" width="100%" cellspacing=0 cellpadding=4>
<tr><td><font face="Arial,Helvetica"><b>Add or Modify Keywords and Caption</b></font></td>
<td align=right><font face="Arial,Helvetica"><b>Step 3 of 3</b></font></td></tr></table>
</td></tr>

<tr bgcolor="#ffffff"><td colspan=2>
<table border="0" width="100%" cellspacing=0 cellpadding=4>
<tr><td><$admin_small_font>$newcategory</font></td></tr></table>
</td></tr>

<tr bgcolor="#eeeeee"><td width="50%" align=center>

<table border="0" width="100%" cellspacing=0 cellpadding=4>
<tr><td align=center>$keyform</td></tr></table>

</td><td width="50%" align=center valign=top><br>

<table border=1 cellspacing=1 cellpadding=4>
<tr bgcolor="#000000"><td valign=top align=center><img src="$imageurl/$category/$image" alt="$thisimage" border=0></td></tr>
<tr bgcolor="#ffffff"><td valign=top nowrap><$font><b>$thisimage</b><br>$file_type
<br>Size: $filesize<br>Added: $filedate<br></font></td></tr></table>

</td></tr></table></td></tr></table>

<br><input type=submit value="Save Keywords and Caption"><br><br>

</center>
</form>
|;

&get_footer;
}

###############################################################################
# FINAL
# We save the Keywords to the database then display step 2 again
###############################################################################
sub keywords_final {

   $keywords =~ s/,/ /g;                # Change commas to spaces
   $keywords =~ s/^\s+//g;              # Trim leading blanks...
   $keywords =~ s/\s+$//g;              # Trim trailing blanks...
   $keywords =~ s/\n/ /g;               # Change newline to a space.
   $keywords =~ s/\r//g;                # Remove Windows linefeed character.
   $keywords =~ s/\s+\s+/ /g;           # Change two spaces to one.
   $keywords =~ s/\s+\s+/ /g;           # Change two spaces to one again.

   $icaption =~ s/^\s+//g;              # Trim leading blanks...
   $icaption =~ s/\s+$//g;              # Trim trailing blanks...
   $icaption =~ s/\n/ /g;               # Change newline to a space.
   $icaption =~ s/\r//g;                # Remove Windows linefeed character.
   $icaption =~ s/\s+\s+/ /g;           # Change two spaces to one.
   $icaption =~ s/\s+\s+/ /g;           # Change two spaces to one again.

   $tcaption =~ s/^\s+//g;              # Trim leading blanks...
   $tcaption =~ s/\s+$//g;              # Trim trailing blanks...
   $tcaption =~ s/\n/ /g;               # Change newline to a space.
   $tcaption =~ s/\r//g;                # Remove Windows linefeed character.
   $tcaption =~ s/\s+\s+/ /g;           # Change two spaces to one.
   $tcaption =~ s/\s+\s+/ /g;           # Change two spaces to one again.

   $newcategory = $category;
   $newcategory =~ s/\//\./g;           # Generate filename for our captions file
   $newimage = $image;
   $newimage =~ s/$mypattern//g;        # Get full-size image name for use in captions

# FIRST, WE WRITE THE KEYWORDS TO THE INDEX FILE

open (FILE,"$indexfile") or &Error ("Could not open $indexfile, is it created.  Reason: $!");
my(@LINES)=<FILE>;
close(FILE);
$SIZE=@LINES;

# Open Link File to Output
open (INDEX,">$indexfile") or &Error ("Could not open $indexfile, is it created.  Reason: $!");
if ($useflock) { flock(INDEX, 2); }

   for ($i=0;$i<=$SIZE;$i++) {
      $_=$LINES[$i];
      my ($filename, $path, $blah, $blah, $blah) = split(/\|/, $_);

      if ($filename eq $image && $path eq $category) {
         $imagefound = 1;
         print INDEX "$filename\|$path\|\|\|$keywords\n";
      }
      else {
         print INDEX $_;
      }
   }

if ($useflock) { flock(INDEX, 8); }
close(INDEX);


# SECOND, WE WRITE THE FULL-SIZE IMAGE CAPTION TO A FILE

open (FILE,"$data_directory/$newcategory.captions.txt") or &Error ("Could not read captions file, $newcategory.captions.txt.  Reason: $!");
my(@LINES)=<FILE>;
close(FILE);
$SIZE=@LINES;

# Open Link File to Output
open (INDEX,">$data_directory/$newcategory.captions.txt") or &Error ("Could not read captions file, $newcategory.captions.txt.  Reason: $!");
if ($useflock) { flock(INDEX, 2); }

   for ($i=0;$i<=$SIZE;$i++) {
      $_=$LINES[$i];
      my ($filename, $caption) = split(/\t/, $_);

      if ($filename eq $newimage) {
         $keyfound = 1;
         print INDEX $filename . "\t" . $icaption . "\n";
      }
      else {
         print INDEX $_;
      }
   }

if (!$keyfound) { print INDEX $newimage . "\t" . $icaption . "\n"; }

if ($useflock) { flock(INDEX, 8); }
close(INDEX);

$keyfound = 0;

# THIRD, WE WRITE THE THUMBNAIL IMAGE CAPTION TO A FILE

open (FILE,"$data_directory/$newcategory.tcaptions.txt") or &Error ("Could not read captions file, $newcategory.tcaptions.txt.  Reason: $!");
my(@LINES)=<FILE>;
close(FILE);
$SIZE=@LINES;

# Open Link File to Output
open (INDEX,">$data_directory/$newcategory.tcaptions.txt") or &Error ("Could not read captions file, $newcategory.tcaptions.txt.  Reason: $!");
if ($useflock) { flock(INDEX, 2); }

   for ($i=0;$i<=$SIZE;$i++) {
      $_=$LINES[$i];
      my ($filename, $caption) = split(/\t/, $_);

      if ($filename eq $newimage) {
         $keyfound = 1;
         print INDEX $filename . "\t" . $tcaption . "\n";
      }
      else {
         print INDEX $_;
      }
   }

if (!$keyfound) { print INDEX $newimage . "\t" . $tcaption . "\n"; }

if ($useflock) { flock(INDEX, 8); }
close(INDEX);

&keywords_step_2;

}

###############################################################################
# GET KEYFORM
# We read through the image index, find a matching file then build a form
# from which to add/modify keywords
###############################################################################
sub get_keyform {
open (FILE,"$indexfile") or &Error ("Could not read index, $indexfile.  Reason: $!");
my(@LINES)=<FILE>;
close(FILE);
$SIZE=@LINES;

$keyform .= qq|<table border=0 cellspacing=0 cellpadding=4 width="100%">
<tr><td><$admin_small_font><b>K E Y W O R D S</b> (This is the old ImageFolio keywords system. Please use IPTC instead)</font></td></tr>|;

   foreach $LINE (@LINES) {
      ($filename, $path, $blah, $blah, $words) = split(/\|/, $LINE);
      if ($filename eq $image && $path eq $category) {
         $keyform .= qq|<tr><td><textarea name="keywords" cols=40 rows=4 wrap=virtual>$words

<$admin_font color=red>Error: The entry for $image was not found in the Image Index (index.txt). Please rebuild the Image Index using build.cgi

<$admin_small_font>C A P T I O N (This is the old ImageFolio caption system. Please use IPTC instead)

$newcategory = $category;
      $newcategory =~ s/\//\./g;
      $newimage = $image;
      $newimage =~ s/$mypattern//g;                        # remove the pattern

if (-e "$data_directory/$newcategory.captions.txt"){
      open (CAPTIONS,"$data_directory/$newcategory.captions.txt");
      my(@LINES)=<CAPTIONS>;
      close(CAPTIONS);

foreach $line (@LINES) {
         my($filename, $caption) = split(/\t/,$line);
         if ($filename eq $newimage) {
            $keyform .= $caption;
            last;
         }
      }
   }
   else { # if we didn't find a captions.txt file above, we make one here
      opendir(IMAGEDIR,"$image_directory/$category") or &Error ("Could not read directory, $image_directory/$category.  Reason: $!");
      @files = readdir(IMAGEDIR);
      @files = sort { lc($a) cmp lc($b) } @files;                 # sort the file names alphabetically

foreach $file (@files) {
         if ( -d "$image_directory/$category/$file" ) {            # if this is a directory we aren't doing anything
           # do nothing
         }
         else{
            if ( -B "$image_directory/$category/$file" && $file =~ /$mypattern/i ) {            # if this is a thumbnail and binary file
               $newfile = $file;
               $newfile =~ s/$mypattern//g;                        # remove the pattern
               $captionslist .= $newfile . "\t" . "\n";            # create captions list so we can print it below
            }
         }
      }

closedir(IMAGEDIR);

open (INDEX,">$data_directory/$newcategory.captions.txt") or &Error ("Unable to create captions.txt file.  Reason: $!");
      print INDEX $captionslist;
      close(INDEX);
      chmod(0777,"$data_directory/$newcategory.captions.txt");
   }

$keyform .= qq|

<$admin_small_font>T H U M B C A P T I O N (This is the old ImageFolio keywords system. Please use IPTC instead)

|; } ############################################################################### # GET IMAGELIST # We read the directory selected in step one and pull out all of the images # in the directory and create a selection form ############################################################################### sub get_imagelist { $totalnames = 0; if ($image eq $file) { $selected = " selected"; } else { $selected = ""; } opendir(IMAGEDIR,"$image_directory/$category") or &Error ("Could not read directory, $image_directory/$category. Reason: $!"); $imagelist .= qq||; unless ($totalnames >= 1) { &Error ("The category '$category' does not contain any images."); } } 1;

keywords.pl

网页地址
文件地址

下载 ( 19 KB )

Comments

Total ratings: 0 Average rating: 无评论 of 10