from http://www.deerbrook.com/downloads/sysreqs/Bridging/new_page_1.htm:
Issue
When you try to open Adobe Reader or Adobe Acrobat, it freezes when you try to open it, or it opens and then immediately closes.
Details You may also receive the error "Can't find Acrobat Plug in. The file name, directory or volume label syntax is incorrect."
The process "acrobat.exe" uses 95% or more of the capacity of the system processor.
Solutions
Do one or more of the following:
Solution 1: Delete temporary files, and update to Acrobat 6.0.1 or Adobe Reader 6.0.1.
To remove the 64k files - just select-all, delete would crash windows explorer - I wrote a short perl script.
#!/usr/bin/perl -w
use Shell qw(rm);
@list = split(//, "01234567890ABCDEF");
$length = scalar(@list);
for($ctr=0; $ctr < $length; $ctr++){
for($ctr2=0; $ctr2 < $length; $ctr2++){
$command = "Acr".$list[$ctr].$list[$ctr2]."\* ";
rm($command);
print "rm ".$command."\n";
}
}
It loops twice over all the hex characters and asks the shell to remove all matching files (example: "rm Acr2F*")
say you want to rename files in a directory using regexes. I'm sure there is a way to do this within the shell, but this script will do it too (not the most efficient way .. eh well):
#!/usr/bin/perl -w
use Shell qw(cp rm ls);
$files = ls();
@fila = split(/\n/, $files);
print("length fila: " . @fila . "\n");
foreach $f(@fila){
if($f =~ m/Picture\s\d+\.pdf/){
$f = q(") . $f . q("); #the file has a space, need to quote it.
$nf = $f;
$f =~ s/Picture\s/Aug282005_/;
cp($nf . " " . $f);
print("cp " . $nf . " " . $f."\n");
rm($nf);
print("rm ".$nf."\n");
}
}
Say you have a file, and you want to delete some lines from it. Use Tie to handle the file I/O, and remove the offensive elements from the resulting array using the perl fuction splice:
use Tie::File;
my $o = tie @lines, 'Tie::File', 'test.txt', or die 'help';
$o->flock(2);
# show proper Tie and flock usage...
@lines = qw( hello 45 there 25 all 3535 you 457 crazye 705 funksters );
my $i;
for( $i = 0; $i < scalar(@lines); $i++){
if( $lines[$i] =~ /\d/){
splice @lines, $i, 1;
print scalar(@lines) . "\n";
}
}
$o = ''; # from the tie documentation: the best way to unlock a file is to
untie @lines; # discard the object and untie the array.
This works fine because the for loop is aware of the changing length of the array. The script prints out:
hello there all you crazye funksters
Whereas the following does not work:
use Tie::File;
my $o = tie @lines, 'Tie::File', 'test.txt', or die 'help';
$o->flock(2);
@lines = qw( hello 45 there 25 all 3535 you 457 crazye 705 funksters );
foreach $line (@lines){
if( $line =~ /\d/ ){
splice @lines, $i, 1;
print scalar(@lines) . "\n";
}
}
$o = '';
untie @lines;
it prints out this:
3535 you 457 crazye 705 funksters
Not sure why!! It would also be possible to replace the elements of the array with null, and later remove the elements by join/split operations:
# other code same as above..
my $i;
for( $i = 0; $i < scalar(@lines); $i++){
if( $lines[$i] =~ /\d/){
$lines[$i] = '';
}
}
# remove all the null entries.
$temp = join "\n", @lines;
$temp =~ s/\n\n/\n/g; #remove double returns
@lines = split /\n/, $temp;
rest of code the same too ...
IMAP is great for webaccess to email, but often the server that you request data from is overloaded(like hardcarve.com). so, of course, it would be nice to keep all the data on a local machine for rapid searching. An easy way to do this is with any of the standard email clients - outlook, eudora, etc. But what if you don't like other people's products and would like to roll your own while maintaining the simple webinterface? It's not so hard with a bit of perl and MySQL?. Plus, once you are done you can aggregate a whole bunch of mailboxes, perform fulltext search on them very quickly, and possibly generate a nice front end out of PHP or perl. (for now my front end is phpmyadmin wow).
The program flow is pretty simple, though it took a solid 7 hours to get working (sorta). Perl can be dense and slow at times. I hope I'll be able to read and understand the code later. Outline:
+--------------+--------------+------+-----+---------+----------------+ | Field | Type | Null | Key | Default | Extra | +--------------+--------------+------+-----+---------+----------------+ | id | int(20) | NO | PRI | NULL | auto_increment | | Date | datetime | NO | | | | | DeliveryDate | datetime | NO | | | | | EnvelopeTo | varchar(255) | NO | | | | | From | varchar(255) | NO | | | | | ReplyTo | varchar(255) | NO | | | | | Subject | varchar(255) | NO | MUL | | | | To | text | NO | | | | | CC | text | NO | | | | | Body | text | NO | MUL | | | | Attachements | varchar(255) | NO | | | | +--------------+--------------+------+-----+---------+----------------+
11 rows in set (0.00 sec)
This file is available on subversion, too: https://hardm.ath.cx/public/m8ta/m8ta_mail.pl
use Net::IMAP::Simple;
use Net::POP3;
use Email::Simple;
use DBI;
use strict;
require "imapConvertDate.pl";
my $server;
my $nmessages;
if(0){
# http://search.cpan.org/src/CFABER/Net-IMAP-Simple-1.14/README
my $server = Net::IMAP::Simple->new( 'hardcarve.com' );
$server->login( 'tim@hardcarve.com', '***' );
#my @boxes = $server->mailboxes;
#foreach my $l (@boxes){ print "$l \n"; }
$nmessages = $server->select( 'familie' );
}else{
# http://perl.active-venture.com/lib/Net/POP3.html
$server= Net::POP3->new('neuro.duke.edu');
if( defined($server)){
print "created a POP3 connection successfully!\n";
$nmessages = $server->login('hanson@neuro.duke.edu', '***');
}
}
print "you have $nmessages messages!\n";
# get ready for the large loop: connect to the database.
my $database = 'DBI:mysql:mail:localhost';
my $username = 'root';
my $password = 'ktme3673';
my $query;
my $dbi = DBI->connect($database, $username, $password) or die $DBI::errstr;
my $sth;
for(my $mess=1; $mess < 100; $mess++){
my $header = $server->top($mess);
my $ln = 0;
my %hdr;
my($key, $value);
foreach my $lk (@{$header}){
# print "top-$ln--$lk";
$ln++;
#need to remove nonprinting characters.ANNOYING
my $pat = '\0';
for(my $i=0; $i<3; $i++){
for(my $j=0; $j < 8; $j++){
my $pp;
$pp = $pat . $i . $j;
if($pp !~ /000/){$lk =~ s/$pp//;}
}
}
# need to remove excessive spaces.
$lk =~ s/\s{2,100}/ /i;
if( $lk =~ /^([\w-]+)\:(.*)/){
$key = $1;
$value = $2;
if(exists $hdr{$key}){
$hdr{$key} .= $value;
}else{
$hdr{$key} = $value;
}
}else{
$hdr{$key} .= $lk;
}
}
print "\nand now the contents of the hash!! \n\n";
for my $kl (sort keys %hdr){
print "$kl -- $hdr{$kl}\n";
}
my $message = $server->get($mess);
# it seems that the body is simply prefaced by a blank line.
# also, if there are multiple parts in the mail,
# then there will be a 'content-type' string in the header.
# with a keyword boundary="====="
$ln = 0;
my $found = 0;
my $body;
foreach my $l (@{$message}){
if($found){ $body .= $l;}
$ln++;
if($l !~ /[^\s\n]/ && $found == 0){
print "found start of body!\n";
$found = 1;
}
}
my $mimesep;
my $mimekey;
for my $kl (sort keys %hdr){
if( $kl =~ /content-type/i){
$mimekey = $kl;
}
}
if(exists $hdr{$mimekey}){
if($hdr{$mimekey} =~ /boundary=(.+?)$/i){ # ! must be case insensitive !
# some mailers put quotes around it, others do not.
# remove quotes if they exist.
$mimesep = $1;
$mimesep =~ s/^\s*"//;
$mimesep =~ s/"\s*$//;
print " MIME separator = $mimesep \n";
# now, we need to escape the parenthesis should that occur in the separator
$mimesep =~ s/\(/\\(/g;
$mimesep =~ s/\)/\\)/g;
print " escaped MIME separator = $mimesep \n";
my @bdy = split($mimesep, $body);
# by default, include the first part of a multipart --
# somtimes there is no plain text part.
$body = $bdy[0];
foreach my $multipart (@bdy){
print "\n multipart! \n";
if($multipart =~ /content-type:\s*text\/plain/i){
print " found the plain text! \n";
print $multipart;
$body = $multipart;
}
}
}
}
#need to quote the SQL escape character, '
foreach $key (keys %hdr){
$hdr{$key} =~ s/'/'/gm;
}
$body =~ s/'/'/gm;
#otay, need to break the hash into variables.
my ($contentType, $date, $deliveryDate, $envelopeTo, $from, $replyTo, $subject, $to, $cc);
foreach $key (keys %hdr){
if($key =~ /content-type$/i){$contentType = $hdr{$key}; }
elsif($key =~ /delivery-date$/i){$deliveryDate = $hdr{$key}; }
elsif($key =~ /date$/i){$date = $hdr{$key}; }
elsif($key =~ /envelope-to$/i){$envelopeTo = $hdr{$key}; }
elsif($key =~ /from$/i){$from = $hdr{$key}; }
elsif($key =~ /reply-to$/i){$replyTo = $hdr{$key}; }
elsif($key =~ /subject$/i){$subject = $hdr{$key}; }
elsif($key =~ /to$/i){$to = $hdr{$key}; }
elsif($key =~ /cc$/i){$cc = $hdr{$key}; }
}
# need to convert the dates.
if(defined($date)){ $date = imapConvertDate($date);}
if(defined($deliveryDate)){ $deliveryDate = imapConvertDate($deliveryDate);}
$query = <<"EOT";
INSERT INTO `base`
(`Date`,`DeliveryDate`,`EnvelopeTo`,`From`,`ReplyTo`,`Subject`,`To`,`CC`,`Body`,`Attachements` )
VALUES
('$date', '$deliveryDate', '$envelopeTo', '$from', '$replyTo', '$subject', '$to', '$cc', '$body', '');
EOT
print "SQL query: $query \n";
#$sth = $dbi->prepare($query) or die "prepare error: " . $sth->errstr;
#$sth->execute() or die "execute error:" . $sth->errstr;
} #end loop over the mailbox.
$server->quit();