if ($action eq 'admin') {
	print $query->header;
	if ($login && $password)  {
		&admin($query, $login, $password);
	} else {
		print &PagePassword($NAME_TITLE{'common_admin'});
	}
} elsif ($action eq 'upload') {

##### My code begins #####

use CGI qw(:cgi);
	use strict;
	`perl newimg2db.pl > newimgseekurl.txt`;
	sleep 1 while ( !(-e "newimgseekurl.txt") );
	
	use File::Copy;
	copy("newimgseekurl.txt", "newimgseekurl2.txt") or die "File cannot be copied.";
	my $file = "newimgseekurl.txt";
	unlink($file);
	
  	open FILE, "newimgseekurl2.txt" or die "Couldn't open file: $!";
  	my $newimgseekurl = <FILE>;
  	close FILE;
	print redirect("$newimgseekurl");

##### My Code Ends #####

	if ($dir = &check_password('guest', $login, $password)) {
		print &Upload($query, $dir);
	} else {
		print &BadPassword($NAME_TITLE{'common_member'});
	}
} else {
	print $query->redirect($FORM_URL);