[ic] More getting logged out of the admin.

[Paul Vinciguerra]

On Wed, 10 Sep 2003 17:09:34 +0200, Stefan Hornburg wrote
> On Wed, 10 Sep 2003 00:10:51 -0400
> "Paul Vinciguerra" <pvinci at vinciguerra.com> wrote:
> 
> > On Wed, 10 Sep 2003 03:35:48 +0200, Stefan Hornburg wrote
> > > On Mon, 8 Sep 2003 00:29:46 -0400
> > > "Paul Vinciguerra" <pvinci at vinciguerra.com> wrote:
> > > 
> > > > I found  mv_session_id missing from a number of more forms in pages in the
> > > > admin.  I'd like to submit some more fixes to the admin if they are
> > appropriate.
> > > > 
> > > > The affected admin pages are:
> > > > 
> > > > affiliates.html       item.html           merge_meta.html  payment.html
> > > > edit_metaconfig.html  merchandising.html  order.html       test_code.html
> > > > 
> > > > I wrote a little script to find pages that had "<form" elements but not
> > > > mv_session_id.  It claims that there are still 32 more pages in
> > > > lib/UI/pages/admin that need to be fixed, which I will volunteer to fix if
> > > > there pages have not  been depreciated.  It seems many of them are not
linked.
> > > 
> > > IMHO we don't need to add the mv_session_id for forms with the 
> > > method GET, but I applied all other patches to current CVS. Thanks 
> > > again for your contribution, Paul !
> > > 
> > > Bye
> > > 	Racke
> > 
> > This is great! Its like having a code review for us tinkerers. You guys make
> > it easy to get involved.  For what its worth, every patch I had fixed
> > something that caused me to bounce to login, but its possible I have something
> > misconfigured on my server.  Alot of the patches were to fix the "limit with
> > search" subforms on certain pages.
> 
> We really appreciate the help and feedback of the users on the list.
> 
> > 
> > There are a bunch of pages that arent linked in the admin.  Are they being
> > phased out?
> 
> Hm, have you a list / samples of "dangling" pages ?
> 
> Ciao
> 	Racke
> 
add_meta_option
auto_wizard
bug_report
commerce
content_preview
content_publish
customer_change_pass
customer_comments
customer_select
do_upload_page
do_view
error_item
fr_index
generic
help
item_group
item_option_old
item_option_phantom
order_status_alt
page_metaconfig
page_upload
pref_colors
quick_question
ship_range
show_session
sku_selector
spread_control
upload_config
upload_file
upload_image
upload_pages


My logic may be flawed. I wrote the following to try to check it.  It is very
brute force.  It needs to run from /usr/local/interchange-4.9.8/lib/UI/pages

-Paul



@pages_in_menus     = grep {/^admin\//} `cat include/menus/*.txt | cut -f8 |
sort | uniq`;
 for (@pages_in_admin    =  `ls admin/*.html`) {s/\.html//}


 for (@bounces_in_pages = `grep  "bounce" admin/*.html | cut -d : -f2 | sort |
uniq`)
      { s#.*?(admin|__UI_BASE__)/([a-zA-Z0-9_\-]+).*#admin/$2# }
@bounces_in_pages = grep {/^admin\//} @bounces_in_pages;
%seen = ();
@bounces_in_pages = grep { ! $seen{$_} ++} @bounces_in_pages;

for (@areas_in_pages = `grep -i "area" admin/*.html | cut -d : -f2 | sort | uniq`)
      { s#.*?(admin|__UI_BASE__)/([a-zA-Z0-9_\-]+).*#admin/$2# }
@areas_in_pages = grep {/^admin\//} @areas_in_pages;
%seen = ();
@areas_in_pages = grep { ! $seen{$_} ++} @areas_in_pages;

for (@pages_in_pages = `grep -i "page" admin/*.html | cut -d : -f2 | sort | uniq`)
      { s#.*?(admin|__UI_BASE__)/([a-zA-Z0-9_\-]+).*#admin/$2# }
@pages_in_pages = grep {/^admin\//} @pages_in_pages;
%seen = ();
@pages_in_pages = grep { ! $seen{$_} ++} @pages_in_pages;

for (@forms_in_pages = `grep -i "form" admin/*.html | cut -d : -f2 | sort | uniq`)
      { s#.*?(admin|__UI_BASE__)/([a-zA-Z0-9_\-]+).*#admin/$2# }
@forms_in_pages = grep {/^admin\//} @forms_in_pages;
%seen = ();
@forms_in_pages = grep { ! $seen{$_} ++} @forms_in_pages;

push (@all_refs_in_pages,  @pages_in_menus);
push (@all_refs_in_pages,  @bounces_in_pages);
push (@all_refs_in_pages,  @areas_in_pages);
push (@all_refs_in_pages,  @pages_in_pages);
push (@all_refs_in_pages,  @forms_in_pages);
%seen = ();
@all_refs_in_pages = grep { ! $seen{$_} ++} @all_refs_in_pages;

%seen = ();
@missing = ();
#
foreach $page (@all_refs_in_pages) {
  $seen{$page} = 1;
}

foreach $page (@pages_in_admin) {
  unless ($seen{$page}) {
   push (@missing, $page);
  }
}

if ($debug) {
print "references in menus\n";
print "===================\n";
print @pages_in_menus;
print "physical Pages\n";
print "==============\n";
print @pages_in_admin;
print @missing;

print "bounces\n";
print "=======\n";
print @bounces_in_pages;

print "areas\n";
print "=====\n";
print @areas_in_pages;

print "pages\n";
print "=====\n";
print @pages_in_pages;

print "forms\n";
print "=====\n";
print @forms_in_pages;
}

print "Pages referred to:", scalar(@all_refs_in_pages), " \n";
print "Pages in admin/:",  scalar(@pages_in_admin), " \n";
print "missing       :",  scalar(@missing), " \n";

#print "Missing\n";
#print "=======\n";
for (@missing) { s/^admin\///}

print @missing;





> -- 
> LinuXia Systems => http://www.linuxia.de/
> Expert Interchange Consulting and System Administration
> ICDEVGROUP => http://www.icdevgroup.org/
> Interchange Development Team
> 
> _______________________________________________
> interchange-users mailing list
> interchange-users at icdevgroup.org
> http://www.icdevgroup.org/mailman/listinfo/interchange-users