#!/usr/bin/perl

@dirs=qw(
	 door
	 buffet2012
	 bbq2012
	 CNY2013
	 );

foreach $dir(@dirs){
    $dir1="/www/html/photos/$dir";
    chdir "$dir1";
    
    @lines=`/bin/ls *.jpg *.JPG`;
    foreach $line(@lines){
	if($line!~/\_comp/){
	    if($line=~/(\S+)\.(\S\S\S)/){
		$input="$1\.$2";
		$output="$1\_comp\.$2";
		printf "$input, $output\n";
		system("/home/yzhang/bin/convert.pl $input $output");
		#exit();
	    }
	}
    }
}

exit();