view release on metacpan or  search on metacpan

throttleimg  view on Meta::CPAN

	print STDERR "Skipping $file, it's already a directory.\n";
        next;
    } elsif ($file !~ /\.(?:gif|jpg)$/) {
	print STDERR "Skipping $file, doesn't appear to be a GIF or JPEG.\n";
	next;
    }

    print "Processing $file...\n" unless $quiet;
    
    mkdir "$file.dir", 0775 or die $!;
    rename $file, "$file.dir/Z-$file" or die $!;
    rename "$file.dir", $file or die $!;

    print "Creating control file for $time seconds.\n" unless $quiet;
    open (CONF, "> $file/.throttle") or die $!;
    flock (CONF, 2);
    print CONF "$time\n";
    close CONF;

    my $des = "0";
    for my $i (0 .. $steps - 1) {
	my $percent = $i / $steps;

throttleimg  view on Meta::CPAN

	    print STDERR "Skipping $file, doesn't appear to be a ".
                         "GIF or JPEG.\n";
	    next;
	} elsif (!(-e "$file/Z-$file")) {
	    print STDERR "Skipping $file, no original (\"Z-$file\") found.\n";
	    next;
	}

	print "Processing $file...\n" unless $quiet;
    
	rename "$file", "$file.dir" or die $!;
	rename "$file.dir/Z-$file", "$file" or die $!;

	opendir (SF, "$file.dir") || die $!;
	foreach (readdir(SF)) {
	    if (/^[0-9A-Y]-$file$/ || /^\.throttle/) {
		print "Removing $_...\n" unless $quiet;
		unlink "$file.dir/$_";
	    }
	}
        closedir SF;