Windows Perl Scripting Forums

Windows Perl Scripting Forums » Recent Posts http://www.roth.net/forums/ Windows Perl Scripting Forums » Recent Posts en Sat, 04 Feb 2012 05:24:18 +0000 mahalatchumi on "XML tag closing in hierarchical manner" http://www.roth.net/forums/topic.php?id=425#post-783 Mon, 09 Jan 2012 22:11:49 +0000 mahalatchumi 783@http://www.roth.net/forums/ Hi,I've problem in multilevel tag closing,i want to close the tags form the inner level then come to close its outer level <p_list-bull(1)>Use Microsoft Windows accessibility options to: <p_list-simple(2)>– Magnify the display <p_list-simple(2)>– Change the size of text and icons <p_list-simple(2)>– Convert the text displayed into speech (i.e. narrator) <p_list-simple(2)>– Change the contrast <p_list-simple(2)>– Display an onscreen keyboard <p_list-simple(2)>– Convert the mouse for left-handed use. <p_list-bull(1)>Deliver learning through an audio podcast rather than written handouts for visually impaired learners. <p_list-bull(1)>Increase the character size on handouts for visually impaired learners. <p_list-bull(1)>Adjust background colours and fonts to assist dyslexic learners. my output should be like the below code <list list-type="bullet"> <list-item>Use Microsoft Windows accessibility options to: <list list-type="simple"> <list-item>– Magnify the display</list-item> <list-item>– Change the size of text and icons</list-item> <list-item>– Convert the text displayed into speech (i.e. narrator)</list-item> <list-item>– Change the contrast</list-item> <list-item>– Display an onscreen keyboard</list-item> <list-item>– Convert the mouse for left-handed use.</list-item> </list></list-item> <list-item>Deliver learning through an audio podcast rather than written handouts for visually impaired learners.</list-item> <list-item>Increase the character size on handouts for visually impaired learners.</list-item> <list-item>Adjust background colours and fonts to assist dyslexic learners.</list-item> <list-item><xref ref-type="page" id="page_13"/>Provide feedback on written work using the comments facility and track changes rather than handwritten notes, so that the learners can change character size or use a text to speech application to hear feedback.</list-item> </list> i tried the below code but i gives single item list only i d't know where its wrong pls correct my mistake use strict; my $inputfile = $ARGV[0]; open (IN,"$inputfile") || die ("Can't open the input file for reading"); undef $/; my $str = <IN>; while($str =~ /<list-(bull)>(?:(?:(?!<\/list-bull>).)*)<\/list-\1>/sgi) { $str =~ s#<list-(bull)>(?:(?:(?!<\/list-bull>).)*)<\/list-\1>#&List_find($&)#sgie; } sub List_find { my $line = @_[0]; my $currentlevel = 0; while($line =~ /^[\s\S]*?<(P_list-(\w+)$(\d+)$)>(.*?)<\/\1>\s*/si) { my ($tag, $kind, $level, $text) = ($1, $2, $3, $4); if ($currentlevel < $level) { while($currentlevel < $level) { $line = "\n<list list-type=\"$kind\">\n<list-item>"; $currentlevel++; } } elsif ($currentlevel > $level) { while($currentlevel > $level) { $currentlevel--; $line ="</list-item>\n</list>\n"; } $line = "</list-item>\n<list-item>"; } else { $line = "</list-item>\n<list-item>"; } $line .= $text; # print $line; } while($currentlevel > 0) { $currentlevel--; $line .= "</list-item>\n</list>\n"; } #print $line; return "$line"; } open (OUT,">$inputfile\.xml") || die ("Can't open the output file for writing"); print OUT $str; close (OUT); hervebags on "How to parse this file?" http://www.roth.net/forums/topic.php?id=371#post-729 Wed, 19 Oct 2011 05:24:56 +0000 hervebags 729@http://www.roth.net/forums/ Hi, I have only been learning Perl for less than 2 weeks. I am a C++ programmer. I have attached a portion of the data below. The data is in file1.txt. I would like to move the data from file1.txt to file2.txt. But, I only want to keep the numbers. Eg: I want row 1 to look like this: 1 1549367 11 8 3 11 0 -12.00 6.00 -0.25 -3.00 0.00 -1.67 -12.00 6.00 -0.64 Instead of this: 1 Chr26 1549367 11 GGGGGGGAAGA 8 3 Transition 11 0 -12.00 6.00 -0.25 -3.00 0.00 -1.67 -12.00 6.00 -0.64 This is what I have done so far (file1.txt will be in @ARGV): open FILE2, "+>file2.txt" or die "Cant not open file2.txt!"; my $line; while($line = readline(ARGV)) { print FILE2 $line; } The code above only copies content of file1.txt (ARGV) into file2.txt. I tried to use ‘seek’ and ‘tell()’ but, to solve my problem above but, I got confused :( I also tried this: Open(FILE, “file1.txt”) @theFile = <FILE>; This puts every row in the array @the File. But, I can I now modify the elements of one row? (I’m still a novice Perl programmer) Thank you for your help /………………………………………………………………………………………../ The file portion 1 Chr26 1549367 11 GGGGGGGAAGA 8 3 Transition 11 0 -12.00 6.00 -0.25 -3.00 0.00 -1.67 -12.00 6.00 -0.64 1 Chr26 1549501 15 ccCctctccccctCC 12 3 Transition 3 12 -17.00 6.00 0.50 1.00 6.00 2.67 -17.00 6.00 0.93 1 Chr26 1549552 14 AagAAaaAAAagga 11 3 Transition 6 8 -31.00 6.00 -2.09 -12.00 3.00 -5.67 -31.00 6.00 -2.86 1 Chr26 1549563 14 tAAaaAAAattat^Ft 9 5 Transversion 5 9 -7.00 6.00 0.22 -64.00 4.00 -18.40 -64.00 6.00 -6.43 1 Chr26 1549726 14 TtTtctTtTtTTTT 13 1 Transition 8 6 -3.00 6.00 1.92 6.00 6.00 6.00 -3.00 6.00 2.21 2 Chr26 1549737 16 T+1Atttt+1aT+1At+1aTt+1aT+1AT+1AT+1AT+1AtT+1A^FA 15 11 Transversion 16 10 -64.00 6.00 -35.67 -64.00 6.00 -46.18 -64.00 6.00 -40.12 2 Chr26 1549815 9 CtCTTTTTT 7 2 Transition 8 1 -3.00 6.00 -0.14 -9.00 0.00 -4.50 -9.00 6.00 -1.11 1 Chr26 1549914 12 gGGGGGGGAGgg 11 1 Transition 9 3 -9.00 6.00 1.18 -4.00 -4.00 -4.00 -9.00 6.00 0.75 1 Chr26 1550018 vini007mca on "Manipulating sql data with perl script" http://www.roth.net/forums/topic.php?id=370#post-728 Tue, 18 Oct 2011 02:43:17 +0000 vini007mca 728@http://www.roth.net/forums/ i am newbie in perl, Scenario: till now i am able to connect Mysql database with perl script and able to display records, insert records ,search option through browser. Problem : But i don't no how edit the data through the browser... please help regards vinay bbalint1 on "OLE: save .xls as .pdf?" http://www.roth.net/forums/topic.php?id=366#post-724 Tue, 30 Aug 2011 11:42:13 +0000 bbalint1 724@http://www.roth.net/forums/ I've partially answered my own question. The proper syntax is $Book->SaveAs($pdf_file,57); this saves the first sheet of the workbook. My question now is how do I tell excel 2010 to save the entire workbook--all sheets? Thanks again! bbalint1 on "OLE: save .xls as .pdf?" http://www.roth.net/forums/topic.php?id=366#post-723 Tue, 30 Aug 2011 08:05:27 +0000 bbalint1 723@http://www.roth.net/forums/ Hi, Using a perl/OLE script, I'm trying to save an excel spreadsheet as a pdf file. Is there a way to use SaveAs to do this? vickiee on "win32::ole unable to open excel workbook" http://www.roth.net/forums/topic.php?id=365#post-722 Sat, 27 Aug 2011 04:51:33 +0000 vickiee 722@http://www.roth.net/forums/ I read all the codes and it seems right, so i think maybe this is cause any other mistake by the way i will search for it and try to find any legit solution bout this. __________________ <a href="http://www.ebookreaderreviewsite.org/">ebook reader</a> rockbold on "win32::ole unable to open excel workbook" http://www.roth.net/forums/topic.php?id=365#post-721 Thu, 11 Aug 2011 13:49:29 +0000 rockbold 721@http://www.roth.net/forums/ Hello All, I m using the following to open and close excel files and access sheets. my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit'); # turn off all the alert boxes $Excel->{DisplayAlerts}=0; my $book=$Excel->Workbooks->Add(); $book->SaveAs("C:\\dropbox\\test.xls"); my $sheet=$book->Worksheets("Sheet1"); $sheet->Activate(); $book->Save(); $book->Close; $book=$Excel->Workbooks->Open("C:\\dropbox\\test.xls"); $sheet=$book->Worksheets("Sheet2"); $sheet->Activate(); $book->Save(); $book->Close; This works fine on excel 2007. However, on excel 2010 it seems to not be able to open the file second time and errors out with the following message: Can't call method "Worksheets" on an undefined value at ... Any ideas why excel can be re-opened after closing on excel 2010? Appreciate your help. Thanks rockbold on "WIN32::OLE Excel Workbook fails to open intermittently" http://www.roth.net/forums/topic.php?id=364#post-720 Thu, 11 Aug 2011 12:45:22 +0000 rockbold 720@http://www.roth.net/forums/ Hello All, I am using the following to open an excel workbook and access a sheet. my $BucketizedFile = "C:\\temp\\Bucketized.xls"; $BucketizedOutputFile = $Excel->Workbooks->Open($BucketizedFile); my $BucketizedKPI2Sheet = $BucketizedOutputFile->Worksheets("Sheet2"); $BucketizedKPI2Sheet->{Name}="KPI2"; $BucketizedKPI2Sheet->Activate(); I get the following error: Can't call method "Worksheets" on an undefined value at Bucketizer_Worksheets_Issue.pl line 347. It seems that it was unable to open the Excel sheet successfully. I only see this on one particular PC. Why this inconsistency in behavior. Any ideas what might be cauing this? Appreciate your help. Thanks perl_omens on "unable to load strawberry perl shell on windows 7" http://www.roth.net/forums/topic.php?id=362#post-718 Wed, 03 Aug 2011 12:55:06 +0000 perl_omens 718@http://www.roth.net/forums/ Dear All, Greetings. I use strawberry perl on windows 7. I use command "perl-MCPAN -e shell" to install perl modules from CPAN. When I was installing Padre (Perl IDE) by issuing command cpan> install Padre and the process was in the middle then there was power trip due to which my PC rebooted. Now whenever I try to load perl shell (perl -MCPAN -e shell) on perl cmmand line (DOS) it gives following fatal error ************************************************************** Microsoft Windows [Version 6.1.7601] Copyright (c) 2009 Microsoft Corporation. All rights reserved. C:\>perl -MCPAN -e shell Argument "" isn't numeric in numeric eq (==) at C:/strawberry/perl/lib/CPAN.pm line 728. There seems to be running another CPAN process (pid ). Co ntacting... Can't kill a non-numeric process ID at C:/strawberry/perl/lib/CPAN.pm line 733. ************************************************************** I rebooted my PC but invain. Please suggest problem resolution and throw some pointers. Regards, perl_omens GSA on "Perl, and copying files in Windows using UNC names" http://www.roth.net/forums/topic.php?id=361#post-717 Wed, 03 Aug 2011 08:25:36 +0000 GSA 717@http://www.roth.net/forums/ Hi - this is little baby script (using Windows) works fine: use File::Copy; copy("/gsa.txt", "/hurray.txt") or die $!; But, when I do things like this: use File::Copy; copy("\\servername1\gsa.txt", "servername2\\hurray.txt") or die $!; it just bombs...sigh. any thoughts? thanks, Greg. sure051 on "Can anyone help me in debugging this Perl Code." http://www.roth.net/forums/topic.php?id=360#post-713 Mon, 25 Jul 2011 22:19:36 +0000 sure051 713@http://www.roth.net/forums/ Hi all, I'm a beginner in perl and this is my code. #!C:/Perl $var="C:\Program Files\test\test2"; @var1=split (/\\/ , $var); print "$var1[0] \n"; The output should be: C: But i receive C:Program Filestesttest2 as output. So anyone can help me to spilt and show only C: as output. Winnetou on "Please Help Win32::Daemon Windows 7" http://www.roth.net/forums/topic.php?id=315#post-712 Fri, 15 Jul 2011 17:35:18 +0000 Winnetou 712@http://www.roth.net/forums/ Dave has retired from active development of this module. It is now being maintained as part of the libwin32 project <libwin32@perl.org>. vickiee on "how to install win32::GuidGen on windows 64 bit OS" http://www.roth.net/forums/topic.php?id=261#post-710 Fri, 24 Jun 2011 20:49:50 +0000 vickiee 710@http://www.roth.net/forums/ Try to search on internet, whenever i want to find some kinda file that is missing i search on net and download it and paste it on necessary place. so you can also find any file you want. good luck ____________________ <a href="http://www.dailydeals4you.com/webroot-coupon">Webroot Coupons</a> anitsahu on "slickedit" http://www.roth.net/forums/topic.php?id=359#post-709 Tue, 07 Jun 2011 21:13:32 +0000 anitsahu 709@http://www.roth.net/forums/ i have this perl code snippet which i want to invoke from visual slick edit.. %data = ('x','y','z','a','b','c'); open logfile,">test.txt"; $deldata = delete $data{'x'}; print logfile $deldata; close logfile; @args = ("C:/Program Files (x86)/SlickEdit 2009/win/vs.exe", "C:/Users/anits/Desktop/test.txt"); system(@args) == 0 or die "system @args failed: $?"; i am trying to invoke it with the following shell command in a .e file but it just doesnt work..can anybody help me out please.. #include "slick.sh" #import "slickc.e" _command void hello() { shell("C:/Users/anits/Desktop/x.pl") } byg7668 on "Test if file can be created" http://www.roth.net/forums/topic.php?id=358#post-708 Tue, 07 Jun 2011 12:54:50 +0000 byg7668 708@http://www.roth.net/forums/ Need to test if a file can be created before creating it. Sounds simple but isn't. Just checking if the parent folder is writable does not work. Right now I'm doing ... my $Path = "$Folder/$File"; my $CREATE_IT = 0; if ( -w "$Path" ) { print " File Writable: $Path\n"; } elsif( -e "$Path" ) { print " File Exists but not writable: $Path\n"; } elsif( -w "$Folder" ) { print " File does not exist but ...\n Folder Writable: $Folder\n"; $CREATE_IT = 1; # Try creating it below } elsif( -e "$Folder" ) { print " File does not exist but ...\n Folder Exists but not writable: $Folder\n"; $CREATE_IT = 1; # Try creating it anyway } else { print " File and Folder does not exist: $Folder\n"; } if ( $CREATE_IT ) { open (TSTPT, ">$Folder/$File") or print "+++ Open failed\n"; print TSTPT " Hello World"; close TSTPT or print "+++ Close failed\n"; ! -e "$Folder/$File" ? print "++ File Not Created\n" : print "++ File Created\n"; } When I run this on Win 7 and the file does not exist and Perl claims the parent folder is not writable, the file is successfully created anyway. Yet another folder Perl claims is writable fails when creating the file. Here are my test cases: File does not exist but ... Folder Exists but not writable: C:/users/userid/documents ++ File Created File does not exist but ... Folder Writable: C:/users/userid/my documents ++ File Not Created vickiee on "WIN32 file move problems..." http://www.roth.net/forums/topic.php?id=313#post-705 Sat, 07 May 2011 09:02:43 +0000 vickiee 705@http://www.roth.net/forums/ Maybe this can be due to any kind of virus or threat over your computer which stops you in that. i don't think that this can be happen due to any other thing cause i never faced that. good luck!! _________________ <a href="http://www.dailydeals4you.com/webroot-coupon">Webroot Coupons</a> saravana on "Perlscript to execute a command in windows" http://www.roth.net/forums/topic.php?id=356#post-703 Wed, 27 Apr 2011 10:42:26 +0000 saravana 703@http://www.roth.net/forums/ Hi, I am a newbie in perlscript, I have a requirement that I need to create a perl script such that, 1. Check for the directory path C:\program files\App name 2. If the directory exists it should execute the following command, " EventCreate \ID 1 \SO source \d 5" Any help on this is much appreciated. Thanks, Saravana Steve Silberman on "Unhandled param on x" http://www.roth.net/forums/topic.php?id=323#post-670 Thu, 24 Feb 2011 06:52:10 +0000 Steve Silberman 670@http://www.roth.net/forums/ Hi all, I get this message running a script: Unhandled param on 8 Unhandled param on 106 Unhandled param on 130 I checked that the script uses all the command line params and that each routine uses all the params it's passed. The numbers do not seem to be line numbers. Adding and removing lines doesn't change the numbers. Does anyone know what the numbers represent? Does anyone know what sort of error causes this message? I'm using Perl 5.10.0 Thanks, Steve StarkRavingCalm on "Please help: "the size limit for this request was exceeded"" http://www.roth.net/forums/topic.php?id=321#post-668 Fri, 11 Feb 2011 07:54:28 +0000 StarkRavingCalm 668@http://www.roth.net/forums/ I am running a script to get all users in our domain but keep hitting the search limit. Here is the error: Win32::OLE(0.1709) error 0x80072023: "The size limit for this request was exceeded" in METHOD/PROPERTYGET "MoveNext" I have read a can add a line similar to: #$objADOcmd->Properties->{"Page Size"} = 1000; But have had no luck so far. Any help is appreciated Thanks! Here's the code: <pre><code>## Taken from the following URL: # <a href="http://techtasks.com/code/viewbookcode/1580" rel="nofollow">http://techtasks.com/code/viewbookcode/1580</a> # This Perl code finds all user accounts in a domain. # --------------------------------------------------------------- # Provided as a web-only addition for the book: # "Active Directory Cookbook" by Robbie Allen # ISBN: 0-596-00466-4 # --------------------------------------------------------------- # ------ SCRIPT CONFIGURATION ------ my $strDomainDN = "DC=mydomain,DC=com"; # ------ END CONFIGURATION --------- use Win32::OLE; $Win32::OLE::Warn = 3; my $strBase = "<LDAP://" . $strDomainDN . ">;"; # To search the whole forest using the global catalog, uncomment the following line: # $strBase = "<GC://" . $strDomainDN . ">;"; my $strFilter = "(&(objectclass=user)(objectcategory=person));"; my $strAttrs = "name;"; my $strAttrs = "distinguishedName;"; my $strScope = "subtree"; my $objConn = Win32::OLE->CreateObject("ADODB.Connection"); $objConn->{Provider} = "ADsDSOObject"; $objConn->Open; my $objRS = $objConn->Execute($strBase . $strFilter . $strAttrs . $strScope); $objRS->MoveFirst; while (not $objRS->EOF) { print $objRS->Fields(0)->Value,"\n"; $objRS->MoveNext; }</code></pre> abcdef on "PERL code question" http://www.roth.net/forums/topic.php?id=320#post-667 Thu, 10 Feb 2011 03:37:39 +0000 abcdef 667@http://www.roth.net/forums/ Hi, I have below code : [code] my($abc) = "fred<hello>3hello"; $abc =~ /^[^\d]{2,4}<([^>]+)>\d?\1$/; if (defined($1)) { print "$1\n"; } else { print "not found\n"; } } [/code] What is the code doing ?? what function of the regular expression [code] $abc =~ /^[^\d]{2,4}<([^>]+)>\d?\1$/; [/code] Please advice what it do ?? knagap on "Win32::OLE->new()" http://www.roth.net/forums/topic.php?id=319#post-666 Mon, 24 Jan 2011 01:44:41 +0000 knagap 666@http://www.roth.net/forums/ Hello All, I'm very much new to PERL scripting. I'm the admin for an online tool which has some Perl scripts. And i have a problem executing one of the script. I'm just writing a problematic code in the script: my $ex = Win32::OLE->new('CamCad.application') or die "oops\n"; my @args = (25,"$basedir\\SYM.TXT,$basedir\\RTE.TXT,$basedir\\BRD.TXT,$basedir\\PAD.TXT",''); $ex->Invoke('Import',@args); Now when the first line is executed, a different version of CamCad application is getting called. My requirement is to call excatly "C:\MentorGraphics\SDD_HOME\CAMCADPRO.EXE /Professional", that is an EXE is called with a Switch (/Professional). Is there any way I can replace the code in line1 so that the next lines works fine. or How is new('Camcad.application') know which EXE/application it has to execute. If i know this may be i can directly point here to call "C:\MentorGraphics\SDD_HOME\CAMCADPRO.EXE /Professional". Thanks in Advance. chadstachowicz on "Please Help Win32::Daemon Windows 7" http://www.roth.net/forums/topic.php?id=315#post-662 Sun, 19 Dec 2010 00:42:11 +0000 chadstachowicz 662@http://www.roth.net/forums/ It seems like everything works on Windows 7 except for that even though my callback for TIMER are hitting, the service control manager never changes the state to RUNNING... this causes the service to think its not started even though it is? Am I missing something? Any help would be greatly appreciated!!! rickaltman on "Battling form spam" http://www.roth.net/forums/topic.php?id=314#post-661 Tue, 16 Nov 2010 22:30:06 +0000 rickaltman 661@http://www.roth.net/forums/ At our website, <a href="http://www.BetterPresenting.com" rel="nofollow">http://www.BetterPresenting.com</a>, we take book orders and host an annual conference. Our modest submission-form needs are met with your basic garden-variety form.cgi script (www.betterppt.com/form.zip). Meanwhile, we average about four to six form spam intrusions per day, so this is not an emergency, just an annoyance. In my hope to find a solution that uses our existing plumbing, I came up with the following scheme: 1. Spam bots indiscriminately fill out every field in a form and send it off. 2. If a field is not visible to a human, he or she would most likely not enter data into it. 3. I added a CSS rule into our external .css file called hiddenrow. 4. I applied this rule to the row of the table that holds the field in question. (I also included a simple "do not enter data in this field" comment next to the field, in case someone is using an old browser or for whatever reason the CSS rule is not working.) 5. It should be a simple matter to include a test at the beginning of the send_mail subroutine that checks for contents in the hidden field. If it finds content, the subroutine aborts; if it does not find content, it continues. I suspect that this would eliminate 95% of the form spam we now receive. The only problem is that I don't know how to code it! I tried the following: -------------------------- sub send_email { if ($Form{'hiddenfield'} eq '') { [continue with send_email subroutine] } } -------------------------- but it did not work properly. I would be most grateful if some of the expters here could a) test my theory and my logic; and b) if they are sound, help me figure out the proper syntax for this seemingly-simple task. Many thanks. Rick A. GeorgeDorn on "WIN32 file move problems..." http://www.roth.net/forums/topic.php?id=313#post-660 Fri, 22 Oct 2010 02:48:27 +0000 GeorgeDorn 660@http://www.roth.net/forums/ I cannot make Perl's "rename" nor "dirmove" work on WIN32. My move is within a partition on a single physical disk and the files are not in use. Rename fails entirely and dirmove copies the files but fails to remove the originals (except from a couple of small files which are moved correctly). The error I get from both is "Permission denied". I've tried to run my script ad administrator with the exact same results. I must admit I'm very very tired of windows. Can anyone enlighten me as to what is going on? toros on "Find strings" http://www.roth.net/forums/topic.php?id=312#post-659 Thu, 30 Sep 2010 22:37:35 +0000 toros 659@http://www.roth.net/forums/ I'm about to go crazy! i need help, i am codeing a small perl program but got a problem. This is sample text.txt file -- <pre><code> Beginning Perl is a different kind of Perl book. It's written particularly with the beginning programmer in mind, but it doesn't treat you like an idiot, and experienced programmers will not feel patronized. It covers a lot of ground, from the very basics of programming, right through to developing CGI applications for the web. More importantly, it emphasizes good Perl practice, and readable and maintainable code. </code></pre> This is sample perl script code <pre><code> open F, "<text.txt"; while (<F>){ print "Result : $1 " if($_ =~ m/particularly(.*)/); } </code></pre> runing and result Result : with the beginning programmer in mind, but there is was a problem. i am writing this result in dos: with the beginning programmer in mind, but it doesn't treat you like an idiot, and experienced programmers will not feel patronized. It covers a lot of ground, from the very basics of programming, right through to developing CGI applications for the web. More importantly, it emphasizes good Perl practice, and readable and maintainable code. How do I do this? angelos on "win32 spyware" http://www.roth.net/forums/topic.php?id=311#post-658 Mon, 20 Sep 2010 00:57:15 +0000 angelos 658@http://www.roth.net/forums/ A little remote screen viewer over a web browser for win32 consoles. Run the exe on a victim's aheem target PC, and from a remote machine do a <a href="http://tartgip:42000/monitor" rel="nofollow">http://tartgip:42000/monitor</a> Oh yes it is written in Perl, enjoy:http://www.unix.gr/FLOSSeavesDrop.exe and the source is at <a href="http://www.unix.gr/FLOSSeavesDrop.pl" rel="nofollow">http://www.unix.gr/FLOSSeavesDrop.pl</a> angelos on "win32 spyware" http://www.roth.net/forums/topic.php?id=310#post-657 Mon, 20 Sep 2010 00:55:19 +0000 angelos 657@http://www.roth.net/forums/ A little remote screen viewer over a web browser for win32 consoles. Run the exe on a victim's aheem target PC, and from a remote machine do a <a href="http://tartgip:42000/monitor" rel="nofollow">http://tartgip:42000/monitor</a> Oh yes it is written in Perl, enjoy:http://www.unix.gr/FLOSSeavesDrop.exe and the source is at <a href="http://www.unix.gr/FLOSSeavesDrop.pl" rel="nofollow">http://www.unix.gr/FLOSSeavesDrop.pl</a> Christian on "Win32::Daemon?" http://www.roth.net/forums/topic.php?id=59#post-656 Mon, 13 Sep 2010 00:32:45 +0000 Christian 656@http://www.roth.net/forums/ Sorry folks, but the installation of Win32::Daemon does't work at my machine. I have installed ActivePerl 5.10 Summary of my perl5 (revision 5 version 10 subversion 0) configuration: Platform: osname=MSWin32, osvers=5.00, archname=MSWin32-x86-multi-thread uname='' config_args='undef' hint=recommended, useposix=true, d_sigaction=undef useithreads=define, usemultiplicity=define useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef use64bitint=undef, use64bitall=undef, uselongdouble=undef usemymalloc=n, bincompat5005=undef Compiler: cc='cl', ccflags ='-nologo -GF -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOLE - DNO_STRICT -DHAVE_DES_FCRYPT -DUSE_SITECUSTOMIZE -DPRIVLIB_LAST_IN_INC -DPERL_IM PLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DPERL_MSVCRT_READFIX', optimize='-MD -Zi -DNDEBUG -O1', cppflags='-DWIN32' ccversion='12.00.8804', gccversion='', gccosandvers='' intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234 d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10 ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='__int64', lseeksi ze=8 alignbytes=8, prototype=define Linker and Libraries: ld='link', ldflags ='-nologo -nodefaultlib -debug -opt:ref,icf -libpath:"C: \Perl\lib\CORE" -machine:x86' libpth=\lib libs= oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32 .lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib uuid.lib ws2_ 32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib msvcrt.lib perllibs= oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib comd lg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib uuid.lib ws2_32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib msvcrt.lib libc=msvcrt.lib, so=dll, useshrplib=true, libperl=perl510.lib gnulibc_version='' Dynamic Linking: dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' ' cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -debug -opt:ref,icf - libpath:"C:\Perl\lib\CORE" -machine:x86' Characteristics of this binary (from libperl): Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT PERL_IMPLICIT_SYS PERL_MALLOC_WRAP PL_OP_SLAB_ALLOC USE_ITHREADS USE_LARGE_FILES USE_PERLIO USE_SITECUSTOMIZE Locally applied patches: ActivePerl Build 1004 [287188] 33741 avoids segfaults invoking S_raise_signal() (on Linux) 33763 Win32 process ids can have more than 16 bits 32809 Load 'loadable object' with non-default file extension 32728 64-bit fix for Time::Local Built under MSWin32 Compiled at Sep 3 2008 13:16:37 @INC: C:/Perl/site/lib C:/Perl/lib . In ppm is just the modules of ActiveState listed, while the repo of roth.net also is entered. Where can I get a working installation for Daemon? Need a little help, christian certteam on "parse 2 csv files into single text output" http://www.roth.net/forums/topic.php?id=309#post-655 Fri, 03 Sep 2010 21:07:24 +0000 certteam 655@http://www.roth.net/forums/ hai everybody first of all thank u for allowing me to join this forum. i m a newbie to perl script but had done some projects with windows batch.. my new project is to create a output of a pc system audit. i had got csv files from windows wmic script.. my task to combine these two csv files into single out put ... in text format.. using perl...... any suggestions inthis regard is greatly appreciated thanks in advance certteam daluu on "Perl script works but fails Windows binary compilation" http://www.roth.net/forums/topic.php?id=308#post-654 Mon, 30 Aug 2010 15:12:54 +0000 daluu 654@http://www.roth.net/forums/ I was wondering if anyone has input on the following weird issue I observe. I have a script (posted below) that makes use of Perl's block or multiline print. What's interesting is the script runs fine as a Perl script under Windows (didn't test under *nix), but the script doesn't compile into a binary very well. I would assume that if a script can run fine, then generally it can compile and run as a binary fine assuming all dependencies are met or compiled into the binary. I haven't had such issues with my other scripts compilations, generally via PAR. Using the Perl Archiving Toolkit (PAR) module with ActivePerl v5.8.7, the script compiles but fails to run, with this error: C:\WorkTemp>pp -o genVpLoadPALTemplate.exe genVpLoadPALTemplate.pl C:\WorkTemp>genVpLoadPALTemplate.exe Unrecognized character \xEF at script/genVpLoadPALTemplate.pl line 1. Using freeware/shareware version of Perl2Exe (though a newer version than what my Perl version is) to do the compilation, the tool fails to compile with these errors: C:\Perl2Exe>Perl2Exe c:\WorkTemp\genVpLoadPALTemplate.pl -o= c:\WorkTemp\genVpLo adPALTemplateb.exe Perl2Exe V8.82 Copyright (c) 1997-2007 IndigoSTAR Software This is an evaluation version of Perl2Exe, which may be used for 30 days. For more information see the attached pxman.htm file, or visit <a href="http://www.indigostar.com" rel="nofollow">http://www.indigostar.com</a> Converting 'c:/WorkTemp/genVpLoadPALTemplate.pl -o= c:\WorkTemp\genVpLoadPALTemp lateb.exe' to genVpLoadPALTemplate.exe Warning: Can't locate this.pm at c:\WorkTemp\genVpLoadPALTemplate.pl line 67 @INC = C:\Perl\lib, C:\Perl\site\lib, . Warning: Can't locate this.pm at c:\WorkTemp\genVpLoadPALTemplate.pl line 123 @INC = C:\Perl\lib, C:\Perl\site\lib, . Warning: Can't locate this.pm at c:\WorkTemp\genVpLoadPALTemplate.pl line 154 @INC = C:\Perl\lib, C:\Perl\site\lib, . Warning: Can't locate this.pm at c:\WorkTemp\genVpLoadPALTemplate.pl line 210 @INC = C:\Perl\lib, C:\Perl\site\lib, . Looking through the script, the failures are from lines in the script that are inside a multiline print block, particularly the lines that begin with "Use". print OUTPUTSCRIPT <<SCRIPTHEADER; ...omitted blocks... of time. Use this analysis in correlation with the Available Memory analysis, and total process (i.e. Process(*)) private bytes allocation analysis. If you suspect a ...omitted blocks... SCRIPTHEADER Here's the script, works but a bit messy... ################################################################################ # genVpLoadPALTemplate.pl # Written by: David Luu # Last updated: 03/18/10 # # Script to generate a PAL analysis report template for x # of VP clients # running on a single machine # # Revision History # 03/18/10 - v1.0 - initial release # ################################################################################ ### No input display ### if (@ARGV[0] eq "?" || @ARGV < 1 || @ARGV > 2) { print "\n"; print " Usage: genVpLoadPALTemplate.pl numClients [OutputScriptFile]\n"; print " Arg0 Arg1\n"; print "\n"; print " Notes: 1st ARG => number of VP clients running on single machine.\n"; print " 2nd ARG => Optional name & path of output script file.\n"; print " Default is VpLoadPALTemplate.xml\n\n"; print " Example: genVpLoadPALTemplate.pl 16\n"; print "\n"; exit; } ### Initialization ### # Save command line arguments/parameters to variables my $numVpClients = @ARGV[0]; my $CmdLine_OutputFile = ""; if(@ARGV > 1){ $CmdLine_OutputFile = @ARGV[1]; }else{ $CmdLine_OutputFile = "VpLoadPALTemplate.xml"; } # Open input & output files for parsing & processing open (OUTPUTSCRIPT, ">$CmdLine_OutputFile") || die ("FATAL ERROR: Could not create output script file: $^E"); print OUTPUTSCRIPT <<SCRIPTHEADER; <?xml version="1.0"?> <PAL NAME="ViewPoint Client Analysis for $numVpClients VP clients on same PC" DESCRIPTION="System performance analysis customized for analyzing $numVpClients VP clients running on same PC." CONTENTOWNERS="David Luu" FEEDBACKEMAILADDRESS="dluu\@vertical.com" VERSION="1.0"> <QUESTION DATATYPE="string" DEFAULTVALUE="1" QUESTIONVARNAME="NumberOfProcessors">How many processors (physical and virtual) does the server have?</QUESTION> <QUESTION DATATYPE="boolean" DEFAULTVALUE="False" QUESTIONVARNAME="ThreeGBSwitch">Was the /3GB switch being used on the server?</QUESTION> <QUESTION DATATYPE="boolean" DEFAULTVALUE="False" QUESTIONVARNAME="SixtyFourBit">Was the computer 64-bit?</QUESTION> <QUESTION DATATYPE="string" DEFAULTVALUE="1" QUESTIONVARNAME="TotalMemory">How much memory did the server have in gigabytes?</QUESTION> <QUESTION QUESTIONVARNAME="KernelDumpOnCDrive" DATATYPE="boolean" DEFAULTVALUE="True">Is the System set to create a MEMORY.DMP file on C: drive in the event of a server crash (blue screen). By default this is set to C: drive.</QUESTION> <ANALYSIS NAME="Memory Leak Detection for Vertical.Wave.ViewPoint" ENABLED="True" ANALYZECOUNTER="\\Process(Vertical.Wave.ViewPoint)\\Private Bytes" CATEGORY="Process"> <COUNTER NAME="\\Process(Vertical.Wave.ViewPoint)\\Private Bytes" MINVARNAME="MinPrivateBytes" AVGVARNAME="AvgPrivateBytes" MAXVARNAME="MaxPrivateBytes" TRENDVARNAME="TrendPrivateBytes" DATATYPE="Integer"> </COUNTER> <THRESHOLD NAME="Memory: an increasing trend of 10MB's per hour detected for Vertical.Wave.ViewPoint" CONDITION="Warning" COLOR="Yellow" PRIORITY="50"> <DESCRIPTION><![CDATA[If the private bytes size is greater than 100MB and the process is increasing at a rate greater than 10MB's per hour, then an aggressive memory leak is suspected. ]]></DESCRIPTION> <code><![CDATA[' If the private bytes is over 100MBs and if the trend shows a 10MB increase at each hour. If IsNull(AvgPrivateBytes) = False AND IsNull(TrendPrivateBytes) = False Then If AvgPrivateBytes > 100000000 AND TrendPrivateBytes > 10000000 Then IsTrendThresholdBroken = True End If End If]]></code> </THRESHOLD> <CHART CHARTTYPE="Line" CATEGORIES="AUTO" MAXCATEGORYLABELS="0" LEGEND="ON" VALUES="AUTO" GROUPSIZE="640x480" OTSFORMAT="MM/dd hh:mm" CHARTTITLE="\\Process(Vertical.Wave.ViewPoint)\\Private Bytes" DATASOURCE="\\Process(Vertical.Wave.ViewPoint)\\Private Bytes" DATATYPE="Integer"> </CHART> <DESCRIPTION><![CDATA[This analysis determines if the process is consuming a large chunk of the system's memory and if the process is increasing in memory consumption over time. A process consuming large portions of memory is okay as long as the process returns the memory back to the system. Look for increasing trends in the chart. An increasing trend over a long period of time could indicate a memory leak. Private Bytes is the current size, in bytes, of memory that this process has allocated that cannot be shared with other processes. This analysis checks for a 10MB’s per hour increasing trends. Use this analysis in correlation with the Available Memory analysis, and total process (i.e. Process(*)) private bytes allocation analysis. Also, keep in mind that newly started processes will initially appear as a memory leak when it is simply normal start up behavior. A memory leak is when a process continues to consume memory and not releasing memory over a long period of time. Use this analysis in correlation with the Available Memory analysis, and total process (i.e. Process(*)) private bytes allocation analysis. If you suspect a memory leak condition, then install and use the Debug Diag tool. For more information on the Debug Diag Tool, see the references section. References: Debug Diagnostic Tool v1.1 <a href="http://www.microsoft.com/downloads/details.aspx?FamilyID=28bd5941-c458-46f1-b24d-f60151d875a3&displaylang=en&gt;&lt;/DESCRIPTION&gt" rel="nofollow">http://www.microsoft.com/downloads/details.aspx?FamilyID=28bd5941-c458-46f1-b24d-f60151d875a3&displaylang=en&gt;&lt;/DESCRIPTION&gt</a>; </ANALYSIS> <ANALYSIS NAME="Handle Leak Detection for Vertical.Wave.ViewPoint" ENABLED="True" ANALYZECOUNTER="\\Process(Vertical.Wave.ViewPoint)\\Handle Count" CATEGORY="Process"> <COUNTER NAME="\\Process(Vertical.Wave.ViewPoint)\\Handle Count" MINVARNAME="MinHandleCount" AVGVARNAME="AvgHandleCount" MAXVARNAME="MaxHandleCount" TRENDVARNAME="TrendHandleCount" DATATYPE="Integer"> </COUNTER> <THRESHOLD NAME="Handle Leak Suspected - more than 2000 handles and a trend of more than 100 handles per hour" CONDITION="Warning" COLOR="Yellow" PRIORITY="50"> <DESCRIPTION><![CDATA[Checks for any process with a handle count greater than 2000 and if the trend is greater than 100 handles per hour. If so, check the chart to determine if the counter is on an increasing trend potentially indicating a handle leak.]]></DESCRIPTION> <code><![CDATA[If IsNull(AvgHandleCount) = False AND IsNull(TrendHandleCount) = False Then If AvgHandleCount > 2000 AND TrendHandleCount > 100 Then IsTrendThresholdBroken = True End If End If]]></code> </THRESHOLD> <CHART CHARTTYPE="Line" CATEGORIES="AUTO" MAXCATEGORYLABELS="0" LEGEND="ON" VALUES="AUTO" GROUPSIZE="640x480" OTSFORMAT="MM/dd hh:mm" CHARTTITLE="\\Process(Vertical.Wave.ViewPoint)\\Handle Count" DATASOURCE="\\Process(Vertical.Wave.ViewPoint)\\Handle Count" DATATYPE="Integer"> </CHART> <DESCRIPTION><![CDATA[This analysis checks the process to determine how many handles it has open and determines if a handle leak is suspected. A process with a large number of handles and/or an aggresive upward trend could indicate a handle leak which typically results in a memory leak. The total number of handles currently open by this process. This number is equal to the sum of the handles currently open by each thread in this process.]]></DESCRIPTION> </ANALYSIS> <ANALYSIS NAME="Vertical.Wave.ViewPoint Processor Utilization" ENABLED="True" ANALYZECOUNTER="\\Process(Vertical.Wave.ViewPoint)\\% Processor Time" CATEGORY="Process"> <COUNTER NAME="\\Process(Vertical.Wave.ViewPoint)\\% Processor Time" MINVARNAME="MinProcess_PercentProcessorTime" AVGVARNAME="AvgProcess_PercentProcessorTime" MAXVARNAME="MaxProcess_PercentProcessorTime" TRENDVARNAME="TrendProcess_PercentProcessorTime" DATATYPE="integer" /> <CHART CHARTTITLE="\\Process(Vertical.Wave.ViewPoint)\\% Processor Time" OTSFORMAT="MM/dd hh:mm" GROUPSIZE="640x480" CATEGORIES="AUTO" DATATYPE="integer" LEGEND="ON" MAXCATEGORYLABELS="0" CHARTTYPE="Line" VALUES="AUTO" DATASOURCE="\\Process(Vertical.Wave.ViewPoint)\\% Processor Time" /> <THRESHOLD NAME="Significant Processor Use Suspected for Vertical.Wave.ViewPoint - more than 10% CPU utilization" CONDITION="Warning" COLOR="Yellow" PRIORITY="50"> <DESCRIPTION><![CDATA[This analysis checks if the process is consuming a significant amount of processor time, as specified by the current average/maximum threshold of 10% CPU utilization.]]></DESCRIPTION> <code><![CDATA[ If AvgProcess_PercentProcessorTime > 7Then IsTrendThresholdBroken = True IsAvgThresholdBroken = True End If If AvgProcess_PercentProcessorTime > 10 Or MaxProcess_PercentProcessorTime > 10 Then IsMaxThresholdBroken = True End If]]></code> </THRESHOLD> <DESCRIPTION><![CDATA[% Processor Time is the percentage of elapsed time that all of process threads used the processor to execution instructions. An instruction is the basic unit of execution in a computer, a thread is the object that executes instructions, and a process is the object created when a program is run. Code executed to handle some hardware interrupts and trap conditions are included in this count.]]></DESCRIPTION> </ANALYSIS> <ANALYSIS NAME=".NET CLR Memory # Bytes in all Heaps for Vertical.Wave.ViewPoint" ENABLED="True" ANALYZECOUNTER="\\.NET CLR Memory(Vertical.Wave.ViewPoint)\\# Bytes in all Heaps" CATEGORY="Process"> <COUNTER NAME="\\.NET CLR Memory(Vertical.Wave.ViewPoint)\\# Bytes in all Heaps" MINVARNAME="MinNETCLRMemory_#BytesinallHeaps" AVGVARNAME="AvgNETCLRMemory_#BytesinallHeaps" MAXVARNAME="MaxNETCLRMemory_#BytesinallHeaps" TRENDVARNAME="TrendNETCLRMemory_#BytesinallHeaps" DATATYPE="integer" /> <CHART CHARTTITLE="\\.NET CLR Memory(Vertical.Wave.ViewPoint)\\# Bytes in all Heaps" OTSFORMAT="MM/dd hh:mm" GROUPSIZE="640x480" CATEGORIES="AUTO" DATATYPE="integer" LEGEND="ON" MAXCATEGORYLABELS="0" CHARTTYPE="Line" VALUES="AUTO" DATASOURCE="\\.NET CLR Memory(Vertical.Wave.ViewPoint)\\# Bytes in all Heaps" /> <THRESHOLD NAME="Significant .NET Heap usage for Vertical.Wave.ViewPoint, possible memory leak." CONDITION="Warning" COLOR="#FFFF00" PRIORITY="50"> <DESCRIPTION><![CDATA[This analysis checks if the process's .NET heap has exceeded 32 MBytes and if the trend shows a rate increase of 10 MBytes per hour, in which case, a memory leak may be occuring, or at least the process is consuming a significant amount of memory resources on the .NET side.]]></DESCRIPTION> <code><![CDATA[' If the heap usage is over 32MBs and if the trend shows a 10MB increase at each hour. If IsNull(AvgNETCLRMemory_#BytesinallHeaps) = False AND IsNull(TrendNETCLRMemory_#BytesinallHeaps) = False Then If AvgNETCLRMemory_#BytesinallHeaps > 32000000 AND TrendNETCLRMemory_#BytesinallHeaps > pMRate000000 Then IsTrendThresholdBroken = True End If End If]]></code> </THRESHOLD> <DESCRIPTION><![CDATA[This counter is the sum of four other counters; Gen 0 Heap Size; Gen 1 Heap Size; Gen 2 Heap Size and the Large Object Heap Size. This counter indicates the current memory allocated in bytes on the GC Heaps. This analysis checks if the process's .NET heap has exceeded 32 MBytes and if the trend shows a rate increase of 10 MBytes per hour, in which case, a memory leak may be occuring, or at least the process is consuming a significant amount of memory resources on the .NET side. Also, keep in mind that newly started processes will initially appear as a memory leak when it is simply normal start up behavior. A memory leak is when a process continues to consume memory and not releasing memory over a long period of time. Use this analysis in correlation with the Available Memory analysis, and total process (i.e. Process(*)) private bytes allocation analysis. If you suspect a memory leak condition, then install and use the Debug Diag tool. For more information on the Debug Diag Tool, see the references section. References: Debug Diagnostic Tool v1.1 <a href="http://www.microsoft.com/downloads/details.aspx?FamilyID=28bd5941-c458-46f1-b24d-f60151d875a3&displaylang=en&gt;&lt;/DESCRIPTION&gt" rel="nofollow">http://www.microsoft.com/downloads/details.aspx?FamilyID=28bd5941-c458-46f1-b24d-f60151d875a3&displaylang=en&gt;&lt;/DESCRIPTION&gt</a>; </ANALYSIS> SCRIPTHEADER ### End Step 1 ### ### Functions ################################################################## for($i=1;$i<=$numVpClients-1;$i++){ print OUTPUTSCRIPT <<CLIENTBLOCK; <ANALYSIS NAME="Memory Leak Detection for Vertical.Wave.ViewPoint#$i" ENABLED="True" ANALYZECOUNTER="\\Process(Vertical.Wave.ViewPoint#$i)\\Private Bytes" CATEGORY="Process"> <COUNTER NAME="\\Process(Vertical.Wave.ViewPoint#$i)\\Private Bytes" MINVARNAME="MinPrivateBytes" AVGVARNAME="AvgPrivateBytes" MAXVARNAME="MaxPrivateBytes" TRENDVARNAME="TrendPrivateBytes" DATATYPE="Integer"> </COUNTER> <THRESHOLD NAME="Memory: an increasing trend of 10MB's per hour detected for Vertical.Wave.ViewPoint#$i" CONDITION="Warning" COLOR="Yellow" PRIORITY="50"> <DESCRIPTION><![CDATA[If the private bytes size is greater than 100MB and the process is increasing at a rate greater than 10MB's per hour, then an aggressive memory leak is suspected. ]]></DESCRIPTION> <code><![CDATA[' If the private bytes is over 100MBs and if the trend shows a 10MB increase at each hour. If IsNull(AvgPrivateBytes) = False AND IsNull(TrendPrivateBytes) = False Then If AvgPrivateBytes > 100000000 AND TrendPrivateBytes > 10000000 Then IsTrendThresholdBroken = True End If End If]]></code> </THRESHOLD> <CHART CHARTTYPE="Line" CATEGORIES="AUTO" MAXCATEGORYLABELS="0" LEGEND="ON" VALUES="AUTO" GROUPSIZE="640x480" OTSFORMAT="MM/dd hh:mm" CHARTTITLE="\\Process(Vertical.Wave.ViewPoint#$i)\\Private Bytes" DATASOURCE="\\Process(Vertical.Wave.ViewPoint#$i)\\Private Bytes" DATATYPE="Integer"> </CHART> <DESCRIPTION><![CDATA[This analysis determines if the process is consuming a large chunk of the system's memory and if the process is increasing in memory consumption over time. A process consuming large portions of memory is okay as long as the process returns the memory back to the system. Look for increasing trends in the chart. An increasing trend over a long period of time could indicate a memory leak. Private Bytes is the current size, in bytes, of memory that this process has allocated that cannot be shared with other processes. This analysis checks for a 10MB’s per hour increasing trends. Use this analysis in correlation with the Available Memory analysis, and total process (i.e. Process(*)) private bytes allocation analysis. Also, keep in mind that newly started processes will initially appear as a memory leak when it is simply normal start up behavior. A memory leak is when a process continues to consume memory and not releasing memory over a long period of time. Use this analysis in correlation with the Available Memory analysis, and total process (i.e. Process(*)) private bytes allocation analysis. If you suspect a memory leak condition, then install and use the Debug Diag tool. For more information on the Debug Diag Tool, see the references section. References: Debug Diagnostic Tool v1.1 <a href="http://www.microsoft.com/downloads/details.aspx?FamilyID=28bd5941-c458-46f1-b24d-f60151d875a3&displaylang=en&gt;&lt;/DESCRIPTION&gt" rel="nofollow">http://www.microsoft.com/downloads/details.aspx?FamilyID=28bd5941-c458-46f1-b24d-f60151d875a3&displaylang=en&gt;&lt;/DESCRIPTION&gt</a>; </ANALYSIS> <ANALYSIS NAME="Handle Leak Detection for Vertical.Wave.ViewPoint#$i" ENABLED="True" ANALYZECOUNTER="\\Process(Vertical.Wave.ViewPoint#$i)\\Handle Count" CATEGORY="Process"> <COUNTER NAME="\\Process(Vertical.Wave.ViewPoint#$i)\\Handle Count" MINVARNAME="MinHandleCount" AVGVARNAME="AvgHandleCount" MAXVARNAME="MaxHandleCount" TRENDVARNAME="TrendHandleCount" DATATYPE="Integer"> </COUNTER> <THRESHOLD NAME="Handle Leak Suspected - more than 2000 handles and a trend of more than 100 handles per hour" CONDITION="Warning" COLOR="Yellow" PRIORITY="50"> <DESCRIPTION><![CDATA[Checks for any process with a handle count greater than 2000 and if the trend is greater than 100 handles per hour. If so, check the chart to determine if the counter is on an increasing trend potentially indicating a handle leak.]]></DESCRIPTION> <code><![CDATA[If IsNull(AvgHandleCount) = False AND IsNull(TrendHandleCount) = False Then If AvgHandleCount > 2000 AND TrendHandleCount > 100 Then IsTrendThresholdBroken = True End If End If]]></code> </THRESHOLD> <CHART CHARTTYPE="Line" CATEGORIES="AUTO" MAXCATEGORYLABELS="0" LEGEND="ON" VALUES="AUTO" GROUPSIZE="640x480" OTSFORMAT="MM/dd hh:mm" CHARTTITLE="\\Process(Vertical.Wave.ViewPoint#$i)\\Handle Count" DATASOURCE="\\Process(Vertical.Wave.ViewPoint#$i)\\Handle Count" DATATYPE="Integer"> </CHART> <DESCRIPTION><![CDATA[This analysis checks the process to determine how many handles it has open and determines if a handle leak is suspected. A process with a large number of handles and/or an aggresive upward trend could indicate a handle leak which typically results in a memory leak. The total number of handles currently open by this process. This number is equal to the sum of the handles currently open by each thread in this process.]]></DESCRIPTION> </ANALYSIS> <ANALYSIS NAME="Vertical.Wave.ViewPoint#$i Processor Utilization" ENABLED="True" ANALYZECOUNTER="\\Process(Vertical.Wave.ViewPoint#$i)\\% Processor Time" CATEGORY="Process"> <COUNTER NAME="\\Process(Vertical.Wave.ViewPoint#$i)\\% Processor Time" MINVARNAME="MinProcess_PercentProcessorTime" AVGVARNAME="AvgProcess_PercentProcessorTime" MAXVARNAME="MaxProcess_PercentProcessorTime" TRENDVARNAME="TrendProcess_PercentProcessorTime" DATATYPE="integer" /> <CHART CHARTTITLE="\\Process(Vertical.Wave.ViewPoint#$i)\\% Processor Time" OTSFORMAT="MM/dd hh:mm" GROUPSIZE="640x480" CATEGORIES="AUTO" DATATYPE="integer" LEGEND="ON" MAXCATEGORYLABELS="0" CHARTTYPE="Line" VALUES="AUTO" DATASOURCE="\\Process(Vertical.Wave.ViewPoint#$i)\\% Processor Time" /> <THRESHOLD NAME="Significant Processor Use Suspected for Vertical.Wave.ViewPoint#$i - more than 10% CPU utilization" CONDITION="Warning" COLOR="Yellow" PRIORITY="50"> <DESCRIPTION><![CDATA[This analysis checks if the process is consuming a significant amount of processor time, as specified by the current average/maximum threshold of 10% CPU utilization.]]></DESCRIPTION> <code><![CDATA[ If AvgProcess_PercentProcessorTime > 7Then IsTrendThresholdBroken = True IsAvgThresholdBroken = True End If If AvgProcess_PercentProcessorTime > 10 Or MaxProcess_PercentProcessorTime > 10 Then IsMaxThresholdBroken = True End If]]></code> </THRESHOLD> <DESCRIPTION><![CDATA[% Processor Time is the percentage of elapsed time that all of process threads used the processor to execution instructions. An instruction is the basic unit of execution in a computer, a thread is the object that executes instructions, and a process is the object created when a program is run. Code executed to handle some hardware interrupts and trap conditions are included in this count.]]></DESCRIPTION> </ANALYSIS> <ANALYSIS NAME=".NET CLR Memory # Bytes in all Heaps for Vertical.Wave.ViewPoint#$i" ENABLED="True" ANALYZECOUNTER="\\.NET CLR Memory(Vertical.Wave.ViewPoint#$i)\\# Bytes in all Heaps" CATEGORY="Process"> <COUNTER NAME="\\.NET CLR Memory(Vertical.Wave.ViewPoint#$i)\\# Bytes in all Heaps" MINVARNAME="MinNETCLRMemory_#BytesinallHeaps" AVGVARNAME="AvgNETCLRMemory_#BytesinallHeaps" MAXVARNAME="MaxNETCLRMemory_#BytesinallHeaps" TRENDVARNAME="TrendNETCLRMemory_#BytesinallHeaps" DATATYPE="integer" /> <CHART CHARTTITLE="\\.NET CLR Memory(Vertical.Wave.ViewPoint#$i)\\# Bytes in all Heaps" OTSFORMAT="MM/dd hh:mm" GROUPSIZE="640x480" CATEGORIES="AUTO" DATATYPE="integer" LEGEND="ON" MAXCATEGORYLABELS="0" CHARTTYPE="Line" VALUES="AUTO" DATASOURCE="\\.NET CLR Memory(Vertical.Wave.ViewPoint#$i)\\# Bytes in all Heaps" /> <THRESHOLD NAME="Significant .NET Heap usage for Vertical.Wave.ViewPoint#$i, possible memory leak." CONDITION="Warning" COLOR="#FFFF00" PRIORITY="50"> <DESCRIPTION><![CDATA[This analysis checks if the process's .NET heap has exceeded 32 MBytes and if the trend shows a rate increase of 10 MBytes per hour, in which case, a memory leak may be occuring, or at least the process is consuming a significant amount of memory resources on the .NET side.]]></DESCRIPTION> <code><![CDATA[' If the heap usage is over 32MBs and if the trend shows a 10MB increase at each hour. If IsNull(AvgNETCLRMemory_#BytesinallHeaps) = False AND IsNull(TrendNETCLRMemory_#BytesinallHeaps) = False Then If AvgNETCLRMemory_#BytesinallHeaps > 32000000 AND TrendNETCLRMemory_#BytesinallHeaps > pMRate000000 Then IsTrendThresholdBroken = True End If End If]]></code> </THRESHOLD> <DESCRIPTION><![CDATA[This counter is the sum of four other counters; Gen 0 Heap Size; Gen 1 Heap Size; Gen 2 Heap Size and the Large Object Heap Size. This counter indicates the current memory allocated in bytes on the GC Heaps. This analysis checks if the process's .NET heap has exceeded 32 MBytes and if the trend shows a rate increase of 10 MBytes per hour, in which case, a memory leak may be occuring, or at least the process is consuming a significant amount of memory resources on the .NET side. Also, keep in mind that newly started processes will initially appear as a memory leak when it is simply normal start up behavior. A memory leak is when a process continues to consume memory and not releasing memory over a long period of time. Use this analysis in correlation with the Available Memory analysis, and total process (i.e. Process(*)) private bytes allocation analysis. If you suspect a memory leak condition, then install and use the Debug Diag tool. For more information on the Debug Diag Tool, see the references section. References: Debug Diagnostic Tool v1.1 <a href="http://www.microsoft.com/downloads/details.aspx?FamilyID=28bd5941-c458-46f1-b24d-f60151d875a3&displaylang=en&gt;&lt;/DESCRIPTION&gt" rel="nofollow">http://www.microsoft.com/downloads/details.aspx?FamilyID=28bd5941-c458-46f1-b24d-f60151d875a3&displaylang=en&gt;&lt;/DESCRIPTION&gt</a>; </ANALYSIS> CLIENTBLOCK } print OUTPUTSCRIPT "</PAL>\n"; close (OUTPUTSCRIPT); print "\nPAL template generated.\n"; soulraven on "email2SMS Kannel &gmail" http://www.roth.net/forums/topic.php?id=307#post-653 Thu, 26 Aug 2010 21:09:01 +0000 soulraven 653@http://www.roth.net/forums/ hy, i save setup a Kannel server for sending SMS, and now i vant to send sms via e-mail. i found this script but is for pop3 with out SSL. o have adapt the script for SSL, but i have a few problems, - i can't read all the e-mail at once, - i can't go to the next step to sort end complete the URL for Kannel. [Code] #!/bin/perl use Mail::POP3Client; use IO::Socket::SSL; use CGI qw(:standard); $cgi = new CGI; use LWP::UserAgent; $username = 'email@domanin.ro'; $password = 'password'; $mailhost = 'pop.gmail.com'; #examplepop.gmail.com $port = '995'; #995 print $cgi->header(); $pop = Mail::POP3Client->new(USER => $username, PASSWORD => $password, HOST => $mailhost, PORT => $port, USESSL => 'true', DEBUG => 0,) or die("ERROR: Unable to connect to mail server.\n"); if (($pop->Count()) < 1) { print "No messages...\n"; exit; } my $Messages = $pop->Count(); my ($MsgDel,$MsgNo); my ($MsgId, $MsgDate, $MsgFrom, $MsgTo, $MsgSub, $Delivred_To, $Content); my ($MsgAttach, $MsgSize, $MsgHeader, $MsgHeadFlg, $MsgBody, $MIME_Version, $Received_Time, $Origin_IP); foreach $MsgNo ( $Messages ) { my $MsgContent = $pop->HeadAndBody($MsgNo); my $count = 0; $MsgHeadFlg = 0; $MsgBody = ""; (my $Mesaj_NR, my $MsgSize) = split('\s+',$pop->List($MsgNo)); #print $MsgSize . "Marime mesaj \n"; #print $Mesaj_NR . "Nr. Mesaj \n"; #print $MsgContent . "\n"; # Process message data while() { # Exit if last line of mail if ($count >= scalar(@$MsgContent)) { #print $MsgContent . "count"; last; } # Check if end of mail header if (@$MsgContent[$count] =~ /^\n/) { $MsgHeadFlg = 1; } # Proceed if message header not processed if (not $MsgHeadFlg) { # Split the line my @LineContent = split /: /, @$MsgContent[$count]; # Check Header Info SWITCH: { #Get MIME Version $LineContent[0] =~ /MIME-Version/i && do { $MIME_Version = $LineContent[1]; last SWITCH; }; #Get Time Of recived $LineContent[0] =~ /Received/i && do { $Received_Time = $LineContent[1]; last SWITCH; }; #Get IP of sender $LineContent[0] =~ /X-Originating-IP/i && do { $Origin_IP = $LineContent[1]; last SWITCH; }; #Get Date $LineContent[0] =~ /Date/i && do { $MsgDate = $LineContent[1]; last SWITCH; }; #Get Delivred To $LineContent[0] =~ /Delivered-To/i && do { $Delivred_To = $LineContent[1]; last SWITCH; }; # Get message id $LineContent[0] =~ /Message-ID/i && do { $MsgId = $LineContent[1]; last SWITCH; }; # Get message subject $LineContent[0] =~ /Subject/i && do { $MsgSub = $LineContent[1]; last SWITCH; }; # Get message from $LineContent[0] =~ /From/i && do { $MsgFrom = $LineContent[1]; last SWITCH; }; # Get message to $LineContent[0] =~ /To/i && do { $MsgTo = $LineContent[1]; last SWITCH; }; # Get Content type $LineContent[0] =~ /Content-Type/i && do { $Content = $LineContent[1]; last SWITCH; }; } } else { # Process message body $MsgBody .= @$MsgContent[$count]; } $count++; } my $ua = new LWP::UserAgent; $ua->timeout(120); #my $result = <code>ps -e | grep -v grep|grep smsbox |awk \'{print \$1}\'</code>; my $result = true; if ( $result ne "" ) { print $MsgSub . "subiect mesaj \n"; print $MsgBody . "continut mesaj \n"; my $url="http://kennel.domain.com:13013/cgi-bin/sendsms?username=kennel_user&password=kenel_passwd&to=$MsgSub&text=$MsgBody"; my $request = new HTTP::Request('GET', $url); my $response = $ua->request($request); my $content = $response->content(); $MsgDel = $pop->Delete($MsgNo) } } # Disconnect from pop3 server $pop->close(); exit; [/Code] please help with this script, sorry for my bad english rcap on "Win32-Daemin updated ppd for perl 5.10 ?" http://www.roth.net/forums/topic.php?id=294#post-652 Thu, 12 Aug 2010 04:07:40 +0000 rcap 652@http://www.roth.net/forums/ Hi, I have just obtained a copy of the W32::Daemon package for Activepearl 5.10 and tried to install manually... Not such a success... Perl Package manager just doesnt pick up the package. So... I tried to run an install using the PPD using 'ppm install "path to ppd".... again not a success error was 'downloading '' object not found. So i edited the ppd as it was pointing to the roth site and directed it towards my local download of the zipped package. error now is 'ppm install failed: Can't locate object method "host" via package "URI::_foreign" Any assistance would be greatly accepted, in resolving this issue. vinod on "XML Automation" http://www.roth.net/forums/topic.php?id=306#post-649 Tue, 06 Jul 2010 02:27:15 +0000 vinod 649@http://www.roth.net/forums/ Hi All, I am a newbie for perl with some knowledge on C language. I have a task wherein I need to compare two xml files having different formats based on certain rules. I need some guidance on how to move forward to accomplish the task. tej.87g on "Replace some numbers with En dash or em dash" http://www.roth.net/forums/topic.php?id=305#post-648 Wed, 30 Jun 2010 18:57:46 +0000 tej.87g 648@http://www.roth.net/forums/ HI.. I have a file and i want to replace certain numbers or tags with en dash or em dash. Can anybody please tell me how can i insert such symbols using perl. Thank you so much.. tej.87g on "Replace some numbers with En dash or em dash" http://www.roth.net/forums/topic.php?id=304#post-647 Wed, 30 Jun 2010 18:57:10 +0000 tej.87g 647@http://www.roth.net/forums/ HI.. I have a file and i want to replace certain numbers or tags with en dash or em dash. Can anybody please tell me how can i insert such symbols using perl. Thank you so much..