AddressBook to Trust

#!/usr/bin/perl ##################################### # # Converts a text based addressbook to an HTML file # that can be used to enter trust ratings. # # See instructions at http://trust.mindswap.org/abScript.shtml # # (c) Jennifer Golbeck, 2004 # golbeck@cs.umd.edu # ##################################### @seen; $file = $ARGV[0]; open (FILE, $file); open (HTML, ">submitme.html"); print HTML qq+ AddressBook to Trust

trust.mindswap.org

Your primary email address*
Your Name
Your Email address(es) (separated by commas)
Your other FOAF File
Email addresses of people you trust or distrust (please separate each address with a comma)	+; while (<FILE>) { if ($_ =~ /[a-zA-Z0-9_\.-]\@[a-zA-Z0-9_\.-]+\.[a-zA-Z0-9_\.\-]/) { $_ =~ s/(.)[^a-zA-Z0-9_\.-]([a-zA-Z0-9_\.-]\@[a-zA-Z0-9_\.-]+\.[a-zA-Z0-9_\.\-])[^a-zA-Z0-9_\.-](.)/$2/g; $saver = $_; $address = $_; ($address,$rest) = split(/[^a-zA-Z0-9\.\-_]/,$address); ($greppit,$rest) = grep(/^$address/, @seen); if ($greppit eq "") { print HTML "$saver,"; print push @seen, $saver; } } } print HTML qq+ - required +; print "ok\n"; close FILE; close HTML;