Newbie

[Clooney, David]

Firstly, apologies for replying to and existing thread and changing the
subject, lesson learned.

 

Bit of a newbie to the list, in fact a relatively newbie to perl.

 

 Whilst I struggle away to create an understanding of perl for myself I
have encountered an issue which I presume a lot of you will be able to
solve with you eyes closed

 

I am trying develop an interface in which users can interrogate our
backup systems to request data they would like to be restored.

 

I have managed to get as far generating file lists into checkbox groups
for selection, my question now is, what would be the best way once
submitted of getting all the values of the selected checkboxes in order
for me to then create a mail to fire off to a team to carry out the
restore.

 

I have tried printing all parameters in the subroutine that is called
when the submit(-name=>'Submit_selection') is defined however the only
parameter I get back is the actual "Submit_selection", presumably
because these are local to the subroutine ?

 

Can anyone point me in the right direction

 

Appreciated

 

Dave

 

 

 

The code I have so far:

 

 

 

print start_html(-title=>'NCG UK Restore
Portal',-style=>{'src'=>"$style"}),

      h1({-align=>'center'},'NCG UK Restore portal'),

      h3({-align=>'center'},'NCG UK Technical Search Results'),

      pre,

      'The following entries have been found based upon your search
criteria',

      p,

      'Please select the entries you require ',

      '                                      ',

      p,

      br;

      if ($host_tech_file_list) {

          print h4({-align=>'left'},"Master Server: $master"),

                 '                                      ',

                 "\n",

          table;

          &host_technical_files_to_checkbox;

          print table;

         }

 

print start_form,

      pre,

         '     ',

      br,

      submit(-name=>'Submit_selection'),

      end_form;

}

 

 

 

sub   host_technical_files_to_checkbox {

           foreach $host_tech_file_list_part (@host_tech_file_list_part)
{

                 $host_tech_file_list_part =~ s/\s+$//;

           chop $host_tech_file_list_part;

           if ( $host_tech_file_list_part =~ /\/$/) {

           print start_Tr({ -bgcolor => "#F0F8FF"}), start_td,
'Directory  ',end_td , start_td,

                 checkbox_group(-name=>'host_tech_file_selection',

                                -value=>"$host_tech_file_list_part"),

                 "\n",

                 br,

                 end_td, end_Tr;

                         }

           else {

           print start_Tr({ -bgcolor => "#FFFFFF" }), start_td,
'File',end_td , start_td,

                  checkbox_group(-name=>'host_tech_file_selection',

                                -value=>"$host_tech_file_list_part"),

                 "\n",

                   br,

                 end_td, end_Tr;

 

                        }

 

      }

}

 




Notice to recipient:
The information in this internet e-mail and any attachments is confidential and may be privileged. It is intended solely for the addressee. If you are not the intended addressee please notify the sender immediately by telephone. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it, is prohibited and may be unlawful.

When addressed to external clients any opinions or advice contained in this internet e-mail are subject to the terms and conditions expressed in any applicable governing terms of business or client engagement letter issued by the pertinent Bank of America group entity.

If this email originates from the U.K. please note that Bank of America, N.A., London Branch and Banc of America Securities Limited are authorised and regulated by the Financial Services Authority.