Re: Allowing zip password protected files through

At 13:29 -0500 9-12-2006, Matt wrote:
>I'm actually using version 1.20 (just because it has always worked
>well)....  I'm not seeing a value to block password protected
>archives.. I just searched the pearl file (that's why I wrote the
>mailing list in the first place!! :)
>
>Was this just not an option in 1.20?  Or am I missing something.
>
>It almost looks like it should be just skipping over the password
>protected zip files, no?
>
>  while (<ZIPPED>) {
>       if (/^\s+skipping:\s(.*)\s+(shrink|encrypted|incorrect password)/) {
>         $passwd_protected_zip++ if (!/^\s+skipping:\s(.*)\s+shrink/);
>         #grab these protected filenames for reports anyway.
>         $zfile = $1;
>         $zfile =~ s/^.*\///g;
>         $zfile =~ s/(^\s+|\s+$)//g;
>
>         #$file_desc .= "$zfile:$zsize\t";

Sorry, 1.20 is too old...

ST

-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV