\n" ;
}
#ECHO @photos ;
for(@photos){
push @years, $1 if /^(\d{4})/ and $1 ne $years[-1];
push @months, $1 if /^\d{4}-(\d{2})/ and $1 ne $months[-1] ;
push @seasons, 101 if /^\d{4}-(\d{2})/ and $1 =~ /(03|04|05)/ and $1 ne $seasons[-1] ;
push @seasons, 102 if /^\d{4}-(\d{2})/ and $1 =~ /(06|07|08)/ and $1 ne $seasons[-1] ;
push @seasons, 103 if /^\d{4}-(\d{2})/ and $1 =~ /(09|10|11)/ and $1 ne $seasons[-1] ;
push @seasons, 104 if /^\d{4}-(\d{2})/ and $1 =~ /(12|01|02)/ and $1 ne $seasons[-1] ;
if($cgi_data{moreopts}){
split "\t" ;
push @_, '' if $_ =~ /\t$/ ;
push @_, '' if $_ =~ /\t\t$/ ;
my ($E, $P) = @_[-2,-1] ;
#push @fEvents, $E ;
#push @fPersons, grep{!/^\?*$/}split(/\|/, $P) ;
$fEvents{$E}++ ;
for $P(grep{!/^\?*$/}split(/\|/, $P)){$fPersons{$P}++}
}
}
#@fPersons = map{
# $_ = substrHTML($_,0,20) ;
#}UNIQ(@fPersons) ;
#@fEvents = map{
# substrHTML($_,0,20) ;
# #$_ = CHARISO(htmlchar($_)) ; $_ = (substr($_, 0, 20)).(length($_) > 20 && "...") ; $_ = charhtml(ISOCHAR($_)) ;
#}UNIQ(@fEvents) ;
@months = UNIQ(@months) ;
@seasons = UNIQ(@seasons) ;
#ECHO $cgi_data{year} ;
#ECHO "years", @years ;
#ECHO "months", @months ;
#ECHO "seasons", @seasons ;
#ECHO "Persons", @Persons ;
if(!$cgi_data{access}){
#if($cgi_data{year} or @years != 1){
#if(!$cgi_data{moreopts}){
my $checked = "checked" if $cgi_data{moreopts} ;
print " More options\n" ;
print " " unless $cgi_data{moreopts} ;
#
#}
#else{
if($cgi_data{moreopts}){
print "
" ;
my $checked = "checked" if $cgi_data{OnlyFilm} ;
print " Show only film-clips\n" ;
print "
\n\n" ;
#}
#else{
# print "\n" ;
#}
#if($cgi_data{month} or @months != 1){
print "
\n" ;
if(%fEvents ){
print "
\n" ;
}
if(%fPersons and (!$ALL or $cgi_data{Email} eq 'eelfgren@hotmail.com')){
print "
\n" ;
}
#}
my $value ;
#$value = "value=\"$cgi_data{Search}\"" ;
print "Search: " ;
print " " ;
#my $value = "checked" if $cgi_data{Search} ;
print "
Search current section only" ;
#print " More options\n" ;
#print "\n" ;
#{($tName = charhtml($OrgName)) ; print "
Photos with $tName
" ;}
}
print "
" ;
}
#print "\n" if $cgi_data{YSearch} ;
#print "" ;
#print "Search: \n" ;
#print "" ;
$cgi_data{Search} = "" unless $cgi_data{Search} ;
#print "\n" ;
#print "\n" ;
if($cgi_data{Email}){
my $Where ;
for("Country_Type", "Group", "Event"){
$Where .= $cgi_data{$_}? "&$_=$cgi_data{$_}" : "" ;
}
my $PhotoFilm = $cgi_data{OnlyFilm} ? "films" : "photos" ;
if(! $ALL){
#print "\n" ;
print " Click here to see all $PhotoFilm" ;
print "![\"Your](\"/imgs/cgi/Your.png\")
\n" ;
#print "
" ;
#print "\n" ;
#print " | \n" ;# | \n"; #\n" ;
#print " |
\n" ;
#print '
'."\n" ;
$i = 0 ;
#$Date = "&Date=${year}-${month}" ;#if $Date ;
$Date = "&year=${year}" if $year and $year ne '\d{4}' ;
$Date .= "&month=${month}" if $month and $month ne '\d{2}' ;
for(@yourtree){ $i++ ; $Group = $Event = $n = '' ;
$n = $1 if s/(.*)\t// ;
$n .= $1 if s/^( +)// ;
#ECHO $n ;
(my $o = $_ )=~ s/_/ /g ;
my $ofull = $o ;
$o = CHARISO(htmlchar($o)) ;
my $add = "..." if length($o) > 28 ;
$o = charhtml(ISOCHAR(substr($o, 0, 28))).$add ;
$o =~ s/None // ; $ofull =~ s/None // ;
$o = "$o" ;
#if ($cgi_data{"Event"}){ }
#elsif ($cgi_data{"Group"}){ }
#elsif ($cgi_data{"Country_Type"}){ }
#print ' ' while ($n =~ s/^ // and $j++) ;
if($n =~ s/^ //){ print ' ' if $_ ; {$o = "$o" if charhtml($cgi_data{"Event"}) eq $_ and !$ALL}; {$_ = htmlchar($_) ; s/&/%26/g ; $_ = charhtml($_)} ; $Event = "&Event=$_" ; $_ = $cgi_data{"Country_Type"} ; $Group = "&Group=$cgi_data{Group}" }
elsif($n =~ s/^ //){ print ' ' ; $o = "$o" if charhtml($cgi_data{"Group"}) eq $_ and !$ALL; $Group = "&Group=$_" ; $_ = $cgi_data{"Country_Type"} }
else{$o = "$o" if charhtml($cgi_data{"Country_Type"}) eq $_ and !$ALL;}
#$img = "subdir" ;
#$img = "plain" if $n <= 20 ;
$img = "plain" ;
#if ($j){ $Group = $_ ; $_ = $cgi_data{"Country_Type"} ;}
#s/ /\%20/g ;
next if $Event eq "&Event=" ;
$link = "Country_Type=$_$Group$Event$Date" ;
$link = htmlchar($link) ;
print "![\"»\"](\"/imgs/cgi/$img.gif\") $o
"."\n" ;
}
#$cgi_data{ASearch} = "Search all" unless $cgi_data{ASearch} ;
#print "\n" ;
#print "\n" ;
}
else{
print " Click here to see your $PhotoFilm" ;
print " ![\"All](\"/imgs/cgi/All.png\")
\n" ;
$i = 0 ;
for(@alltree){ $i++ ; $Group = $Event = $n = '' ;
$n = $1 if s/(.*)\t// ;
$n .= $1 if s/^( +)// ;
(my $o = $_ )=~ s/_/ /g ;
my $ofull = $o ;
#(my $ofull = (my $o = $_ )=~ s/_/ /g) ;
#(my $ofull = $o = $_) =~ s/_/ /g ;
$o = CHARISO(htmlchar($o)) ;
my $add = "..." if length($o) > 28 ;
$o = charhtml(ISOCHAR(substr($o, 0, 28))).$add ;
$o =~ s/None // ; $ofull =~ s/None // ;
$o = "$o" ;
#print ' ' while ($n =~ s/^ // and $j++) ;
#ECHO 2, $_ ;
if($n =~ s/^ //){ print ' ' if $_ ; $o = "$o" if charhtml($cgi_data{"Event"}) eq $_ and $ALL ;$Event = htmlchar("Event=$_") ; $Event=~ s/&/%26/g ; $Event = "&".charhtml($Event) ; $_ = $cgi_data{"Country_Type"} ; $Group = "&Group=$cgi_data{Group}" }
#if($n =~ s/^ //){ print ' ' if $_ ; $Event = "&Event=$_" ; $_ = $cgi_data{"Country_Type"} ; $Group = "&Group=$cgi_data{Group}" }
elsif($n =~ s/^ //){ print ' ' ; $o = "$o" if charhtml($cgi_data{"Group"}) eq $_ and $ALL ;$Group = "&Group=$_" ; $_ = $cgi_data{"Country_Type"} }
else{$o = "$o" if charhtml($cgi_data{"Country_Type"}) eq $_ and $ALL ;}
#if($n =~ s/^ //){ print ' ' ; $Group = "&Group=$_" ; $_ = $cgi_data{"Country_Type"} }
#if($n =~ s/^ //){ print ' ' ; $Event = "&Event=$_" ; $_ = $cgi_data{"Country_Type"} ; $Group = $cgi_data{Group} }
#$img = "subdir" ;
#$img = "plain" if $n <= 20 ;
$img = "plain" ;
#s/ /\%20/g ;
next if $Event eq "&Event=" ;
$link = "Country_Type=$_$Group$Event$Date" ;
$link = htmlchar($link) ;
#ECHO $link ;
#my $border = 1 if
my $border = 0 ;
print "$o
"."\n" ;
}
}
print "
| \n" ;
}
if($cgi_data{Advanced}){
print "\n" ;
print "\n" ;
#$cgi_data{Advanced} = 1 if $cgi_data{Email} eq 'eelfgren@hotmail.com' ;
print "\n" ;
if ($cgi_data{Email} eq 'eelfgren@hotmail.com'){
print "\n" ;
$str = $cgi_data{Country_Type}.$cgi_data{Group}.$cgi_data{Event}.$cgi_data{Search} ;
$str =~ s/'/'\\''/g ;
($md5) = (`echo 'xyz$str'|md5sum` =~ /(\S{4})/) ;
my $Country_Type = "Country_Type=$cgi_data{Country_Type}&" if $cgi_data{Country_Type} ;
my $Group = "Group=$cgi_data{Group}&" if $cgi_data{Group} ;
my $Event = "Event=$cgi_data{Event}&" if $cgi_data{Event} ;
my $Search = "Search=$cgi_data{Search}" if $cgi_data{Search} ;
print "Publish photos " ;
print "Send photos
" ;
}
else{
print "
" ;
}
}
if ($YSearch and !$cgi_data{access}){
print "Searched for \"$YSearch\" in " ;
my $tName = ($ALL) ? "All photos" : "Your photos" ;
my $tName2 = $cgi_data{Event} || $cgi_data{Group} || $cgi_data{Country_Type} || "" ;
$tName .= " -- ".$tName2 if $tName2 ;
$year =~ s/\\d\{4\}// ;
$month =~ s/\\d\{2\}// ; $month = $months[$month-1] if $month ;
$tDate = " -- ".$year." - ".$month if $month and $year ;
$tDate = " -- ".$year.$month if !$tDate and ($month or $year) ;
$tName .= $tDate if $tDate ;
$tName =~ s/_/ /g ;
print charhtml($tName)," " ;
}
$i = 0 ;
#for("Country_Type", "Group", "Event"){$i++; $$_ = $cgi_data{$_} ; $$_=~s/_/ /g ; $$_=charhtml($$_) ; print " $$_ " if $$_}
#print " $cgi_data{Country_Type} " if ${Country_Type} ;
#print " $cgi_data{Country_Type} " if ${Group} ;
#print " $cgi_data{Country_Type} " if ${Event} ;
#$Nphoto = $cgi_data{Nphoto} || 20 ;
#$i = $cgi_data{I}||0 ;
#ECHO sort(@photos) ;
#ECHOA $cgi_data{Country_Type}, $cgi_data{Group}, $cgi_data{Event} ;
for(($i=$cgi_data{I}||0); $i<@photos; $i++){
#for(@photos[($i+1)..$i+20]){ $i++ ; $i = "0$i" if $i<10 ;
for("Country_Type", "Group", "Event"){$$_=''}
last if $i>=$Nphoto+($cgi_data{I}||0) ;
$photos[$i] = htmlchar($photos[$i]) ;
$_ = $photos[$i] ;
if($Compact==9){
($Photo) = /([^\t]*)/ ;
($title = $_) =~ s/\t/ -- /g ;
$title =~ s/\|/, /g ;
print "![](\"/imgs/cgi/photos/${tName}_$md5Name/$Size/$Photo\") \n" ;
#print "\n" ;
mkdir("../imgs/cgi/photos/${tName}_$md5Name") unless -d "../imgs/cgi/photos/${tName}_$md5Name";
for my $size(Tiny,Thumbs,Small,Medium,Large){my $D = "../imgs/cgi/photos/${tName}_$md5Name/$size"; mkdir($D) unless -d $D ; symlink("../../../ALL_photos/$size/$Photo","$D/$Photo") unless -e "../imgs/cgi/photos/${tName}_$md5Name/$size/$Photo"} ;
}
else{
split "\t", $photos[$i] ;
push @_, '' if $photos[$i] =~ /\t$/ ;
push @_, '' if $photos[$i] =~ /\t\t$/ ;
#ECHO @_ ;
#next ;
($Photo, $Comment, $Country_Type, $Group, $Event, $People) = @_ if @_ == 6 ;
($Photo, $Comment, $Group, $Event, $People) = @_ if @_ == 5 ;
($Photo, $Comment, $Event, $People) = @_ if @_ == 4 ;
($Photo, $Comment, $People) = @_ if @_ == 3 ;
$People = charhtml($People) ;
$diff = difftime($oldPhoto, $Photo) ;
#print "
" if $diff > 60*60*24*1 ;
#print "
" if $diff > 60*60*24*365 ; # 1 years
#ECHO @_ ;
#ECHO scalar(@_), ($Photo, $Country_Type, $Group, $Event, $People) ;
$Group = 'Unsorted' if !$Group and @_ >= 5 ;
$Event = 'Unsorted' if !$Event and @_ >= 4 ;
next unless $Photo ;
$People =~ s/\|$// ;
@People = split /\|/, $People ; # TODO: Watch out for " "
#"" ;
$tCountry_Type = ($Country_Type) ? $Country_Type : $cgi_data{Country_Type} ;
$tGroup = ($Group) ? $Group : $cgi_data{Group} ;
$tEvent = ($Event) ? $Event : $cgi_data{Event} ;
#$j=0;for("Country_Type", "Group", "Event"){$j++; $$_=~s/_/ /g; print " $$_ \n" if $$_ and $$_ ne ${"old$_"}}
#for("Country_Type", "Group", "Event"){(${"o$_"}=${"t$_"}) =~ s/_/ /g; ${"t$_"} = htmlchar(${"t$_"}); ${"t$_"} =~ s/&/%26/g ; ${"o$_"} = charhtml(${"o$_"})}
for("Country_Type", "Group", "Event"){(${"o$_"}=${"t$_"}) =~ s/_/ /g; ${"t$_"} =~ s/&/%26/g ; ${"o$_"} = charhtml(${"o$_"})}
$oCountry_Type =~ s/None // ;
if ($Size eq "Tiny"){
#if ($diff > 60*60*24*365 and $tEvent eq ${"oldEvent"}){print " "} # 1 year
#if ($diff > 60*60*24*365){($Yr) = ($Photo =~ /(\d{4})/);print "$Yr"} # 1 year
if ($diff > 60*60*24*365){($Yr) = ($Photo =~ /(\d{4})/);print "$Yr"} # 1 year
elsif ($diff > 60*60*24*1 and $tEvent eq ${"oldEvent"}){print " "} # 1 day
}
else{
#if ($diff > 60*60*24*365){print "
"} # 1 year
#if ($diff > 60*60*24*365){($Yr) = ($Photo =~ /(\d{4})/);print "$Yr"} # 1 year
if (($Photo =~ /(\d{4})/)[0] != ($oldPhoto =~ /(\d{4})/)[0]){($Yr) = ($Photo =~ /(\d{4})/);print "$Yr"} # 1 year
elsif ($diff > 60*60*24*1){print "
"} # 1 day
}
#$tDate = "&Date=$Date" if $Date ;
$tName = "&Name=$cgi_data{Name}" ;
#$tName .= "ALL" if $ALL ;
$tALL = "&ALL=1" if $ALL ;
$H1 = 1+$Compact ; $H2 = 2+$Compact ; $H3 = 3+$Compact ;
for(H1, H2, H3){$$_ = ($$_<5)? "H$$_" : "FONT size=".(9-$$_)}
if ($tCountry_Type and $tCountry_Type ne ${"oldCountry_Type"}){
@CT = split("//",$tCountry_Type) ;
my $o ;
print "
" if $Compact == 4 and $diff <= 60*60*24*365 ;
print "<$H1> " ;
for my $tCT (@CT){
print $o ; $o = "/" ;
print ((!$cgi_data{access}&&"")).charhtmlspace($tCT).(!$cgi_data{access}&&"")) ;
#print "/" if $tCT ne @CT[-1] ;
}
print " \n" ;
}
if ($tGroup and $tGroup ne ${"oldGroup"}){
#ECHO "test", @CT ;
print "
" if $Compact > 2 and $tCountry_Type eq ${"oldCountry_Type"};
print "--" if $Compact == 4 ;
print "<$H2> " ;
@Gr = split("//",$tGroup) ;
my $o ;
my $i = 0 ;
for my $tGr (@Gr){
$tCT = $CT[$i] ;
$i++ if $CT[$i+1] ;
#$tCT = shift @CT ;
print $o ; $o = "/" ;
print ((!$cgi_data{access}&&"")).charhtmlspace($tGr).(!$cgi_data{access}&&"")) ;
#print "/" if $tGr ne (split("//",$tGroup))[-1] ;
}
print " \n" ;
}
#print "<$H1> ".(!$cgi_data{access}&&$tCountry_Type!~m+//+&&""))."$oCountry_Type".(!$cgi_data{access}&&"")." \n" if $tCountry_Type and $tCountry_Type ne ${"oldCountry_Type"} ;
#print "<$H2> ".(!$cgi_data{access}&&$tGroup!~m+//+&&$tCountry_Type!~m+//+&&""))."$oGroup".(!$cgi_data{access}&&"")."
\n" if $tGroup and $tGroup ne ${"oldGroup"} ;
print "<$H3>
".(!$cgi_data{access}&&$tGroup!~m+//+&&$tCountry_Type!~m+//+&&""))."$oEvent".(!$cgi_data{access}&&"")."
\n" if (($tEvent and $tEvent ne ${"oldEvent"}) or ($tGroup and $tGroup ne ${"oldGroup"})) ;
(my $title = $Photo) =~ s/(\d{4}-\d{2}-\d{2})_(\d{2})-(\d{2})-(\d{2}).*/$1 $2:$3:$4 -- / ;
$title .= $Comment." -- " if $Comment ;
$title .= join(", ", @People) ;
(my $tName = $OrgName) ;
$tName =~ s/ /_/g ;
mkdir("../imgs/cgi/photos/${tName}_$md5Name") unless -d "../imgs/cgi/photos/${tName}_$md5Name";
for my $size(Tiny,Thumbs,Small,Medium,Large){my $D = "../imgs/cgi/photos/${tName}_$md5Name/$size"; mkdir($D) unless -d $D ; symlink("../../../ALL_photos/$size/$Photo","$D/$Photo") unless -e "../imgs/cgi/photos/${tName}_$md5Name/$size/$Photo"} ;
#print "![](\"ALL_photos/$Size/$Photo\") \n" ;
my $oName = $tName ;
$oName =~ s{\\}{%5c}g ;
print "![](\"../imgs/cgi/photos/${oName}_$md5Name/$Size/$Photo\") \n" ;
#print "![](\"../imgs/cgi/photos/${tName}_$md5Name/$Size/$Photo\") \n" ;
#print "![](\"ALL_photos/Tiny/$Photo\") \n" ;
print " " ;
print "" if $i%4 == 4 ;
for("Country_Type", "Group", "Event"){${"old$_"}=${"t$_"} if ${"t$_"}}
$oldPhoto = $Photo ;
}
}
print " \n" ;
#ECHO $i ;
#ECHO keys %cgi_data ;
$out = '' ;
for(keys %cgi_data){$out .= "&$_=".$cgi_data{$_} if $_ ne "I" and $_ and $cgi_data{$_}};
#$out .= 'Name=' if $ ;
#$out .= $tName ;
#ECHO $out ;
#ECHO $i, (@photos) ;
#ECHO $i, $Nphoto, $cgi_data{I} ;
#ECHO int($i/$Nphoto-1)*$Nphoto ;
if(@photos>$Nphoto){
print " \n" ;
if ($i > $Nphoto and @photos >= $i){
print " \n" ;
print "![\"[Prev](\"/imgs/cgi/PrevFrost3b.png\") \n" ;
}
else{
print ' '."\n" ;
}
if ($i < @photos){
print "\n" if $i < @photos ;
print "![\"[Next](\"/imgs/cgi/NextFrost3b.png\") \n" ;
}
else{
print ' '."\n" ;
}
print "" ;
}
print "Go to page: " if $Nphoto < @photos ;
#print "[Prev $Nphoto] \n" if $i > $Nphoto and @photos >= $i;
#print "[Prev $Nphoto photos] \n" if $i > $Nphoto and @photos >= $i;
#if(@photos>$Nphoto){for(0..int((@photos-1)/$Nphoto)){if($cgi_data{I}==$Nphoto*$_){print " ".($_*$Nphoto)."\n"}else{print " [".($_*$Nphoto)."] \n" }}}
#if(@photos>$Nphoto){for(0..int((@photos-1)/$Nphoto)){if($cgi_data{I}==$Nphoto*$_){print " ".($_)."\n"}else{print " ".($_)." \n" }}}
{my $D=1;
#if(@photos>$Nphoto){for($_=0;$_<=int((@photos-1)/$Nphoto);$_+=$delta){if($cgi_data{I}==$Nphoto*$_){print " ".($_)."\n"}else{print " ".($_)." \n"; $delta*=10 if $_%(10*$delta) == 0 and $_>1 and print "..." }}}}
#if(@photos>$Nphoto){for($_=0;$_<=int((@photos-1)/$Nphoto);$_+=$D){if($cgi_data{I}==$Nphoto*$_){print " ".($_)."\n"}else{print " ".($_)." \n"; $D = 10**(length(abs($cgi_data{I}-$_))-1) }}}}
#if(@photos>$Nphoto){for($_=0;$_<=int((@photos-1)/$Nphoto);$_+=1){
# $D = 10**(length(abs($cgi_data{I}/$Nphoto-$_)-1)-1) ; my $o=$_; $o="." if abs($cgi_data{I}/$Nphoto-$_) >= $D and $_%($D-0) ;
# if($cgi_data{I}==$Nphoto*$_){print " ".($_)."\n"}else{print " ".($o)." \n"; }}}}
if(@photos>$Nphoto){for($_=0;$_<=int((@photos-1)/$Nphoto);$_+=1){
$D = 10**(length(abs($cgi_data{I}/$Nphoto-$_)-1)-1) ; next if abs($cgi_data{I}/$Nphoto-$_) >= $D and $_%($D-0) ;
if($cgi_data{I}==$Nphoto*$_){print " ".($_)."\n"}else{print +($D>1 && $cgi_data{I}/$Nphoto-$_<0 &&"...")." ".($_)." \n".($D>1 && $cgi_data{I}/$Nphoto-$_>0 &&"..."); }}}}
#print "[Next $Nphoto]\n" if $i < @photos ;
#print "![\"[Next](\"/imgs/cgi/next4.gif\") \n" if $i < @photos ;
print "\n" ;
$ZipName = (!$ALL) ? "Your-" : "All-" ;
$ZipName .= $cgi_data{Event} || $cgi_data{Group} || $cgi_data{Country_Type} || "photos" ;
$year =~ s/\\d\{4\}// ;
$month =~ s/\\d\{2\}// ; $month = $months[$month-1] if $month ;
$ZipDate = "-".$year."-".$month if $month and $year ;
$ZipDate = "-".$year.$month if !$ZipDate and ($month or $year) ;
$ZipName .= $ZipDate if $ZipDate ;
#$ZipDate = $cgi_data{year} unless $cgi_data{year} eq '\d{4}' ;
#ECHO $year, $month, $cgi_data{year}, $cgi_data{month}, $lDate ;
$ZipSearch = $YSearch || $ASearch ;
$ZipName .= "_Search-$ZipSearch" if $ZipSearch ;
$ZipName =~ s/ /_/g ;
#$ZipName =~ s/aa/a/g ;
$ZipName =~ s/['`^]//g ;
$ZipName =~ s/&/and/g ;
#ECHO $ZipName ;
#$ZipName = CHARISO($ZipName) ;
#print " Download these ".(scalar @photos)." files\n" ;
$Name =~ s/ /_/g ;
#ECHO $Name, $ZipName ;
(my $tName = $OrgName) ;
$tName =~ s/ /_/g ;
open F, ">>../imgs/cgi/photos/${tName}_$md5Name.hist" ;
#print F "${ZipName}&".join("&",map{$s=$_;$s=~s/\t.*//;$FileSize+=(-s "/home/elf/Photos/Conv/Large/$s"); $s}@photos) ;
print F "${ZipName}&".join("&",map{$s=$_;$s=~s/\t.*//;$FileSize+=(-s "../imgs/cgi/photos/${tName}_$md5Name/Large/$s"); $s}@photos) ;
#ECHOA $photos[0], $FileSize ;
$FileSize = int($FileSize/1024**2*10+1)/10 ;
#print F "\n" ;
$ENV{QUERY_STRING} =~ s/ /%20/g ;
print F " $ENV{QUERY_STRING} $ENV{REMOTE_ADDR} $time\n" ;
close F ;
$Utrop = "!" if $FileSize > 50 ;
$Utrop = "!!" if $FileSize > 200 ;
if($FileSize>500){ print ((scalar @photos)." photos")}
else{print "
Download all ".(scalar @photos)." photos with highest quality (file size: $FileSize MB$Utrop)\n" if @photos ;}
print " |