Hi all,
I'm trying to display some (hopefuly) nicely formatted
information in a web page. The data is pulled from a
comma seperated text file. Preferably the data would
be scrollable (don't want the page itself to go on and
on, so need it displayed in a table or form)
searchable, and ideally be able to have form buttons
associated with it (so the functionality could be added
to remove the item from the data file, or update
portions of the data such as description, etc).
The data is written by a form on the same page, so the
format is one I control. Here's a rather basic way I'm
doing it now using a form, any suggestions on how to
improve the look, or add the ability to edit/remove
items? (note that each item is actually representative
of a file that gets copied to several servers, so any
sort of remove would be a seperate script to handle
removing those files from each server).
(this is just a snip of the code, to avoid making
people read through the entire page, which is just
a form to generate the data that goes into this
text file)
Thanks for any tips...
Tony
open (RECORD, "<pcv/pcview.clients")
or die "Count not open clients file. ($!)";
print "<FORM ACTION=\"none\" METHOD=\"GET\"
ENCTYPE=\"application\/x-www-form-urlencoded\">\n";
print "<TEXTAREA NAME=\"blah\" ROWS=\"1\" COLS=\"100\" READONLY>\n";
printf ("%-30s %-10s %-10s %-5s %-5s %-5s %-5s", "Client", "Config", "TTYID", "PORT",
"CRT", "DEPT", "DESCRIPTION");
print "<\/TEXTAREA>\n";
print "<TEXTAREA NAME=\"notused\" ROWS=\"10\" COLS=\"100\" READONLY>\n";
my @array = <RECORD>;
my $line;
foreach $line (sort @array) {
my ($ws, $cfg, $tty, $port, $crt, $dept, $desc) = split (',',$line);
printf ("%-30s %-10s %-10s %-5s %-5s %-5s %-5s", $ws, $cfg, $tty, $port, $crt, $dept,
$desc);
}
print "<\/TEXTAREA>\n";
print "<\/FORM>\n";
close RECORD;
--------------Data - pcview.clients------------------
egh-crisser.pcv,DEF,PCJCI,814,PCJ,CI,Connie Risser
egh-cnowlin1.pcv,DEF,ERFCI,277,ERF,CI,Colleen Nowlin
egh-swhite_3.pcv,DEF,OHECI,631,OHE,CI,Shelley White
egh-aakens.pcv,NOPA,AJAIS,000,AJA,IS,Tony Akens
egh-twoods.pcv,DEF,TRWIS,111,TRW,IS,Todd Woods
egh-dholloway.pcv,NOPA,ERQED,834,ERQ,ED,ED - Mgr Office
egh-emergency.pcv,NOPA,ERGED,360,ERG,ED,ED - RN Desk 2
egh-emergency3.pcv,NOPA,ERMED,832,ERM,ED,Phy Dictation Desk
egh-emergency_2.pcv,NOPA,ERKED,683,ERK,ED,ED - RN Desk 1
egh-er-sdoc1.pcv,NOPA,EROED,833,ERO,ED,Phy Desk 2
egh-jvanputten.pcv,NOPA,ERPED,147,ERP,ED,Jeanne VanPutten
egh-nwebb.pcv,NOPA,ADPED,233,ADP,ED,Nora Webb
egh-radtechctr.pcv,NOPA,626ED,626,626,ED,RAD ER Tech Cntr
egh-superdoc1.pcv,NOPA,ERNED,831,ERN,ED,Phy Desk 1
eghtc-ed2.pcv,NOPA,ERDED,30,ERD,ED,ED - Sec Orders
eghtc-triage1.pcv,NOPA,ERBED,28,ERB,ED,ED - Triage 1
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
