#! c:/perl/bin -w use diagnostics; use strict; use vars qw ( $prevmail $biglist $mail @mail $mailcleaned $interim $result); $prevmail = ""; $biglist = ""; $mailcleaned = ''; $result = "cleaned.htm"; $interim = "biglist.txt"; chomp (@mail = ); foreach $mail(@mail) { &onelist($mail); } open (INTERIM, ">$interim"); print INTERIM "$biglist"; close INTERIM; print STDERR "\n\t See $interim\n\n"; &clean($biglist); open (RESULT, ">$result"); print RESULT "Cleaned\n$mailcleaned\n\n"; close RESULT; print STDERR "\n\tSee $result\n\n"; exit; ### END MAIN ### SUBS ## # sub onelist - delete blank and dupe lines; remainder into $biglist ## sub onelist { if ( $mail eq $prevmail ) { return; # return NOTHING; get next line } else { if ( $mail eq "" & $prevmail eq "\n
" ) { return; # again return NOTHING } else { $prevmail = $mail; # save current to check next for dupe . "\n
" $biglist = $biglist . $mail . "\n
\n"; # biglist needs spaces to stay readable; # effectively, replace \n with " " } return($biglist); } } # sub clean - get rid of blockquote, pre tags, redundant credits, etc.; save editorial content ## sub clean { use vars qw ( $bq $pq $rel $credit $garbage $garbage2 ); $bq = qr!
|
!i; $pq = qr!
|
|
!i;
$rel = qr!\nWeb4lib mailing list!;
$garbage = qr!

--------------
!;
$garbage2 = qr!------------------------------------------------------------------------!;

# remove 

   if ($biglist =~ m%$bq%ig )        # 
      {
       $biglist =~ s%$bq% %ig;         # replace with space, case insensitive, global
      }

# replace $pq (styled ) with a \n
. 
   if ( $biglist =~ m%$pq%ig )
      {
       $biglist =~ s%$pq%\n
%ig;
      }

# remove redundant credits 
   if ( $biglist =~ m%$credit.*(?=$credit)$credit%igs )    
      {
       # print STDERR "\t Testing credits\n";  (UNcomment this, insert similar elsewhere for
       # simple execution tracing; add similar to see values...
       $biglist =~ s%($credit).*(?=$credit)$credit%$1%igs;
      }

# replace '--------------%g
      }

# replace multiple newlines separated only by spaces with '
'
   if ( $biglist =~ m%\n\s*\n% )
      {
       $biglist =~ s%\n\s*\n%
%ig;
      # print STDERR "\t After mult newlines, \$biglist is $biglist\n";
      }


# fix breaks around original message hyphens
   if ( $biglist =~ m%(-----.*)(?=-----)% )
      {
       $biglist =~ s%(-----.*)(?=-----)(-----)%
\n
\n$1$2
\n%ig;
      }

# delete garbage
   if ($biglist =~ m%$garbage% )
      {
       $biglist =~ s%$garbage%%;
      }

# delete garbage2, which is - X47
   if ($biglist =~ m%$garbage2% )
      {
       $biglist =~ s%$garbage2%%;
      }

# multiple 
 split by newlines    THIS ONE STILL HAS PROBLEMS
   if ( $biglist =~ m%(?:
)\n{0,4}%isg )
      {
      print STDERR "\n\t Testing multiple 
 sep by newlines\n";
      $biglist =~ s%(?:
)\n{0,4}(?:
)%
%isg;
      }

# multiple 
 on same line
   if ( $biglist =~ m%(?:
)+%ig )
      {
      # print STDERR "\n\t Testing multiple 
 ON SAME LINE\n";
      $biglist =~ s%(?:
)+%
%ig;
      }

   $mailcleaned = $biglist;
   return($mailcleaned);
}
# ENDSUB
__DATA__

blah blah blah blah blah

Andrew Darby
Web Services Librarian
Ithaca College Library
http://www.ithaca.edu/library/



Vishwam Annam wrote:

I use "Web Accessibility Toolbar" as link checker, accessibility 
checker, HTML and CSS validator. This works for IE, and there is a 
similar tool available for firefox, web developer extn has some 
features of this. 
http://www.nils.org.au/ais/web/resources/toolbar/

Color Contrast Analyzer, 
http://www.nils.org.au/ais/web/resources/contrast_analyser/index.html

You can create javascript menus with Navstudio, which is also a free 
software.

I am interested in knowing, what you findout from all. Goodluck with 
your meeting!

Vishwam

----- Original Message -----
From: Isabel Danforth <isabel@shelltown.com>
Date: Friday, May 20, 2005 11:03 am
Subject: Re: [Web4lib] Favorite Free Web Tools



I am in a very small academic library.  I use MarcEdit to grab MARC
records to use in my system.  It is free.  I would really love to 
see what
other tools you find.

Isabel

On Fri, 20 May 2005, Susan Boland wrote:



I am working on a program for the American Association of Law 


Libraries'> annual meeting that focuses on free or very cheap Web 
development tools.


While I have my favorites, I'm hoping the list can help me out by
suggesting free or cheap tools that I might not be aware of.  If you
want to reply to me privately, I can summarize for the list.

Thanks!



Susan M. Boland
Chair, Computing Services Special Interest Section
Research & Instructional Services Librarian
Northern Illinois University College of Law Library
DeKalb, Il 60115
815-753-9492
Fax:  815-753-9499
e-mail:  sboland@niu.edu
http://law.niu.edu
_______________________________________________
Web4lib mailing list
Web4lib@webjunction.org
http://lists.webjunction.org/web4lib/



_______________________________________________
Web4lib mailing list
Web4lib@webjunction.org
http://lists.webjunction.org/web4lib/



------------------------------------------------------------------------

_______________________________________________
Web4lib mailing list
Web4lib@webjunction.org
http://lists.webjunction.org/web4lib/







####

001: 
002: blah blah blah blah blah ...
003: 
004: Andrew Darby
005: title...
006: 
007: Vishwam Annam wrote:
008: 
 
009:  
010:  
011:      
012: I use "Web Accessibility Toolbar"...
013: 
014: ...toolbar/
015: 
016: Color Contrast Analyzer, 
017: ...index.html
018: 
019: blah, blah, blah
020: 
021: Vishwam  
022: 
023: ----- Original Message -----
024: From: Isabel Danforth <isabel@shelltown.com>
025: Date: Friday, May 20, 2005 11:03 am
026: Subject: Re: [Web4lib] Favorite Free Web Tools
027: 
028: 
029:
030: 031: I am in a ... find. 032: 033: Isabel 034: 035: On Fri, 20 May 2005, Susan Boland wrote: 036: 037: 038: 039: 040: I am working on a program for the American Association of Law 041: 042: 043: 044: Libraries ... tools. 045: 046: 047: 048: 049: 050: While I ... (THRU SIGNATURE BLOCK) 051: (LONG UNDERLINE, SETS OFF LIST CREDIT) 052: (LIST CREDIT) 053: 054: <--ends bq4 055: 
056: (REPEAT REPEATEDLY (quantity depends on num of replies))
057:
058: 059: 060: 
  
061:        
062:
063: