in reply to Re: sorting a text file in PERL using a dropdown form
in thread sorting a text file in PERL using a dropdown form

Hi Cody, (I have taken everything you stated and applied it to the code with the best of my abilities). If you should copy this code into a new cgi named viewdir.cgi & then fill in the 2 paths needed you could see it displays all folders in the specified dir and just fails to filter the seclected value"" when selected. I really like the things you've shown me thus far and I hope this complete code below will assist you better with answering my filtering question. Thank you so much for your valued time! Jim tf198@netzero.net 
------------------------------------------------------------

#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);

$viewdirpath = "/home/your_site_id/www/folder_chosen_to_view";
$viewdirpath_only = "http://www.your_url.com/folder_chosen_to_view";
$script = "http://www.your_url.com/folder_chosen/viewdir.cgi";

print "Content-type: text/html\n\n";

&view_dir;

sub view_dir {
opendir DIR, "$viewdirpath";
@$_ = readdir DIR;
closedir DIR;

$count = 0;
foreach $_ ( sort @$_ ) {
$fitem_pathname = "$viewdirpath" . "/" . "$_";
if (-e $fitem_pathname  && -d $fitem_pathname) {
unless ($_ eq ".." || $_ eq ".") {$count++;}}}

print "<body bgcolor=\"#ffffff\"text=\"#000000\" link=\"#000000\ vlink
+=\"#000000\ alink=\"#000000\>";
print "<b>Folders Listed In Directory - $count</b><br>";
print "<form name=\"sortbyform\" action=\"viewdir.cgi\" method=\"GET\"
+>";
print "sort by<br>";

print "<select name=\"sortby\" onChange=\"if (sortbyform.sortby != \''
+) { sortbyform.submit(); }\">";
print "<option value=\"\">Select</option><br><br>";

foreach $sortby (@file = (a..z)) {
if ($FORM{'sortby'} eq $sortby) { print "<option value=\"$sortby\" SEL
+ECTED>$sortby</option>";}
else { print "<option value=\"$sortby\">$sortby</option>";}
}

print "</select>";
print "</form>";

foreach $_ ( sort @$_ ) {
$fitem_pathname = "$viewdirpath" . "/" . "$_";
if (-e $fitem_pathname  && -d $fitem_pathname) {
unless ($_ eq ".." || $_ eq "." || $_ eq "admin") {
if($_ =~ m/^$FORM{'sortbyform'}/i) {
print "<br><a href=$viewdirpath_only/$_>$_</a>";}}}
}
}
------------------------------------------------------------

[download]

edited: Mon Jan 27 15:13:20 2003 by jeffa - added code tags

Replies are listed 'Best First'.
Re: Re: Re: sorting a text file in PERL using a dropdown form
by Cody Pendant (Prior) on Jan 28, 2003 at 02:30 UTC
    OK remember when I said "huge chunks of your code are missing"?

    One huge chunk is still missing. The bit that receives the results of the form and processes them. I'm guessing you're using something like the Visual QuickStart Guide subroutine Parse_Form, from the name of the hash it creates, %FORM? You should put it back in. But then you should take it out again and start using CGI.pm to handle your form input.

    But your HTML is so broken that I had to close a bunch of quotes and so on before I could even get a usable page out of this code. Check your BODY tag, it's a mess of unclosed quotes. You need to start using Here Documents, or maybe qq(), for printing out tons of HTML.

    And even when you've fixed all that, it still doesn't work, because you're doing this: 

    
if($_ =~ m/^$FORM{'sortbyform'}/i)

    [download]
    and 'sortbyform' is just the name of the form.

    What you, or whoever wrote this, intended, is presumably 

    
if($_ =~ m/^$FORM{'sortby'}/i)

    [download]
    which is the name of the select menu, where the form-processing code you don't have would put the result of that form being submitted.

    I don't feel up to it, but I really think someone should give Anonymous Monk a brief lecture on security at this point?
    --
    “Every bit of code is either naturally related to the problem at hand, or else it's an accidental side effect of the fact that you happened to solve the problem using a digital computer.” M-J D

[reply]
[d/l]
[select]
      I got it to work as is. Made some little improvments as well. GL.
[reply]

In Section Seekers of Perl Wisdom