# Copyright (C) 2008 Eric Hsu <apricotan@gmail.com>

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the
#    Free Software Foundation, Inc.
#    59 Temple Place, Suite 330
#    Boston, MA 02111-1307 USA


$ModulesDescription .= '<p>$Id: bfc.pl,v 0.9 2008/07/20 23:20:09 Eric Hsu Exp $</p>';

# ==============
# = config-bfc =
# ==============

# Here are some config settings we want across all BFCs. Perhaps these should be in a config file that gets loaded in...

$UsePathInfo=0; #on Leopard server, we get the "stacking" URL problem, so we use gta.pl?page instead of gta.pl/page format.
$WikiLinks = 0; # No CamelCase links
$FreeLinks=1;
$BracketText=1;
$BracketWiki=1;
$CreoleLineBreaks = 1;

sub UsemodRule {}; # get TOC to start headers at depth 2

$EditNote='<a href="http://bfc.sfsu.edu/bfc4_format_help.html" target="__new">Click to pop up Formatting Help</a>';
# $TopLinkBar=0; # As a rule, don't allow the navigation at the top.
$StyleSheet='http://bfc.sfsu.edu/bfc4.css';

$Translate{'Unlock Wiki'}="Remove Stray Locks (e.g. those left after crashes)";
$Translate{'Summary:'}="Summary of Your Changes:";

# ==============
# = gotobar-bfc =
# ==============
# New GotoBar (the navigation at the top)

*OldGetGotoBar = *GetGotoBar;
*GetGotoBar = *BFCGetGotoBar;

sub BFCGetGotoBar {
	my $div = "&nbsp; | &nbsp;";
	$UserGotoBar  = GetPageLink($HomePage, "HOME") . $div;   
	if ($ShowCart)  {
		unless (GetParam('action', '') eq 'cart') {
			$UserGotoBar .= ScriptLink('action=cart', T('CART')) . $div ; 
		} else {
			$UserGotoBar .= ScriptLink('action=cart', T('REFRESH CART')) . $div ; 
			$UserGotoBar .= <<CLEARCART;
<a href="javascript:input_box=confirm('REALLY clear your Cart?');if (input_box==true){YAHOO.util.Cookie.remove('$CartName');window.location.reload();}">CLEAR CART</a> $div
CLEARCART
		}		
	}
	$UserGotoBar .= "FIND: " . GetSearchForm() ;
	return $q->span({-class=>'gotobar bar'}, $UserGotoBar);
}

# ==============
# = footer-bfc =
# ==============
# Make the footer more minimal. Remove last edited.

*OldPrintFooter = *PrintFooter;
*PrintFooter = *NewPrintFooter;

sub NewPrintFooter {
  my ($id, $rev, $comment) = @_;
  if (GetParam('embed', $EmbedWiki)) {
    print $q->end_html, "\n";
    return;
  }
  print GetCommentForm($id, $rev, $comment),
    $q->start_div({-class=>'wrapper close'}), 
	$q->end_div(), 
	$q->end_div(),
    $q->start_div({-class=>'footer'}), $q->hr(), 
	GetGotoBar($id),
	GetFooterLinks($id, $rev), 
	# GetFooterTimestamp($id, $rev), 
	# GetSearchForm()
	;
  
	if ($DataDir =~ m|/tmp/|) {
    print $q->p($q->strong(T('Warning') . ': ')
		. Ts('Database is stored in temporary directory %s', $DataDir));
  }
  print T($FooterNote) if $FooterNote;
  # print $q->p(GetValidatorLink()) if GetParam('validate', $ValidatorLink);
  # print $q->p(Ts('%s seconds', (time - $Now))) if GetParam('timing',0);
  print $q->end_div();
  PrintMyContent($id) if defined(&PrintMyContent);
  foreach my $sub (@MyFooters) {
    print &$sub(@_);
  }
  ;
  print  $q->end_html, "\n";
}

*OldestGetFooterLinks = *GetFooterLinks;
*GetFooterLinks = *NewestGetFooterLinks;

sub NewestGetFooterLinks {
  my ($id, $rev) = @_;
  my @elements;
  if ($id and $rev ne 'history' and $rev ne 'edit') {
    if ($CommentsPrefix) {
      if ($id =~ /^$CommentsPrefix(.*)/o) {
	push(@elements, GetPageLink($1, "Back to " . $1, 'original')); #patch
      } else {
	push(@elements, GetPageLink($CommentsPrefix . $id, undef, 'comment')); #patch
      }
    }
    if (UserCanEdit($id, 0)) {
      if ($rev) {		# showing old revision
	push(@elements, GetOldPageLink('edit', $id, $rev, Ts('Edit revision %s of this page', $rev)));
      } else {			# showing current revision
	push(@elements, GetEditLink($id, T('Edit this page'), undef, T('e')));
      }
    } else {			# no permission or generated page
      # push(@elements, ScriptLink('action=password', T('This page is read-only'), 'password'));
    }
  }

	if (UserIsEditor() ) {       		
		push @elements, GetAddNewPageForm();
	}

  push(@elements, GetHistoryLink($id, T('View other revisions'))) if $Action{history} and $id and $rev ne 'history' and GetParam('action', '') eq 'edit'; #patch
  push(@elements, GetPageLink($id, T('View current revision')),
       GetRCLink($id, T('View all changes'))) if $Action{history} and $rev ne '';
  push(@elements, ScriptLink("action=contrib;id=" . UrlEncode($id), T('View contributors'), 'contrib'))
    if $Action{contrib} and $id and $rev eq 'history';
  if ($Action{admin} and GetParam('action', '') ne 'admin') {
    my $action = 'action=admin';
    $action .= ';id=' . UrlEncode($id) if $id;
    push(@elements, ScriptLink($action, T('Administration'), 'admin')) if (UserIsAdmin());
  }   
	push @elements, GetPageLink("RecentChanges", "Recent Changes");

	my $username = GetParam('username', '');    
	my $LoginOrOut = "Login";     
	$LoginOrOut = "Logout $username" if (UserIsEditor());
	
	push @elements, ScriptLink("action=password;lastpage=$id", $LoginOrOut);

  return @elements ? $q->span({-class=>'edit bar'}, join ("&nbsp; | &nbsp;", @elements)) : '';
}
# 
# # ===============
# # = comment-bfc =
# # ===============
# 
# *OldAddComment = *AddComment;
# *AddComment = *NewAddComment;
# 
# sub NewAddComment {
#   my ($string, $comment) = @_;
#   $comment =~ s/\r//g;		# Remove "\r"-s (0x0d) from the string
#   $comment =~ s/\s+$//g;	# Remove whitespace at the end
# 
#   # $comment = RunMyMacros($comment);
# 
#   if ($comment ne '' and $comment ne $NewComment) {
#     my $author = GetParam('username', T('Anonymous'));
#     my $homepage = GetParam('homepage', '');
#     $homepage = 'http://' . $homepage
#       if $homepage and not substr($homepage,0,7) eq 'http://';
#     $author = "[$homepage $author]" if $homepage;
# 	$author = "[[$author]]" if (UserIsEditor());  # All editors should make a page for themselves
#     $string .= "\n----\n\n" if $string and $string ne "\n";
#     $string .= $comment . "\n\n"
#       . '-- ' . $author . ' //' . TimeToText($Now) . "//\n\n";
#   }
#   return $string;
# }
# 
# 
# 

# ==============
# = search-bfc =
# ==============

# This just (1) makes the search field wider and 
# (2) moves the search/replace boxes to the admin page

*OldGetSearchForm = *GetSearchForm;
*GetSearchForm = *NewGetSearchForm;

sub NewGetSearchForm {
  my $form = $q->textfield(-name=>'search', -id=>'search', -size=>30, -accesskey=>T('f'), -title=>'Find text on site') . ' ';

	# Only show replace form in admin page!! Too dangerous otherwise.
	my $action = GetParam("action",undef);
	
	# was if ($ReplaceForm)
	  if ($action eq "admin") {
	    $form .= $q->textfield(-name=>'replace', -id=>'replace', -size=>20) . ' '
	. $q->checkbox(-name=>'delete', -label=>T('Delete')) . ' ';
	  }
  if (%Languages) {
    $form .= $q->textfield(-name=>'lang', -id=>'searchlang', -size=>10, -default=>GetParam('lang', '')) . ' ';
  }
  return GetFormStart(undef, 'get', 'search') . $form . $q->endform();
}

sub GetAddNewPageForm {
	my $form =<<END;
<form method=post>
<span style="vertical-align:center;">Add New Page:
<input type="hidden" name="action" value="edit">
<input type="text" name="id" value="">
<input type="submit" value="Go!">    </span>
</form>
END

	return $form;	
}

__END__
=
bfc.pl.

(0.9a)
	New subtle top menu from BFCGetGotoBar(). DO NOT call it NewGetGotoBar. This was clobbering the system due to some other module trying to override with that name. 
	Unclosed <label> in search form was screwing up the display of top Gotobar (it was absorbing the following <h1> into the <form>).

(0.9) for BFC4. Make compatible with toc.pl. 
	Set &UsemodRule to assure headers start at h2.
	search-bfc hack works.

(0.8) 
	checkboxes and shopping cart. Spun off into cart-bfc.pl.
	
(0.7) 
	searchpaged.pl spun off.
	bibtex.pl spun off.
	latexsearchresults spun off to latex-bfc.pl
	mysearchresults spun off
	
(0.6) 
	(BibtexSearchResult)
	(BibtexRule)

(0.5)
- (searchpaged) search results are now paged
- (searchresultsdetailed) hooks are added so the default search result display for an item can be intercepted by the subroutines in @MyPrintSearchResults. 
- (LatexSearchResult) Wrote search result routine to show pages with raw latex. 
# And for calc, a module that shows the latexed png.  Let's just call the latex-bfc.pl routines directly... why mess around?  The routines can be contained in latex-bfc. But beware... don't show more than one page.

# We'll write a module that shows BibTeX really well for RUME. Same idea; write a MyRules and apply it to both viewing items and showing the in searches.  


(0.4) 
- (sigline) Make macro .sig which expands to – Name datestamp.
- BUG. Search replace doesn’t show up in RecentChanges. Actually, it does as Minor Edit.
- (search) Turn off search/replace in footer?! It’s way too dangerous. Now only in admin page.
- (search) Widen the search form!!
- (config) Make a unique cookie for each site. 

(convert utils)
- Import Mike problems.
- upload the files via oddup.pl
- then process tags & comments to append onto existing files
- convert old worksheets to pages
- write script to explode ucf* and utf* into pieces of latex.
- Strip \item and \enumerate stuff
- Notice utf count is WRONG because some problems were deleted for containing graphics. FIX THIS.

(0.2) Fix up the password page into a login page.

(0.1) Little customization to some text. Fix up the Gotobar. Centralize formatting help.