$maintitle Online

\n"; print "$warning\n" if $warning; # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # # ### It is now safe to write HTML to the client ### # t= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # # Session data: &sendLog("$P: Look for session info [V=$V] ...") if $V>5; $S = &findSID(); # Session id number (0 for users not logged in) &sendLog("$CYMD $HMS P=$$ '$P' L='$L' S='$S' V=$V [session data].\n") if $V>0; &sendLog("$P: Save unumb='$unumb' uname='$uname' fname='$fname' IP=$RA.") if $V>1; $loggedin = 0; # True after a successful login $loggedout = 0; # True after a successful logout if (($arg = $data{V}) && ($arg =~ /^(\d+)/)) { $V = &max(int($1),$V); &sendLog("$P: V='$V' (session/user info)") if $V>5; } if (($arg = $data{S}) && ($arg =~ /^(\d+)/)) { $S = int($1); $maintitle .= " [$S]" if $V>2; } elsif (($arg = $data{S}) && ($arg =~ /^(\d+)/)) { $S = int($1); $maintitle .= " [$S]" if $V>2; } # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # print "$0: P='$P' Pbase='$Pbase' Psuff='$Psuff'
\n" if $V>3; if ($pathinfo = $ENV{'PATH_INFO'}) { print "$P: pathinfo='$pathinfo'
\n" if $V>1; } else { print "$P: No PATH_INFO data.
\n" if $V>3; } # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # # Special case: Before we check for requested queries, we check to see if we # have a logged-in user. This entails checking to see whether this request is # a login attempt. #sendLog("$P: ================ ____ ...") if $V>0; &sendLog("$P: ================ Check for logged-in user ...") if $V>0; ($uname,$unumb) = &checkLogin(); # Do we have an active login? &sendLog("Caller: unumb='$unumb' uname='$uname' fname='$fname'") if $V>0; # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # # Now dump the form and environment stuff. We waited until now to do it # because during debugging we often want to display this data to special # users. &sendLog("$P: ================ Dump the parameter info ...") if $V>0; &sendLog("$P: Vform='$Vform' Venv='$Venv'") if $V>0; &showFormData() if $V>$Vform; &showEnv() if $V>$Venv; # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # # Figure out if we have an active session. If the user has a session file, we # assume that this is a continuation of that session. But mostly, we look for # a session-id number in a few places. # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # &sendLog("$P: ================ Look for session info ...") if $V>0; &send_LW("$Pdir/$P: Session $S user $unumb/$uname from RA=$RA Venv=$Venv V=$V.") if $V>2; if ($S) { &send_LW("$P: Found session $S user $unumb/$uname from RA=$RA V=$V.") if $V>3; } elsif ($loggedout) { &send_LW("$P: Logged out; accepting S='$S'") if $V>1; } else { &send_LW("$P: Check for session $S ...") if $V>3; $S = &findSID(); &send_LW("$P: Session ID: '$S'") if $V>2; &loadSess($S); unless ($ulog = $Session{'when'}) { $ulog = $Session{'when'} = "$CYMDHMS $TZ"; } &sendLog("$CYMDHMS P=$$ '$P' from RA=$RA at $ulog S=$S V=$V V=$V.\n") if $V>1; } if (defined $debuggers{$uname}) { &sendLog("$P: debuggers{$uname}='" . $debuggers{$uname} . "'") if $V>1; $V = &max($debuggers{$uname},$V); # Set verbose level for this user &sendLog("$P: V=$V from debuggers{$uname}") if $V>0; } &sendLog("$P: V='$V' Vuser='$Vuser' unumb='$unumb' uname='$uname'") if $V>0; if ($unumb > 0) { if ($V> 0) { &showUser($uname,$unumb,$S,$RA,$ulog); } else { &sendLog("$P: Logged in as '$uname' [user $unumb session $S]\n") if $V>0; } } else { &sendLog("$P: Not logged in.") if $V>0; } # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # # Set up some framing stuff. Most of the code here has been moved away ... # # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # &sendLog("$P: ================ Framing ...") if $V>0; &send_LW("$P: docdir='$docdir'") if $V>2; &send_LW("$P: layout='$L' framename='$framename' docname='$docname'") if $V>2; $Frame = $framefile = "$docdir/$framename$L.html"; # Default frame file $Content = $contentfile = ''; # List of files used for "content" $source = ''; # Returned by most routines to explain where they got the content &sendLog("$P: Frame='$Frame'") if $V>1; &sendLog("$P: Content='$Content'") if $V>1; # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # # Special case: Called with no form args. We send the home page for whatever # # layout we've guessed is appropriate for the client. This is also where we # # handle a "cold call" without any form params, by sending our "home page". # # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # $x = int(@names); &sendLog("$P: There are $x things in %data.") if $V>0; unless ($x > 0) { # No form data? $contentname = 'Home' unless defined $contentname; &sendLog("$P: No form data; show '$contentname$L' doc.") if $V>0; $Content = &frame('show','doc',"$contentname$L.html"); &quit(0); } # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # # Check for the 'B' param, which is produced by most buttons to say which # # operation is requested. # # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # &sendLog("$P: ================ Check for a Button push ...") if $V>0; if ($B ) { # Was a button pushed? &sendLog("$P: Button B='$B' b='$b' pushed.") if $V>0; if ($source = &Button($B)) { &sendLog("$P: Button returned '$source'") if $V>0; &quit(0); } &sendLog("$P: Button returned null.") if $V>1; } &sendLog("$P: data{B} is null.") if $V>1; # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # # The 'op' form param is a command to perform some operation. Depending on # # the specific operation, there should be further params in %data, but they # # can mostly be handled by the subroutines. Here, we mostly just bounce the # # request to the frame() - or the obsolete Frame() - routine, which draws the # # page frame and calls content-specific subroutines to fill in the content # # block. # # NOTE: We should rewrite all the calls of Frame() to call frame() instead. # # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # &sendLog("$P: ================ Check the op variable ...") if $V>0; &sendLog("$P: data{op}='$data{op}'") if $V>0 && defined $data{op}; if ($Op = $data{op} || '') { # Perform an operation of some sort &sendLog("$P: Op='$Op'") if $V>0; $Op = &tText($Op,''); # Make sure it's untainted $op = lc($Op); # Canonicalize to lower case $Q = $data{Q} || ''; # Preserved query topic &sendLog("$P: Op='$Op' op='$op' Q='$Q'") if $V>0; if ($op eq 'showUser') { &sendLog("$P: Show user info.") if $V>0; &showUser($uname,$unumb,$S,$RA,$ulog); # } elsif ($op eq 'events') { # Request for the Events table # &sendLog("$P: Op='$Op' op='$op' ........................................") if $V>0; ## $Content = $source = &Frame($Op); ## &sendLog("$P: Frame returned '$source'") if $V>0; # &sendLog("$F: B='$B' b='$b' ........................................") if $V>0; # $source = &frame('show','events','All Events'); # return $source if $source; # &sendLog("$F: Button '$b' failed.") if $V>0; # } elsif ($op eq 'all events') { # Request for the Events table # &sendLog("$P: op='$op' ........................................") if $V>0; # $source = &Frame($Op); } elsif ($op eq 'flyer') { # Request for Flyer (just one) &sendLog("$P: op='flyers' ........................................") if $V>0; $source = &Frame($op); } elsif ($op eq 'flyers') { # Request for Flyers (all of them) &sendLog("$P: op='flyers' ........................................") if $V>0; $source = &Frame($op); } elsif ($op eq 'home') { # Request for the site's home page &sendLog("$P: op='home' ........................................") if $V>0; $Content = $contentfile = "$docdir/Home$L.html"; &sendLog("$P: Content='$Content'") if $V>1; $source = &frame('show','doc',$Content); &quit(0); } elsif ($op eq 'login') { # Request for the login form &sendLog("$P: op='login' ........................................") if $V>0; $Content = $contentfile = "$docdir/Login$L.html"; &sendLog("$P: Content='$Content'") if $V>0; $source = &Frame('show','doc',$Content); &quit(0); } elsif ($op eq 'blog' || $op eq 'news') { &sendLog("$P: op='blog/news' ........................................") if $V>0; if ($post = $data{post}) { &sendLog("$P: op='$op' post='$post'") if $V>0; $source = &Frame('blog','post',$T); # Post message to current topic } elsif ($Q eq 'next') { &sendLog("$P: Next ........................................") if $V>0; &sendLog("$P: Next op='$op' Q='$Q'") if $V>0; $source = &frame('blog','next',$T); # Post message to current topic &sendLog("$P: frame('blog','next','$T') returned '$source'") if $V>0; } else { &sendLog("$P: op='$op' Show the message.") if $V>0; $source = &frame('blog','show',$T); # Show the current topic } } elsif ($op eq 'mobile') { &sendLog("$P: op='mobile' ........................................") if $V>0; $L = 'M'; # Change the layout to Mobile $Frame = $framefile = "$docdir/$framename$L.html"; # Default frame file # } elsif ($op eq 'refresh') { # &sendLog("$P: Refresh event page .......................................") if $V>1; # require "events.pm"; # $source = &Frame('events'); } elsif ($op eq 'register') { # Request for the user registration form &sendLog("$P: op='register' ........................................") if $V>0; $Content = $contentfile = "$docdir/Register$L.html"; &sendLog("$P: Content='$Content'") if $V>1; $source = &Frame('show','doc',$Content); &quit(0); } elsif ($op eq 'user') { &sendLog("$P: op='user' ........................................") if $V>0; if ($data{update} eq 'Update') { &sendLog("$P: Update user $unumb/$uname info ...") if $V>0; $source = acctUpdate($uname,$unumb); } else { &sendLog("$P: Default: Show user info ...") if $V>0; $source = &Frame('user','show',$uname); } } else { &sendLog("$P: Op='$Op' op='$op' unknown.") if $V>0; } } $source = '' unless defined $source; &sendLog("$P: source='$source'") if $V>0; # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # # The above can't be used for some tasks. HTML is a bit weird in how it # # passes us different data from various sorts of invocations (, , # # etc. Here we try a few more schemes to figure out what query has been # # requested, and call the appropriate routine to handle it. # # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # &sendLog("$P: ================ Check the Q variable ...") if $V>0; &sendLog("$P: data{Q}='" . $data{Q} . "'") if $V>1 && defined($data{Q}); &sendLog("$P: data{D}='" . $data{D} . "'") if $V>1 && defined($data{D}); &sendLog("$P: data{op}='" . $data{op} . "'") if $V>1 && defined($data{op}); &sendLog("$P: data{doc}='" . $data{doc} . "'") if $V>1 && defined($data{doc}); if ($source) { &sendLog("$P: Done by '$source'; further testing skipped.") if $V>0; } elsif ($Q = $data{Q}) { # The 'Q' param is the primary query &sendLog("$P: Q='$Q'") if $V>0; if ($Q eq 'blog') { &sendLog("$P: Blog query ...") if $V>0; if ($txt = $data{blogtext}) { &sendLog("$P: Blog query {$txt}") if $V>0; $source = &frame('post',$Q,$txt); } &send_LW("$P: [Q='$Q' not understood]") if $V>0; } elsif ($Q eq 'show') { &sendLog("$P: Show something ...") if $V>0; if ($op = $data{op}) { &sendLog("$P: Show op='$op' ...") if $V>0; $Content = $source = &frame('show','event',$op); } else { &send_LW("$P: Query='show' but no 'op' variable found in data.") if $V>0; } } else { $source = &op($Q) || ''; &sendLog("$P: source='$source'") if $V>2; } } else { &sendLog("$P: No Q variable.") if $V>0; if (defined($doc = $data{D})) { # The 'D' param displays a (HTML) document &sendLog("$P: Show doc='$doc'") if $V>0; $source = &Frame('show','doc',$doc); } elsif (defined($doc = $data{doc})) { # Display a (HTML) document &sendLog("$P: Show doc='$doc'") if $V>0; $source = &Frame('show','doc',$doc); } elsif ($act = $data{event}) { # Was an 'event' button pushed? &sendLog("$P: Button:event act='$act'") if $V>0; require "events.pm"; $source = &Frame('event',$act); &sendLog("$P: Frame('event','$act') returned '$source'") if $V>0; } elsif ($act = $data{events}) { # Was an 'events' button pushed? &sendLog("$P: Button:events act='$act'") if $V>0; require "events.pm"; $source = &Frame('events',$act); &sendLog("$P: Frame('events','$act') returned '$source'") if $V>0; } else { # Did the referrer give us frame or doc name? &sendLog("$P: Scan for type:file ...") if $V>0; for $nam (@names) { $val = $data{$nam}; &sendLog("$P: Test nam='$nam' val='$val' ...") if $V>0; if ($nam =~ /^(\w+):(.*)$/) { # op:arg pair? $fld = $1; $arg = $2; &sendLog("$P: Got '$fld:$arg' ...") if $V>0; if ($fld eq 'doc') { &sendLog("$P: Show doc '$arg'"); $Content = $source = &frame('show','doc',$arg); } elsif ($fld eq 'event') { &sendLog("$P: Event $val '$2'"); $Content = $source = &frame('event',$val,$arg); } else { &sendLog("$P: Skip $nam='$val'"); } } } &sendLog("$P: framefile='$framefile'") if $V>0; &sendLog("$P: contentfile='$contentfile'") if $V>0; &sendLog("$P: Frame='$Frame'") if $V>0; &sendLog("$P: Content='$Content'") if $V>0; } } $source = '' unless defined $source; unless ($source) { &sendLog("$P: Look for default frame and content ...") if $V>1; if ($x = $data{frame}) { $Frame = $framefile = "$docdir/" . $x; &send_LW("$P: Frame='$Frame'") if $V>1; } &send_LW("$P: framename='$framename' docname='$docname'") if $V>2; if (-f ($x = $docpath) || -f ($x = "$docdir/$docname$L.html")) { &sendLog("$P: \"$x\" exists.") if $V>1; $Content = $contentfile = $docpath = $x; &sendLog("$P: docname=\"$docname\" docpath=\"$docpath\"") if $V>1; } elsif (-f "$docdir/$framename$L.html") { &sendLog("$P: $docdir/$framename$L.html exists.") if $V>1; $Content = $contentfile = "$docdir/Home$L.html"; &sendLog("$P: framefile='$framefile'") if $V>1; &sendLog("$P: Frame='$Frame'") if $V>1; &sendLog("$P: contentfile='$contentfile'") if $V>1; &sendLog("$P: Content='$Content'") if $V>1; } else { &send_LW("$P: Can't find anything to do.") if $V>0; } } # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # # That completes our scan of the form params for commands. This looks like a # # "cold call", with no instructions. In that case, we just send them our home # # page, and wait for further requests. # # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # &sendLog("$P: ================ Give up and send a home page ...") if $V>0; if ($source) { # Have we done an query yet? &send_LW("$P: source='$source' [after op testing]") if $V>2; } else { &sendLog("$P: No query requested; checking for default files ...") if $V>1; &sendLog("$P: Frame '$Frame' is a file.") if -f $Frame && $V>1; &sendLog("$P: Content '$Content' is a file.") if -f $Content && $V>1; if (-f $Frame && -f $Content) { &sendLog("$P: Frame='$Frame'") if $V>1; &sendLog("$P: Content='$Content'") if $V>1; &frame('show','doc',$Content); print "$P: Page '$Frame'+'$Content' done.
\n" if $V>3; } else { &send_LW("$P: Frame '$Frame' not a file.") if !-f $framefile && $V>1; &send_LW("$P: Content '$Content' not a file.") if !-f $Content && $V>1; } } # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # if ($V>3 || $showdir) { &sendLog("$P: ================ Show debug info ...") if $V>0; print "

\n"; print "Here are the things at this site:
\n"; unless (opendir(CWD,".")) { print "\n*** Can't read current directory\n" if $V>1; &quit(1); } print "\n"; for $f (sort readdir(CWD)) { next if substr($f,0,1) eq '.'; $desc = $Descr{$f} || '?'; $suff = (-d $f) ? '/' : ''; &sendLog("$P: Descr{$f}='" . ($Descr{$f} || '') . "'\n") if $V>6; print "\n"; } print "

$f$suff

$desc

\n"; &send_LW("### Login name or password incorrect ###") if $V>0; &send_LW("### Attempted login as \"$uname\" failed ###") if $V>0; print "

\n"; $uname = $Default{'uname'}; $unumb = $Default{'unumb'}; $S = '0'; } } elsif (($Pbase eq 'logout') || defined($logarg = $data{logout})) { # Is it a logout attempt? &sendLog("$F: Pbase='$Pbase' Logout request ..") if $V>0; ($ulog,$unumb,$uname,$uadr) = chkLogin($RA,$S); &sendLog("$F: Log out ulog=$ulog unumb=$unumb uname=$uname uadr=$uadr") if $V>0; if ($bkupfile = &logoutUser($unumb,$uname,$uadr,$S)) { &sendLog("$F: Logout succeeded, session file is '$bkupfile'"); $uname = $Default{uname}; # change login to default $unumb = $Default{unumb}; $S = '0'; $loggedout = 1; # Should block later tries to get the S and user info } else { &send_LW("$F: Logout failed."); } } else { &sendLog("$F: Call chkLogin('$RA','$S') ...") if $V>0; ($ulog,$unumb,$uname,$uadr) = chkLogin($RA,$S); if (defined($ulog) && defined($unumb) && defined($uname) && defined($uadr)) { &sendLog("$F: ulog='$ulog'") if $V>0; # && defined $ulog; &sendLog("$F: unumb='$unumb'") if $V>0; # && defined $unumb; &sendLog("$F: uname='$uname'") if $V>0; # && defined $uname; &sendLog("$F: uadr='$uadr'") if $V>0; # && defined $uadr; &sendLog("$F: ulog='$ulog' unumb='$unumb' uname='$uname' uadr='$uadr'") if $V>0; if ($ulog && $unumb && $uname && $uadr) { &sendLog("$F: UID $unumb/$uname S $S from $uadr at $ulog.") if $V>0; %UserInfo = &getAcctInfo($uname); # Load whatever is known about the user. $unumb = &tText($UserInfo{unumb},'0'); $uname = &tText($UserInfo{uname},'???'); $fname = &tText($UserInfo{fname},'???_???'); &sendLog("$F: uname='$uname' unumb='$unumb' fname='$fname' V='$V' after getAcctInfo()") if $V>0; &dumpTable("$uname UserInfo",\%UserInfo) if $V>1; $loggedin = 1; } else { &send_LW("$F: No logged-in user found for $RA.") if $V>0; $loggedin = 0; } } else { &sendLog("$F: No login found.") if $V>0; } } $uname = $Default{uname} unless defined $uname; $unumb = $Default{unumb} unless defined $unumb; &sendLog("$F: uname='$uname'") if $V>0; &sendLog("$F: unumb='$unumb'") if $V>0; return ($uname,$unumb); } sub showEvents {my $F='showEvents'; local($what) = @_; # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # # Special kludge to generate a table of events, which we sometimes want to do # # in the home page. The main problem is that we can't call eventsPanel() from # # within the doc/Home* files, since the events.pm module may not have been # # loaded. So we have this routine in the main module that loads events.pm and # # then calls eventsPanel() to produce the table. Note that the caller has to # # pass us the table description, which we pass on to eventsPanel() to tell it # # which table to produce. Note also that we discard eventPanel's return # # value, because it would be sent to the client and would show up at a funny # # place on their screen. # # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # require "events.pm"; &sendLog("$F: Called ...") if $V>0; &sendLog("$F: Action='$Action' Class='$Class' Object='$Object' Argnam='$Argnam'") if $V>0; print "

\n"; &sendLog("$F: Call eventsPanel('$what')") if $V>0; &eventsPanel($what,''); print "

\n"; return ''; # Whatever is returned will be sent to client } sub Message {my $F='Message'; local($Act,$Obj,$path) = @_; # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # This handles a request to do something with a message. The $Act arg says # # what we are doing with it, the $Obj arg says what kind of message it is, # # and the $path is the file name (null for new messages). The return value is # # the "source" string saying who did the work, null if we failed for some # # reason. # # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # local($Data,@Data,$dir,$fil,$line,$lines,$v,$x); local($act) = lc($Act) || 'show'; local($obj) = lc($Act) || 'doc'; $path = '' unless defined $path; &sendLog("$F: Called for Act='$Act' Obj='$Obj' '$path'") if $V>1; if ($path =~ m"^(.*)/([^/]*)$") { $dir = $1; $fil = $2; &send_LW("$F: Message dir '$dir' file '$fil'") if $V>0; } elsif ($path) { $dir = ''; $fil = $1; &send_LW("$F: Message file '$fil', directory not supplied.") if $V>0; } else { $dir = $fil = ''; &sendLog("$F: No file; assuming new message.") if $V>0; } print "

\n"; print "\n"; print "

\n"; return "$F()"; } sub editDocFile {my $F='editDocFile'; local($Act,$path) = @_; # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # This handles a request to edit a file. # # We send a textarea widget that shows the file's contents. # The user can edit it, and hit the preview or save buttons. # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # local($Data,@Data,$line,$lines,$v,$x); local($act) = lc($Act); &sendLog("$F: $Act '$path'") if $V>0; unless (-f $path) { &send_LW("$F: ### No file $path") if $V>1; return 0; } if ($act eq 'edit') { &send_LW("$F: Edit file '$path'") if $V>1; unless (open(F,$path)) { &send_LW("$P/$F: Can't read '$path' ($!)") if $V>1; return 0; } &send_LW("$P/$F: Reading '$path' ...") if $V>1; $lines = 0; @Data = (); &sendLog("$F: Read '$path' ...") if $V>4; while ($line = ) { $line =~ s/[\r\s]+$//; # Trim trailing white stuff &sendLog("$F: LINE: {$line}") if $V>1; push @Data, $line; ++$lines; } close F; } elsif ($act eq 'save') { &send_LW("$F: Save file '$path'") if $V>1; unless ($Data = $data{data}) { &send_LW("$F: ### No data found ###") if $V>0; return ''; } &sendLog("$F: data={$Data}") if $V>1; @Data = split("\n",$Data); unless (open(F,">$path")) { &send_LW("$F: ### Can't write '$path' [$!]") if $V>0; return ''; } for $line (@Data) { &sendLog("$F: LINE: {$line}") if $V>1; ++$lines; print F "$line\n"; } close F; &send_LW("$F: Wrote data to file '$path'") if $V>0; } elsif ($act eq 'preview') { &send_LW("$F: Preview file '$path'") if $V>1; unless ($Data = $data{data}) { &send_LW("$F: ### No data found ###") if $V>0; return ''; } &sendLog("$F: data={$Data}") if $V>1; @Data = split("\n",$Data); for $line (@Data) { &sendLog("$F: LINE: {$line}") if $V>1; ++$lines; } } print "

\n"; print "\n"; print "

\n"; print "\n"; print " $orgname $class:\n"; print "\n"; while (@files) { $file = pop @files; @info = (); if (($dir,$name) = ($file =~ m"(.*)/+([^/]+)[\r\s]*$")) { if (($base,$suff) = ($name =~ /(.*)\.(\w+)$/)) { next if $suff eq 'info'; } else { $base = $name; $suff = ''; } print "\n"; print " \n"; if (-f ($dataf = "$dir/$base.info")) { # @info = &fil2html($dir,"$base.info"); &sendLog("$F: Read info file '$dataf' ...") if $V>0; $lines = 0; if (open(DATA,$dataf)) { while ($line = ) { $line =~ s/[\r\s]*$/
/; next if !$showAllInfo && $line =~ /^(From|Poster):/; &sendLog("$F: LINE: {$line}") if $V>1; push @info, $line; ++$lines; } close DATA; } else { &sendLog("$F: ### Can't read '$dataf' ###") if $V>0; &sendLog("$F: ### No info about file '$file' ###") if $V>0; } print "\n"; print " \n"; } print "\n"; } } print "

$name
	\n"; for $line (@info) { print " $line\n"; } print "

\n"; print "\n"; return "$F()"; # Tell frame that we produced the content } sub flyerPanel {my $F='flyerPanel'; local($job,$act,$arg) = @_; # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # # This just generates a table of the flyer .pdf files so the user can click # # on one. It assumes that the flyers are in the file/Flyers/ directory, have # # 'flyer' or 'Flyer' in the names, and have a .pdf suffix. # # # # Kludge: Some users just want to be shown the one "current" flyer. If job is # # just "flyer", we list just the most recent flyer, and then give them a # # "Flyers" button that will get the rest. # # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = # local($f,$file,$flyerpat,$flyers,@flyers,$source); &sendLog("$F: Called for job='$job' act='$act' arg='$arg'") if $V>0; $Content = 'flyerPanel()'; &sendLog("$F: Content='$Content'") if $V>1; if ($job eq 'flyer') { # Some sites want a "single current flyer" button if ($source = fileTable('Flyer')) { &sendLog("$F: source='$source'") if $V>1; return $source; } } if ($job eq 'flyers') { # Most sites have either no or many flyers if ($source = fileTable('Flyers')) { &sendLog("$F: source='$source'") if $V>1; return $source; } } # The rest is the original code that just lists the "flyer[s]" files. This # is probably no longer in use, though this should be verified before we # delete the rest of this routine. $flyerpat = "file/Flyers/*[Ff]lyer*.pdf"; &sendLog("$F: flyerpat=/$flyerpat/") if $V>0; @flyers = glob $flyerpat; print "\n"; print "$orgname Flyers\n"; print "\n"; while ($f = pop @flyers) { ($file = $f) =~ s".*/""; # File name without directory print "\n"; ++$flyers; &sendLog("$F: Flyer $flyers: '$file'") if $V>0; last if $job eq 'flyer'; } unless ($flyers > 0) { print "\n"; } print "

$file

(No flyers found)

Directory:
File name: