User:Nichalp/code2

Code

 * 1) ! /usr/bin/perl
 * 2) Testing.plx

use strict; use warnings;

my ($current_name, $new_name, $description_language, $description, $author, $date, $permission, $other_version1, $other_version2, $coordinate, $latitude, $latitude_ref, $longitude, $longitude_ref, $geo_type, $geo_region, $geo_scale, $geo_heading, $geo_reference, $category_1, $category_2, $category_3, $category_4, $category_5, $rotation, $altitude, $time_zone, $country, $state, $flick, $flickr_title, $flickr_url, $flickr_photographer_url, $place, $camera, $model, $aperture, $shutter, $film, $iso, $lens); my $err=0; my $line; my ($geo_parameters);

open(FILELIST,"; #<-- skips first line

while() { $line= $_; chomp($line); $line=~tr/"//d; #removes the double quotes	#splitting the CSV file by comma	($current_name, $new_name, $description_language, $description, $author, $date, $permission, $other_version1, $other_version2, $coordinate, $latitude, $latitude_ref, $longitude, $longitude_ref, $geo_type, $geo_scale, $geo_region, $geo_heading, $geo_reference, $category_1, $category_2, $category_3, $category_4, $category_5, $rotation, $altitude, $time_zone, $country, $state, $flick, $flickr_title, $flickr_url, $flickr_photographer_url, $place, $camera, $model, $aperture, $shutter, $film, $iso, $lens) = split ',', $line;

if ($description eq ""){print "Please add a description to $current_name\n" ;$err=1;}; if ($permission eq ""){print "Please add licensing information to $current_name\n";$err=1;}; if ($category_1 eq ""){print "Please enter a category\n"; $err=1;};
 * 1) Check to see if compulsory fields Description, Permissions, and Category has been added. Warn if not.

if (($latitude ne "") xor ($longitude ne "")) {		if($latitude eq "") {		  print "Please add the latitude to $current_name\n"; } 		if($longitude eq "") {		  print "Please add the longitude to $current_name\n"; }		if($latitude_ref eq "") {		  print "Please add the latitude reference (N or S) to $current_name\n"; }		if($longitude_ref eq "") {		  print "Please add the longitude reference (E or W) to $current_name\n"; }		$err=1; }
 * 1) Check to see if both latitude and longitude are given, and one is not missing. If both do not exist, ignore.

if ($geo_type ne "") {$geo_parameters.="type:$geo_type\_";}; if ($geo_scale ne "") {$geo_parameters.="scale:$geo_scale\_";}; if ($geo_region ne "") {$geo_parameters.="region:$geo_region\_";}; if ($geo_heading ne "") {$geo_parameters.="heading:$geo_heading\_";}; if ($geo_reference ne "") {$geo_parameters.="source:$geo_reference";}; $geo_parameters=~s/^_*//; # Remove leading underscore $geo_parameters=~s/_*$//; # Remove trailing underscore
 * 1) Gathering and formatting geo parameters
 * 1) Gathering and formatting geo parameters

if (($latitude ne "") && ($longitude ne "") && (($coordinate eq 'd') || ($coordinate=""))) {		$geo_reference="\n";} elsif ((($latitude ne "") && ($longitude ne "")) && ($coordinate eq "dms")) {		$geo_reference="\n"; }				print "$geo_reference";
 * 1) This checks to see if the Geo Location box is needed, and fills in the values
 * 1) This checks to see if the Geo Location box is needed, and fills in the values

}

if ($err == 1) {die "Please add the above values and try again...\n\n";}

testing.cvs
"Current name","New name","Description lang","Description","Author","Date","Permission","Other versions 1","Other versions 2","Coordinate","Latitude","Latitude Ref","Longitude","Longitude Ref","Type","Scale","Region","Heading","Reference","Category1","Category2","Category3","Category4","Category5","Rotation","Altitude","Time Zone","Country","State","Flickr","Flickr title","URL","Photographer URL","Reviewer","Camera","Model","Aperture","Shutter","Film","ISO","Lens" "img1.jpg",,"en","test image","Nicholas",26/06/08,"GFDL",,,"d",55,"N",22,"E","landmark",2000,"IN-MH",234,"ORTS","Beaches",,,,,,,,,,,,,,,,,,,,,