Opening multiple files in parallel
I am developing an application where I am importing data from 4 separate flat files. A single record spans across all four of the files. I would like to be able to open all 4 files in parallel to make it easier to process them at the same time. The code I would like to use is: # Open files for (my $file_num = 1; $file_num < 5; $file_num++) { my $in_fn = "Form" . $file_num . "Export.CSV"; print "$in_fn\t"; open IN_FILE[$file_num], "<" . $in_fn || die "unable to open $in_fn: $!\n"; } ## end of for (my $file_num = 1; $file_num < 5; $file_num++) However, I get the following syntax error: Missing comma after first argument to open function at qt.pl line 29, near ""unable to open $in_fn: $!\n";" Is there a workaround? James H. Cutts IIIIntegrated Technology Services Computer Project Manager Research and Education Support Phone: (573) 882-6181 University of Missouri - Columbia FAX: [573] 884=8192 DC017.00, 265H Quarterdeck Columbia, MO 65212 E-Mail: [EMAIL PROTECTED] ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: PPM problems with ActiveState 5.8.0
On Tue, 2002-11-26 at 03:57, Philip Morley wrote: > I have installed ActiveState Perl 5.8.0 build 802 and have noticed the > shell prompt when you start PPM seems to be wrong. Instead of: > > PPM> > > I get: > > ←[4;mppm> ←[1m > ←[0m←[4;mppm> ←[1m > > Any ideas why? I don't know what may be causing this problem. If this is a problem with PPM, I'd like to get it identified and fixed. Have you used PPM from any of the ActivePerl 6xx builds? Did they display this problem? Starting with ActivePerl 8xx, 'ppm' runs PPM3, while 'ppm2' runs the older PPM2. In ActivePerl 6xx, 'ppm' ran PPM2, while 'ppm3' ran PPM3. If you sill have access to a ActivePerl 6xx installation, can you try running ppm3 and see if this problem exists? Are you running a 3rd party command shell? Finally, can you run the command 'set' in a command window and send me the output please? Thanks! ds > > Thanks, > > Phil Morley ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Excel to html format
> But unfortunately I have no experience with OLE to OpenOffice. > > Tom Wyant Which brings up an interesting question that's been on my mind lately. I don't know, but I would bet that OO doesn't even have an OLE interface. Has anyone been able to do any automation at all using OO on either Win32 or Linux? I've been recommending it to my fellow "penny-pinchers" as good MSOffice replacement, but I haven't checked its automation capabilities. What can (or can't) it do? Can I control it from Perl? jpt ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Excel to html format
[EMAIL PROTECTED] wrote: > The $expletive produced by Excel claiming to be HTML > is just awful (and Office 2000 is even worse) You got that right. When HTMLizing "Put the CD in the CD drive" with Word2K, we got "Put the CD in the CD drive." > If you do save from Excel, make sure you run the resulting file > through HTML Tidy. Definitely. If it will take it. Last time I tried the HTMLTidy embedded in HTML-Kit with Word2K-generated HTML, it died horribly. Maybe you need a more recent HTMLTidy than is embedded in HTML-Kit. Or use OpenOffice.org. Both word processor and spreadsheet produce better HTML than the corresponding MS-office products. Well, they actually _produce_ html (the MS ones do XML, as the humorous but apposite example above illustrates). Anyhow, for the same 5-row by 2-column spreadsheet, OpenOffice produced 50 lines of HTML, and Excel produced 150 lines of XML. But unfortunately I have no experience with OLE to OpenOffice. Tom Wyant This communication is for use by the intended recipient and contains information that may be privileged, confidential or copyrighted under applicable law. If you are not the intended recipient, you are hereby formally notified that any use, copying or distribution of this e-mail, in whole or in part, is strictly prohibited. Please notify the sender by return e-mail and delete this e-mail from your system. Unless explicitly and conspicuously designated as "E-Contract Intended", this e-mail does not constitute a contract offer, a contract amendment, or an acceptance of a contract offer. This e-mail does not constitute a consent to the use of sender's contact information for direct marketing purposes or for transfers of data to third parties. Francais Deutsch Italiano Espanol Portugues Japanese Chinese Korean http://www.DuPont.com/corp/email_disclaimer.html ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Excel to html format
I will second the motion for Spreadsheet::ParseExcel. I have been working with statistical tables lately and have built a set of modules that takes Excel files as input and outputs valid XHTML 1.0 tables that are ADA Section 508 compliant. Recent versions of Spreadsheet::ParseExcel have worked flawlessly. An added advantage is that it is pure Perl, so having Excel on the machine is not necessary. I currently run mine on Solaris. -- Mark Thomas[EMAIL PROTECTED] Internet Systems Architect User Technology Associates, Inc. $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Excel to html format
Thanks for all the options. I will be able to go with the simplest example of Win32::OLE. The only hitch was to automate the process you have to delete the existing html file and associated folder so you don't get prompted to overwrite the existing file. Thanks again, Mark -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Tuesday, November 26, 2002 11:20 AM To: [EMAIL PROTECTED] Subject: Re: Excel to html format > Hello, > I have an Excel spreadsheet that a person saves to a network > drive daily. I want to automate the task of opening the file and > saving it as html (the person can't do it themselves, their not > technical enough! ). I know the OLE modules can let you manipulate > the data in a spreadsheet but can it save the file as html? > I'm sure you could easily modify the below code to add some html tags and print to a file ... >From the Spreadsheet::ParseExcel docs: use strict; use Spreadsheet::ParseExcel; my $oExcel = new Spreadsheet::ParseExcel; #1.1 Normal Excel97 my $oBook = $oExcel->Parse('Excel/Test97.xls'); my($iR, $iC, $oWkS, $oWkC); print "FILE :", $oBook->{File} , "\n"; print "COUNT :", $oBook->{SheetCount} , "\n"; print "AUTHOR:", $oBook->{Author} , "\n"; for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) { $oWkS = $oBook->{Worksheet}[$iSheet]; print "- SHEET:", $oWkS->{Name}, "\n"; for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) { for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) { $oWkC = $oWkS->{Cells}[$iR][$iC]; print "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC); # Formatted Value print "( $iR , $iC ) =>", $oWkC->{Val}, "\n" if($oWkC); # Original Value } } } ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs This e-mail message is for the sole use of the intended recipient(s) and may contain confidential and/or privileged information. Any review, use, disclosure or distribution by persons or entities other than the intended recipient(s) is prohibited. If you are not the intended recipient, please contact the sender by reply and destroy all copies of the original message. Thank you. WordWave, Capturing the Power of the Spoken Word http://www.wordwave.com ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Excel to html format
> Hello, > I have an Excel spreadsheet that a person saves to a network > drive daily. I want to automate the task of opening the file and > saving it as html (the person can't do it themselves, their not > technical enough! ). I know the OLE modules can let you manipulate > the data in a spreadsheet but can it save the file as html? > I'm sure you could easily modify the below code to add some html tags and print to a file ... >From the Spreadsheet::ParseExcel docs: use strict; use Spreadsheet::ParseExcel; my $oExcel = new Spreadsheet::ParseExcel; #1.1 Normal Excel97 my $oBook = $oExcel->Parse('Excel/Test97.xls'); my($iR, $iC, $oWkS, $oWkC); print "FILE :", $oBook->{File} , "\n"; print "COUNT :", $oBook->{SheetCount} , "\n"; print "AUTHOR:", $oBook->{Author} , "\n"; for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) { $oWkS = $oBook->{Worksheet}[$iSheet]; print "- SHEET:", $oWkS->{Name}, "\n"; for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) { for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) { $oWkC = $oWkS->{Cells}[$iR][$iC]; print "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC); # Formatted Value print "( $iR , $iC ) =>", $oWkC->{Val}, "\n" if($oWkC); # Original Value } } } ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Substitution
Er, what were you trying to do again? Why won't { my @bits = split":",$in; } be good enough to get the bits, and the rewriting as {print join":",@bits} ? Sorry, little history in my box lee Lee Goddard, BA(Hons), MSc(Sussex) http://www.LeeGoddard.com/ since 1997. Direcotr: Little Bits Ltd - Perl / Java / XML / HTML Contractors Inc. in England #4006170; VAT #755-0139-42 ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: PPM problems with ActiveState 5.8.0
|-+---> | | "Bellenger, Bruno (Paris)" | | | <[EMAIL PROTECTED]> | | | Sent by:| | | [EMAIL PROTECTED]| | | veState.com | | | | | | | | | 26/11/02 13:17 | | | | |-+---> >| | | |To: [EMAIL PROTECTED] | |cc: "'Philip Morley'" <[EMAIL PROTECTED]> | |Subject: RE: PPM problems with ActiveState 5.8.0 | >| >These are ANSI escape codes. >Make a search on Google on these keywords if it is not clear to you what >they are. >Why PPM is trying to make use of them is another question though. >What is your platform ? I am using Windows NT 4.0. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Off Topic: SunOS Mailing List?
Title: Off Topic: SunOS Mailing List? Does anyone out there know of a SunOS/Perl Mailing List? How would one join it? Thanks, John D.
Re: Substitution
> Either quote the meta characters in the search string by enclosing it > in \Q \E sequences or quote each meta separtately by preceeding > it with a \ character, e.g. > > s!\Q$search\E!$replace!; > > or > > @search=split(//,$search); > foreach $char (@search) { > $char="\\$char" if $char=~/\W/; > } > $search=join('',@search); I still couldn't get it to work. Here is my code so you can see where I am messing up: # Get the original record from a hidden field my $record = $cgi->param('oldval'); # Search the database, and grab the old values for the record to be modified open (OLD, "$file") or die "Cannot open $file: $!\n"; while (){ $oldline = $_; if ($oldline =~ /^$record(.*)$/) { ($orig_cat_num, $orig_link, $orig_name, $orig_file, $orig_title, $orig_composer, $orig_arranger, $orig_publisher, $orig_price, $orig_description) = split(/\:/, $oldline); # Store the value of this line in the search variable $search = $oldline; } } # Close the file close (OLD); # Grab the new values from the form $cat_num = $cgi->param('cat_num'); $title = $cgi->param('title'); $composer = $cgi->param('composer'); $arranger = $cgi->param('arranger'); $publisher = $cgi->param('publisher'); $price = $cgi->param('price'); $description = $cgi->param('description'); # Get rid of all the line enders in the description $description =~ s/\n/\/g; my $replace = "$cat_num:$orig_link:$orig_name:$title:$composer:$arranger:$publisher:$price :$description\n"; open (OFILE, "< $file") or print "Cannot write the database"; open (TEMP, "> $tmp") or die "Cannot create temp file: $!\n"; select (TEMP); my $out = ''; # Print all the lines of text from the db file directly into the temp file, # including the record header we are looking for while (){ my $line = $_; if ($line =~ /^$record(.*)$/i) { chomp $line; # Substitute the old values for the new $line =~ s!\Q$search\E!$replace!; # This still shows the old value!!! die "Replacing with $line\n"; $out .= $_; } $out .= $_; } print TEMP $out; Now, as I mentioned before, the contents of $line would look like: ../pdf/sax_quartet/BMP0016.pdf:BMP0016.pdf:No baile mas (Dance No More):Cervantes:O'Briant:Bayside Music Press:$8.00:desc Where am I going wrong? -Erich- ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Net-DNS for 5.8/802
Does anybody know where I can find a Net-DNS module built for ActivePerl build 802? I'm not in dire need, but it'd be nice. perl -e "sub Sub{return reverse(@_);}$i='ohce';$_='.$yyye k ca i Xl $yyye jX $yyyehto ZfX tq $uQ';s+[ \$]++g;s-j-P-;s^yyy^r^g;s:i:H:;s!X! !g;s|Z|n|;s*Q*J*;s{q}{s}g;s(f)(A);system(join('',Sub(split('',$i))),(joi n('',Sub(split('');" To the optimist, the glass is half full. To the pessimist, the glass is half empty. To the engineer, the glass is twice as big as it needs to be. Adrian "Okay, I won't top-post unless it's an emergency" Stovall ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: thread limit in fork?
I'm *really* confused now. I've read topic after topic on this list saying that fork doesn't work on Windows. I've tried some trivial examples and it work. Other's have written that it works in some case but not all. One note said that a program worked most of the time but occasionally gets all forked up. What's the official word on 5.6.1 (build 633). -Original Message- From: Jan Dubois [mailto:[EMAIL PROTECTED]] Sent: Monday, November 25, 2002 16:45 PM To: prefab Cc: [EMAIL PROTECTED] Subject: Re: thread limit in fork? Importance: Low On Mon, 25 Nov 2002 15:09:26 -0800 (PST), prefab <[EMAIL PROTECTED]> wrote: >Does anyone know where this limit comes from and if it >is possible to configure a higher number of threads? Yes, there is a limit of 64 *concurrent* threads in Perl on Windows. The limit comes from using the WaitForMultipleObjects() API for the implementation of the wait() function. It would be possible to do better by e.g. chaining multiple blocks of 64 handles together using event semaphores, but somebody has to actually do it. It is not as easy as just changing a constant and recompiling the sources. Patches welcome! :) Note that you must use wait/waitpid to reap your forked children. Otherwise the slots in the thread table won't become available again for new threads. Cheers, -Jan ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: PPM problems with ActiveState 5.8.0
These are ANSI escape codes. Make a search on Google on these keywords if it is not clear to you what they are. Why PPM is trying to make use of them is another question though. What is your platform ? _ Bruno Bellenger Sr. Network/Systems Administrator -Original Message- From: Philip Morley [SMTP:[EMAIL PROTECTED]] Sent: Tuesday, November 26, 2002 12:57 PM To: [EMAIL PROTECTED] Subject:PPM problems with ActiveState 5.8.0 I have installed ActiveState Perl 5.8.0 build 802 and have noticed the shell prompt when you start PPM seems to be wrong. Instead of: PPM> I get: ?[4;mppm> ?[1m ?[0m?[4;mppm> ?[1m Any ideas why? Thanks, Phil Morley ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
PPM problems with ActiveState 5.8.0
I have installed ActiveState Perl 5.8.0 build 802 and have noticed the (Bshell prompt when you start PPM seems to be wrong. Instead of: (B (BPPM> (B (BI get: (B $B"+(B[4;mppm> $B"+(B[1m $B"+(B[0m$B"+(B[4;mppm> $B"+(B[1m (B (BAny ideas why? (B (BThanks, (B (BPhil Morley (B (B (B (B___ (BPerl-Win32-Users mailing list ([EMAIL PROTECTED] (BTo unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Excel to html format
On 25/11/2002 21:13:28 perl-win32-users-admin wrote: >Hello, > > I have an Excel spreadsheet that a person saves to a network drive >daily. I want to automate the task of opening the file and saving it as html >(the person can't do it themselves, their not technical enough! ). I know the >OLE modules can let you manipulate the data in a spreadsheet but can it save >the file as html? > If I were you, I'd extract the data from the spreadsheet and write the HTML from Perl. The $expletive produced by Excel claiming to be HTML is just awful (and Office 2000 is even worse). If you do save from Excel, make sure you run the resulting file through HTML Tidy. -- Csaba Ráduly, Software Engineer Sophos Anti-Virus email: [EMAIL PROTECTED]http://www.sophos.com US Support: +1 888 SOPHOS 9 UK Support: +44 1235 559933 ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Justifying text in a Tk label?
Aha! Thanks guys! This is what I was trying to do, the part with the shorter label... # use Tk; my $mw=tkinit; my $label=$mw->Label( -text=> 'This is a very long, long, long label.', -relief=>'groove'); $label->pack( -side=>'top', -fill=>'both', -expand=>'both'); my $label1=$mw->Label( -text=>'This is a short label.', -anchor=>'e', -justify=>'left', -relief=>'groove'); $label1->pack( -side=>'top', -fill=>'both', -expand=>'both'); MainLoop; I think I missed the fact that you can use -anchor within the Label command, and was only using it within the pack command. The way Tk packs stuff is really tricky, isn't it! Thanks, again. R. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Justifying text in a Tk label?
Than your pane is just centerd, and not the lable. Try to set the pane over the full size ( mybe with a frame ->pack(-side=>'top' -fill=>'x', -expand=>1); kris On 25.11.2002 17:50 Uhr, "Beckett Richard-qswi266" <[EMAIL PROTECTED]> wrote: > That doesn't seem to work, either. > > Thanks. > > R. > >> -Original Message- >> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] >> Sent: 25 November 2002 16:45 >> To: Beckett Richard-qswi266 >> Subject: Re: Justifying text in a Tk label? >> >> >> try 'align=>' >> >> greets kris >> >> On 25 Nov 2002 at 15:23, Beckett Richard-qswi266 wrote: >> >>> Anyone know how to justify the text within a Tk label? >>> >>> I tried many combinations, like: >>> >>> my $label = $frame->Label (-text => "Hostname :", -relief >> => "raised", >>> -borderwidth => "2", -width => "25", -justify => "left") >>> >>> -> pack (-side => "top", -anchor => "e", -padx => "1", >> -pady => "1"); >>> >>> But I couldn't make any difference, the text is always centered. >>> >>> Thanks. >>> >>> R. >>> ___ >>> Perl-Win32-Users mailing list >>> [EMAIL PROTECTED] >>> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs >> >> ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: thread limit in fork?
I am using ActiveState Perl 5.6.1 build 633 on w2k workstation. --- Scott Carr <[EMAIL PROTECTED]> wrote: > Which OS are you using? > -- > Scott Carr > Documentation Maintainer > http://documentation.openoffice.org > OpenOffice.org > > > Quoting prefab <[EMAIL PROTECTED]>: > > > hello, > > > > there appears to be a limit of 64 processes that > can > > be forked on win32. The following code: > > > > foreach $i (1..1000) { > > if (!defined ($pid = fork())) { > > print "current child process : ".$i."\n"; > > die "cannot fork: $!"; > > } elsif ($pid== 0) { > > # child > > sleep(10); > > exit(0); > > } > > } > > > > produces the following result: > > > > current child process : 65 > > cannot fork: Resource temporarily unavailable at > > test5.pl line 4. > > > > Does anyone know where this limit comes from and > if it > > is possible to configure a higher number of > threads? > > > > thanks > > prefab > > > > > > __ > > Do you Yahoo!? > > Yahoo! Mail Plus Powerful. Affordable. Sign up > now. > > http://mailplus.yahoo.com > > ___ > > Perl-Win32-Users mailing list > > [EMAIL PROTECTED] > > To unsubscribe: > http://listserv.ActiveState.com/mailman/mysubs > > > > > - > This mail sent through IMP: http://horde.org/imp/ > ___ > Perl-Win32-Users mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs __ Do you Yahoo!? Yahoo! Mail Plus - Powerful. Affordable. Sign up now. http://mailplus.yahoo.com ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Excel to html format
Title: Excel to html format Maybe you should use Excel's built in Visual Basic for that task. You can open a workbook including a auto_open macro that grabs your desired information and writes the HTML-File. And you don't have to take care about your version of Excel since VB in every version is able to read cells and write files... I've got such kind of solution which works fine for my purposes... Harry -Original Message-From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Ricci, MarkSent: Monday, November 25, 2002 10:13 PMTo: [EMAIL PROTECTED]Subject: Excel to html format Hello, I have an Excel spreadsheet that a person saves to a network drive daily. I want to automate the task of opening the file and saving it as html (the person can't do it themselves, their not technical enough! ). I know the OLE modules can let you manipulate the data in a spreadsheet but can it save the file as html? Thanks in advance, Mark This e-mail message is for the sole use of the intended recipient(s) and may contain confidential and/or privileged information. Any review, use, disclosure or distribution by persons or entities other than the intended recipient(s) is prohibited. If you are not the intended recipient, please contact the sender by reply and destroy all copies of the original message. Thank you. WordWave, Capturing the Power of the Spoken Word http://www.wordwave.com
Re: OLE methods with output arguments
On Fri, 22 Nov 2002 10:37:52 -0500, "Jon Vinson" <[EMAIL PROTECTED]> wrote: >Figured it out. Answer: Variant(VT_VARIANT | VT_BYREF, Variant(VT_EMPTY)) > >(Good grief!) Yes. But then, passing arguments by reference is rarely done in OLE Automation. Anyways, I've added a "shortcut" (for some value of "short") for the expression above to Win32::OLE in ActivePerl 634/803: Variant(VT_VARIANT | VT_BYREF); Still quite a mouthful though... Cheers, -Jan ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs