|; } else { if (($iptcattribute =~ /custom/) && !$is_user) { $star = ' *'; $star_note = 1; } elsif ($iptcattribute =~ /date/i) { if ($eu_date_format) { $star = ' dd/mm/yyyy'; } else { $star = ' mm/dd/yyyy'; } } else { $star = ''; } if (defined($iptc_info)){ $iptcvalue = $iptc_info->Attribute("$iptcattribute"); } $fieldvalue = $iptcvalue; if ($iptcattribute =~ /date/i && $fieldvalue =~ /\S+/) { @character = split(//, $fieldvalue); if ($eu_date_format) { $fieldvalue = qq|@character[6]@character[7]/@character[4]@character[5]/@character[0]@character[1]@character[2]@character[3]|; } else { $fieldvalue = qq|@character[4]@character[5]/@character[6]@character[7]/@character[0]@character[1]@character[2]@character[3]|; } } $fieldlength = $iptcbytes - length($fieldvalue); $onkeyup = qq|val = this.value; if (val.length > $iptcbytes) {alert('According to the IPTC standard this field ($iptcfield) can not be longer then $iptcbytes characters.'); this.value = val.substring(0,$iptcbytes); $iptcattributeform.focus() }|; $boxsize = length($iptcbytes); if ($iptcbytes > '128') { $metadata .= qq||; } else{ $metadata .= qq||; } } } $keyform .= qq|
<$admin_small_font>$iptcfield$star
($rule)
<$admin_small_font>$iptcfield$star
($rule)
$metadata
|; } ############################################################################### # 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;
iptc_keywords.pl
Page URL
File URL
Prev  19/27  Next
Download ( 28 KB )
Leading Cloud Surveillance, recording and storage service. IP camera remote viewing, live streaming, broadcasting

Leading Enterprise Cloud IT Service. Cloud File Server, Drive Mapping, FTP Hosting, Online Storage

Note: The DriveHQ service banners will NOT be displayed if the file owner is a paid member.

Comments
Total ratings: 0 Average rating: Not Rated