--- /c/www/build/www/en/cgi/mid.cgi Mon Oct 31 15:25:05 2005 +++ /home/flz/public_html/mid.cgi Wed Jan 4 14:35:46 2006 @@ -43,7 +43,7 @@ sub escape($) { $_ = $_[0]; s/&/&/g; s/</g; s/>/>/g; $_; } sub get_id { - local($query, $db) = @_; + local($query, $db, $list, $raw) = @_; open(DB, "-|") || exec("$lookCommand", $query, "$lookupdir/mid-current.$db") || @@ -72,6 +72,9 @@ } close DB; + if ($list) { + @idlist = grep { /$list/ } @idlist; + } if ($#idlist < 0) { # nothing found print &midheader; @@ -91,7 +94,7 @@ $start =~ s/\s+$//; print "Location: $location/getmsg.cgi?fetch=$start+0+" . - ($file =~ /^current/ ? '' : "$prefix/") . "$file\n"; + ($file =~ /^current/ ? '' : "$prefix/") . "$file$raw\n"; print "Content-type: text/plain\n\n"; exit; @@ -106,7 +109,7 @@ $name =~ s%(....)(..)(..)\.%$1-$2-$3 %; print qq{