Help! I want a perl script for test
I am not familar with perl and XMLDB.
The database which managed by other team report the following errors.
They said the error was caused by the perl scipt which contents a statment using XML object.
So I want a perl script for test.
Please help me.
oracle 9.2.0.3.0
Alert.log
ORA-00600: internal error code, arguments: [qmxarElemAt2], [0], [], [], [], [], [], []
listener.log
connect_data=(sid=###)(cid=(PROGRAM=perl@###)(USER=oracle)))*(ADDRESS=(PROTOcol=tcp)(host=)
establish###
Edited by: 964446 on Oct 10, 2012 6:10 AM
I can't check on iTunes until tomorrow morning, but in the meantime I can tell you what's wrong with your original feed. The top two lines read
<?xml version="1.0"?>
<rss version="2.0">
They should read
<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:itunes="http://www.itunes.com/dtds/podcast-1.0.dtd" version="2.0">
Without the itunes URL in the second line iTunes cannot parse the required tags to show your episodes. I would guess that the line was there originally but got removed, after which iTunes would not recognize new episodes. Put it back and reload the feed, and it should work if iTunes hasn't terminated your podcast in the meantime.
But to answer your original question: assuming you have access to both feeds; copy everything in the original feed from the first <item> to the last </item> near the bottom.
In the new feed, find the last </item> tag at the bottom (just above the </channel> and </rss> tags), start a new line just after it and insert the material you posted from the original feed (though there are an awful lot of episodes there, and though it's technically not a problem you might want to consider whether you really need all of them in the feed).
If you don't have direct access to the feeds but are using one of the podcast creation services which don't allow this, you will have to follow whatever method they provide for adding the episodes, possibly one at a time.
Similar Messages
-
Need Help in creating Unix Shell Script for database
Would be appreciable if some one can help in creating unix shell script for the Oracle DB 10,11g.
Here is the condition which i want to implement.
1. Create shell script to create the database with 10GB TB SPACE and 3 groups of redo log file(Each 300MB).
2. Increase size of redolog file.
3. Load sample schema.
4. dump the schema.
5. Create empty db (Script should check if db already exists and drop it in this case).
6. Create backup using rman.
7. restore backup which you have backed up.This isn't much of a "code-sharing" site but a "knowledge-sharing" site. Code posted me may be from a questioner who has a problem / issue / error with his code. But we don't generally see people writing entire scripts as responses to such questions as yours. There may be other sites where you can get coding done "for free".
What you could do is to write some of the code and test it and, if and when it fails / errors, post it for members to make suggestions.
But the expectation here is for you to write your own code.
Hemant K Chitale -
Creating a Perl script for SAP sytem profile parameter
Hi,
I need to create a perl script for all th eprofile parameter to check as a security directive ,so that whenever the system is started it checks for this profile parameter.
As per my company sap directive ,these are the profile parameter i need to set.
Can anyone let me know how to write the scripts.
login/min_password_lng Minimum password length for user password 320 Min.
8
login/password_expiration_t
ime
Number of days between forced password change. 0 Max.
35
login/fails_to_session_end Number of invalid logon attempts allowed before the
SAP GUI is disconnected.
3 Max.
3
login/fails_to_user_lock Number of invalid logon attempts before the user id is
automatically locked by the system.
12 Max.
6
rdisp/gui_auto_logout Time, in seconds, that SAPGUI is automatically disconnected
because of in-activity.
0 60-
7200
21
auth/test_mode Jump into report RSUSR400 at every authority check N N22
auth/system_access_check_
off
Switch off automatic authority check for special ABAP
commands
0 0
auth/no_check_in_some_ca
ses
Special authorization checks turned off by customer.
Enabling of Profile Generator
N/Y23 Y
login/ext_security Security access controlled by external software. N N24
auth/rfc_authority_check Permission for remote function calls from within ABAP
programs
0 1
login/failed_user_auto_unlo
ck
Enable system function for automatic unlock of users
at midnight. (0 = locks remain)
0 0
login/
no_automatic_user_sapstar
(as of 3.1h)
login/no_automatic_user_sa
p* (prior to 3.1h)
Disable ability to logon as SAP* with PASS as password
when SAP* deleted.
0 125,26
auth/tcodes_not_checked TCode checking for SU53 & SU56 analysis disabled (empty
"SU5
3
Regards,
Chetan.Here's a simple perl script that should help you get what it is you're looking for - you can add all the parameters you want to search for, I just took a few of them:
#!/usr/bin/perl -w
use strict;
use sapnwrfc;
SAPNW::Rfc->load_config;
my $rfc = SAPNW::Rfc->rfc_connect;
my @parms = ( "login/min_password_lng",
"login/password_expiration_time",
"login/fails_to_session_end",
"login/fails_to_user_lock" );
for my $x (0 .. $#parms) {
my $rcc = $rfc->function_lookup("SXPG_PROFILE_PARAMETER_GET");
my $slr = $rcc->create_function_call;
$slr->PARAMETER_NAME($parms[$x]);
$slr->invoke;
print "Value for $parms[$x] is: ".$slr->PARAMETER_VALUE."\n";
$rfc->disconnect();
And running it, you'll get:
[dhull@397 scripts]$ ./read-profile.pl
Value for login/min_password_lng is: 7
Value for login/password_expiration_time is: 90
Value for login/fails_to_session_end is: 3
Value for login/fails_to_user_lock is: 6
[dhull@397 scripts]$
If you need to get your perl environment read to make RFC calls to your SAP system, check my series of blogs on how to do so here:
https://www.sdn.sap.com/irj/scn/weblogs?blog=/pub/u/251752730
Cheers,
David. -
Perl script for xchat doesnt work
I like to start a perl script for xchat.
Thats my problem:
Can't locate Socket.pm in @INC (@INC contains: /usr/lib/perl5/5.8.3/i686-linux /usr/lib/perl5/5.8.3 /usr/lib/perl5/site_perl/5.8.3/i686-linux /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl .) at (eval 3) line 31.
line 31 is "use Socket;"
I tried also use IO::Socket; but that changes nothing.
Anyone knows whats the problem or wich perl-modul isnt on my system?
btw: sry for the bad english..bigh wrote:
Thats my problem:
line 31 is "use Socket;"
I tried also use IO::Socket; but that changes nothing.
Anyone knows whats the problem or wich perl-modul isnt on my system?
Hello bigh,
Socket and IO::Socket are standard perl modules:
me@here:~/tmp]$ tar tvzf perl-5.8.4.tar.gz | grep Socket.pm
-r--r--r-- nwc10/nwc10 11882 2003-08-13 21:55:04 perl-5.8.4/ext/IO/lib/IO/Socket.pm
-r--r--r-- nwc10/nwc10 9801 2004-04-01 17:58:43 perl-5.8.4/ext/Socket/Socket.pm
In Arch they should belong to the perl package (i don't have an Arch box at the moment to confirm it more explicitely). So it is strange that neither Socket.pm nor IO/Socket.pm can be found in your @INC on your host.
Hope it helps anyway -
does anyone have a asp or perl script for use on an iis server they can share? I am not worried about pulling creds from any place at this point, just a hard coded user....admin for now thanks.
Guys,
I am not the ASP expert ... but isn't it true that in the .NET common runtime that VB.Script and C# are very similar? ... barring language semantics, of course. If so, couldn't you take C# code and turn it into VB.Script? ... or even use C# code outright within ASP?
The reason I ask is because this thread:
http://discussions.apple.com/thread.jspa?messageID=2710342�
contains a C# example of a transfer CGI suitable for an IIS server ... or, at the very least, it shows an approach to creating one.
MacBook Pro Mac OS X (10.4.8) I lied. I'm running Leopard -
To write a perl script for running a java program from cgi of web server
I have to write a perl script to call a java program(.exe).I want to run this file through the cgi of the web server.
java myprogram
can anyone help me to write a perl script??It depends on what the java program does. For example, does it parse HTTP headers from standard input, or what?
Are you sure it wouldn't be easier to turn the class into a servlet? etc.
Take a look at IPC::Open2 and IPC::Open3 though. You may need them. (That's just a guess.) -
HELP!! Need a script for DUMMIES for a simple login/register feature
I know very little html and am more of a designer, but my programmer has let me me down so I have to take this on myself.
I want to include a very common feature where visitors register to my site, so I can collect some information and contact details from them, then they can access hidden pages of the site and receive some exclusive download links by email, allowing them to download content (only once). They can then login each time they visit with a userID or email and a password.
My host supports almost every scripting language.
I've been told PHP is what I need, but I know absolutley nothing about it. My host said there is templates for such a simple script out there on the net for free but I'm being passed from pillar to post with scripts for much more complicated and rarer scripts than I need.
Hope you can help.
LBDo I need to create a database to store users info first?
Yes. Without a database, it won't work.
Is this a basic html page with a table with lots and lots or rows and columns for each of the details they have entered (e.g Name, DOB, Address.....etc)??
No, I'm afraid not. Dreamweaver's PHP server behaviors work in conjunction with the MySQL database. If your hosting company supports PHP, you will almost certainly have access to a MySQL database and phpMyAdmin, a web-based program that helps create and maintain MySQL databases. As a minimum, your users table in the database will need three columns:
user_id (a number that acts as the primary key for each record)
username
password
You can also have other columns to store other details, such as first name, family name, and any other information that you want to store.
If you have never done any PHP or database development before, this is going to be a major undertaking for you. The Adobe Developer Centre has some articles that show you how to set up a PHP/MySQL testing environment (http://www.adobe.com/devnet/dreamweaver/articles/setting_up_php.html) and create your first database-driven pages (http://www.adobe.com/devnet/dreamweaver/articles/php_event_registration.html). The Dreamweaver help files also step you through the process of creating a login system (http://help.adobe.com/en_US/Dreamweaver/10.0_Using/WScbb6b82af5544594822510a94ae8d65-7883a .html).
Working with PHP/MySQL isn't difficult, but there's a lot to absorb. If you're going to start working with login systems and other database-driven features, you might find it useful to take a look at one of my books about Dreamweaver and PHP. I have different editions for Dreamweaver 8, CS3, and CS4. You can find more details at my website (http://foundationphp.com/).
Good luck. -
PS Dynamic Script for Test-Connection on OU and SubOU.
I have a non working PowerShell script for searching an OU in an 2008 level Active directory, but it is obviously incomplete. I was able to retrieve part of the script from another forum (cant remember which one, or I would kindly give them the credit they
deserve), but I was hoping to include a variable to in the "SearchBase" option below and make it dynamic, where I can change the OU to ping from a top level and have it also work under a child OU if I need to.
Outcome: Ping OU and child OU and have the option to ping either selection. Of course I would manually enter in my Search base parameters when prompted from the shell. I just want to have any easy way of ping all computers from an OU level without having
to paste the lower part of the script to my PowerShell script pane and changing the OU from there. If I can get the correct parameters working, then it would be easy to load this function to my PS profile. Thank you, and help is appreciated. Hoping someone
can let me know what I am missing to get this functional.
function
get-DCping
[CmdletBinding()]
[Alias()]
[OutputType([int])]
Param
# Param1 help description
[Parameter(Mandatory=$true,
ValueFromPipelineByPropertyName
=$true,
Position
=0)]
[string]$Search)
$rtn
=
$null
Get-ADComputer
-Filter
-SearchBase
'OU=$Search,DC=domain,DC=domain'
|
{$rtn
=
Test-Connection
-CN
$_.name
-Count
1
-BufferSize
16
-Quiet
IF
($rtn
-match
'True') {write-host
-ForegroundColor
green
$_.name}
ELSE
{ Write-host
-ForegroundColor
red
$_.name }}Hi,
Here's a starter:
Function Get-DCPing {
[CmdletBinding()]
param(
[string]
$OrganizationalUnit
Get-ADComputer -Filter * -SearchBase $OrganizationalUnit | ForEach {
$computerName = $_.Name
$props = @{
ComputerName = $computerName
Alive = $false
If (Test-Connection -ComputerName $computerName -Count 1 -Quiet) {
$props.Alive = $true
New-Object PsObject -Property $props
Don't retire TechNet! -
(Don't give up yet - 13,225+ strong and growing) -
Need help in writinf a stop script for a production server
can somebody help me with a stop script which stops a jrun
production server.
jrun -stop production
this command should work but how do i use this in a script .
ThanksHi,
I highly recommend that you skip VBScript and learn PowerShell instead. This is pretty trivial in PowerShell:
If ($env:COMPUTERNAME.Length -le 15) {
# Do stuff
# HINT: Look into Start-Service
Write-Host "Under limit: $env:COMPUTERNAME"
} Else {
# Do optional stuff
Write-Host "Over limit: $env:COMPUTERNAME"
(OT: jrv - happy? =])
If you must stick with VBScript for some odd reason, here's an example to get you started:
Set wshNetwork = WScript.CreateObject( "WScript.Network" )
strComputerName = wshNetwork.ComputerName
If Len(strComputerName) <= 15 Then
'Do stuff here when the name is short enough
WScript.Echo "Under limit: " & strComputerName
Else
'Do stuff here when the name is too long (only if you want to)
WScript.Echo "Over limit: " & strComputerName
End If
http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/services/
Don't retire TechNet! -
(Don't give up yet - 12,830+ strong and growing) -
[solved] Perl script for pacman updates in Conky
Hi
I've been using this script in Perl Conky to check on updates. It works well.
It's not mine - I got it here;
http://bbs.archlinux.org/viewtopic.php?id=57291
#!/usr/bin/perl
## script by Xyne
## http://bbs.archlinux.org/viewtopic.php?id=57291
use strict;
use warnings;
my $n = (`pacman -Qu | wc -l`);
chomp ($n);
if ($n == 0)
print "System up to date"
elsif($n == 1)
print "1 new package"
else
print "$n new packages (inc. IgnorePkg) "
I have some packages listed in IgnorePkg in pacman.conf - is there a way to exclude them from the packages counted in $n?
I thought something like this would help but I don't see how to take only part of a line from IgnorePkg
http://www.perlfect.com/articles/perlfile.shtml
Thanks for any help
EDIT I added a --ignore clause to the pacman query. Seems to have worked. Sorry to waste your time.
Last edited by Bazzaah (2012-07-04 09:25:46)bump...
Edit: Finally figured it out. My router assigns IP adresses dynamically on each reboot. When my IP adress changed from 192.169.1.2 to 192.168.1.3 the hellaconk script got all confused. Ahh...
Last edited by Perre (2009-03-12 18:59:40) -
Help me making a deamon script for a specific eth0 configuration
hi
my idea is to have a daemon script for configuring my eth0 device with specific settings to connect to my xbox.
i"ve got no idea on how to wirite a daemon script, so i hope to get some help from the community
eth0 sould have:
192.168.1.33 as ip
255.255.255.0 as netmask
192.168.1.1.55 as gatewaykriz wrote:
i k'no its possible with network deamon, but its a great investement to uncomment everytime my rc.conf, then /etc/rc.d/network start...
i"m using by default my wireless to connect to internet
don't want to use netcfg. want something like wpa_auto does for wireless conectons, just for eth0 specific settings
You need to uncomment it once and set the correct values. That's it. -
Nice set of perl scripts for h264 encoding stuff
I have found a nice set of perl script written for flexible h264 related encoding. They were originally developed for gentoo but they also run fine under Debian. I guess running them under arch will work as well.
Here is the original thread over at the Gentoo Forum:
http://forums.gentoo.org/viewtopic-t-74 … 444a855600
Here is the webpage from the author plus a newly build install bash script which will download and install the encoding suite:
http://blog.fangornsrealm.eu/
May be someone likes to build a package ?
I am not using arch this much the last few month. So I am kind of the wrong guy for building such a package
-D$I have found a nice set of perl script written for flexible h264 related encoding. They were originally developed for gentoo but they also run fine under Debian. I guess running them under arch will work as well.
Here is the original thread over at the Gentoo Forum:
http://forums.gentoo.org/viewtopic-t-74 … 444a855600
Here is the webpage from the author plus a newly build install bash script which will download and install the encoding suite:
http://blog.fangornsrealm.eu/
May be someone likes to build a package ?
I am not using arch this much the last few month. So I am kind of the wrong guy for building such a package
-D$ -
Help: Running iTunes U perl script: Can't locate Digest/SHA.pm
We are using IIS 6.0 on Windows Server 2003.
We have installed v5.008008 of Active Perl.
We changed the sample iTunesU.pl script with our school data
When we run the script from the command prompt we get the following error:
Can't locate Digest/SHA.pm in @INC (@INC contains: E:/Perl/site/lib E:/Perl/lib
.) at E:\Webapps\ajula\CGI\ITunesU.pl line 87.
BEGIN failed--compilation aborted at E:\Webapps\ajula\CGI\ITunesU.pl line 87.
How can fix this problem
Thanks
Moshe AJULA.EDUI followed the instructions in the sample files.
On the server I ran perl -MCPAN -e shell
It showed errors and problem for when installing Digest::SHA and Crypt::SSLeay
Here is a copy of the restults.
Can you help me figuring out what is wrong?
Thanks
-------------------------- Resutls of install --------------------
In the cpan> prompt
cpan shell -- CPAN exploration and modules installation (v1.9102)
ReadLine support enabled
cpan> install URI::Escape
CPAN: Storable loaded ok (v2.16)
Going to read E:\Perl\cpan\Metadata
Database was generated on Mon, 26 Nov 2007 10:36:39 GMT
URI::Escape is up to date (3.28).
cpan> install Digest::SHA
Running install for module 'Digest::SHA'
Running make for M/MS/MSHELOR/Digest-SHA-5.45.tar.gz
CPAN: checksum security checks disabled because Digest::SHA not installed.
Please consider installing the Digest::SHA module.
CPAN: Time::HiRes loaded ok (v1.9707)
Scanning cache E:\Perl/cpan/build for sizes
............................................................................DONE
CPAN: Compress::Zlib loaded ok (v1.4201)
CPAN: Archive::Tar loaded ok (v1.3201)
Digest-SHA-5.45/
Digest-SHA-5.45/README
Digest-SHA-5.45/src/
Digest-SHA-5.45/src/hmac.h
Digest-SHA-5.45/src/hmacxtra.c
Digest-SHA-5.45/src/sha.h
Digest-SHA-5.45/src/shaxtra.c
Digest-SHA-5.45/src/sha64bit.h
Digest-SHA-5.45/src/sha64bit.c
Digest-SHA-5.45/src/hmac.c
Digest-SHA-5.45/src/sha.c
Digest-SHA-5.45/Makefile.PL
Digest-SHA-5.45/examples/
Digest-SHA-5.45/examples/dups
Digest-SHA-5.45/META.yml
Digest-SHA-5.45/Changes
Digest-SHA-5.45/shasum
Digest-SHA-5.45/typemap
Digest-SHA-5.45/MANIFEST
Digest-SHA-5.45/SHA.pm
Digest-SHA-5.45/t/
Digest-SHA-5.45/t/nistbyte.t
Digest-SHA-5.45/t/nistbit.t
Digest-SHA-5.45/t/rfc2202.t
Digest-SHA-5.45/t/bitbuf.t
Digest-SHA-5.45/t/hmacsha.t
Digest-SHA-5.45/t/podcover.t
Digest-SHA-5.45/t/methods.t
Digest-SHA-5.45/t/sha224.t
Digest-SHA-5.45/t/dumpload.t
Digest-SHA-5.45/t/sha384.t
Digest-SHA-5.45/t/sha1.t
Digest-SHA-5.45/t/sha512.t
Digest-SHA-5.45/t/gg.t
Digest-SHA-5.45/t/allfcns.t
Digest-SHA-5.45/t/gglong.t
Digest-SHA-5.45/t/pod.t
Digest-SHA-5.45/t/woodbury.t
Digest-SHA-5.45/t/fips198.t
Digest-SHA-5.45/t/ireland.t
Digest-SHA-5.45/t/base64.t
Digest-SHA-5.45/t/sha256.t
Digest-SHA-5.45/SHA.xs
CPAN: File::Temp loaded ok (v0.18)
CPAN.pm: Going to build M/MS/MSHELOR/Digest-SHA-5.45.tar.gz
Checking if your kit is complete...
Looks good
Writing Makefile for Digest::SHA
Could not read 'E:\Perl\cpan\build\Digest-SHA-5.45-KfEI5d\META.yml'. Falling bac
k to other methods to determine prerequisites
'nmake' is not recognized as an internal or external command,
operable program or batch file.
MSHELOR/Digest-SHA-5.45.tar.gz
nmake -- NOT OK
Warning (usually harmless): 'YAML' not installed, will not store persistent stat
e
Running make test
Can't test without successful make
Running make install
Make had returned bad status, install seems impossible
Failed during this command:
MSHELOR/Digest-SHA-5.45.tar.gz : make NO
cpan> install LWP::UserAgent
LWP::UserAgent is up to date (2.036).
cpan> install Crypt::SSLeay
Running install for module 'Crypt::SSLeay'
Running make for D/DL/DLAND/Crypt-SSLeay-0.57.tar.gz
CPAN: LWP::UserAgent loaded ok (v2.036)
Fetching with LWP:
http://ppm.activestate.com/CPAN/authors/id/D/DL/DLAND/Crypt-SSLeay-0.57.tar.gz
CPAN: checksum security checks disabled because Digest::SHA not installed.
Crypt-SSLeay-0.57
Crypt-SSLeay-0.57/t
Crypt-SSLeay-0.57/Changes
Crypt-SSLeay-0.57/lib
Crypt-SSLeay-0.57/certs
Crypt-SSLeay-0.57/MANIFEST
Crypt-SSLeay-0.57/TODO
Crypt-SSLeay-0.57/typemap
Crypt-SSLeay-0.57/MANIFEST.SKIP
Crypt-SSLeay-0.57/eg
Crypt-SSLeay-0.57/SSLeay.pm
Crypt-SSLeay-0.57/SSLeay.xs
Crypt-SSLeay-0.57/README
Crypt-SSLeay-0.57/Makefile.PL
Crypt-SSLeay-0.57/META.yml
Crypt-SSLeay-0.57/eg/lwp-ssl-test
Crypt-SSLeay-0.57/eg/net-ssl-test
Crypt-SSLeay-0.57/certs/ca-bundle.crt
Crypt-SSLeay-0.57/certs/notacakeynopass.pem
Crypt-SSLeay-0.57/certs/notacacert.pem
Crypt-SSLeay-0.57/lib/Crypt
Crypt-SSLeay-0.57/lib/Net
Crypt-SSLeay-0.57/lib/Net/SSL.pm
Crypt-SSLeay-0.57/lib/Crypt/SSLeay
Crypt-SSLeay-0.57/lib/Crypt/SSLeay/MainContext.pm
Crypt-SSLeay-0.57/lib/Crypt/SSLeay/Conn.pm
Crypt-SSLeay-0.57/lib/Crypt/SSLeay/X509.pm
Crypt-SSLeay-0.57/lib/Crypt/SSLeay/Err.pm
Crypt-SSLeay-0.57/lib/Crypt/SSLeay/CTX.pm
Crypt-SSLeay-0.57/t/00-basic.t
Crypt-SSLeay-0.57/t/02-live.t
Crypt-SSLeay-0.57/t/01-connect.t
CPAN.pm: Going to build D/DL/DLAND/Crypt-SSLeay-0.57.tar.gz
========================================================================
No installed SSL libraries found in any of the following places.
c:\openssl
You will have to either specify a directory location at the following
prompt, or rerun the Makefile.PL program and use the --lib switch
to specify the path. If the path in question is considered standard
on your platform, please consider filing a bug report in order to
have it taken into account in a subsequent version of Crypt::SSLeay.
Which SSL install path do you want to use? c:\openssl
c:\openssl does not appear to be an SSL library installation, since
the required header files were not found. The build cannot proceed.
Warning: No success on command[E:\Perl\bin\perl.exe Makefile.PL]
Warning (usually harmless): 'YAML' not installed, will not store persistent stat
e
DLAND/Crypt-SSLeay-0.57.tar.gz
E:\Perl\bin\perl.exe Makefile.PL -- NOT OK
Running make test
Make had some problems, won't test
Running make install
Make had some problems, won't install
Could not read 'E:\Perl\cpan\build\Crypt-SSLeay-0.57-5QWh9O\META.yml'. Falling b
ack to other methods to determine prerequisites
Failed during this command:
DLAND/Crypt-SSLeay-0.57.tar.gz : writemakefile NO 'E:\Perl\bin\pe
rl.exe Makefile.PL' returned status 512 -
Help with EEM TCL / CLI scripting for re-direction/wccp counters
Being new with EEM scripting I wanted to see if I was on the right track and get some help to finish my idea.
Our problem I am trying to fix is our remote sites utilize pairs of Cat3650's for some routing and WCCP redirection. We are encountering ACL denial issues causing slow down and access issues. The fix for the issue we remove the WCCP service groups to break peering with our wan optimizers and re-insert the configuration thus re-establishing peering and restoring service.
My idea is to use a TCL scipt on a watchdog timer to parse the "sh ip wccp | inc denied (or unassign)" output for denial and unassignable error counters. If a counter is found I wanted to create a syslog message that would then kick off a simple EEM CLI script to remove the service groups, wait 10 seconds, then re-add the service groups. Please point me in the right direction if I am off track as I am not sure if I can use the EEM CLI for all this or since I want to retreive specific info from the sh ip wccp output if I do need to utilize TCL. I am also unsure if the "total denied" ascii string pulled via the "sh ip wccp | inc denied" will cause issues when attempting to just pull the counter information.
sh ip wccp | inc Denied Red
Total Packets Denied Redirect: 0
Total Packets Denied Redirect: 0
Script thus far :
TCL
if [catch {context_retrieve "EEM_WCCP_ERROR_COUNTER" "count"} result] {
set wccpcounter 0
} else {
set wccpcounter $result
} if [catch {cli_open} result] {
error $result
} else {
array set cli $result
} if [catch {cli_exec $cli(fd) "show ip wccp | incl Denied"} result] {
error $result
} else {
set cmd_output $result
set count ""
catch [regexp {receive ([0-9]+),} $cmd_output} ignore count]
set count
set diff [expr $count - $wccpcounter]
if {$diff != 0} {
action_syslog priority emergencies msg "WCCP counters showing incremental Denied packet counts"
if [catch {cli_close $cli(fd) $cli(tty_id)} result] {
error $result
context_save EEM_WCCP_ERROR_COUNTER count
CLI
event manager applet WCCP_COUNTER_WATCH
event syslog priority emergencies pattern "WCCP counters showing incremental Denied packet counts"
action 001 cli command "enable"
action 002 cli command "config t"
action 003 cli command "no ip wccp 61"
action 004 cli command "no ip wccp 62"
action 005 wait 10
action 006 cli command "ip wccp 61"
action 007 cli command "ip wccp 62"
action 008 wait 15
action 009 cli command "clear ip wccp"
action 010 cli command "end"
Thanks for all the helpThis won't work as EEM cannot intercept its own syslog messages. However, I'm not sure why you need this form of IPC anyway. Why not just make the Tcl script perform the needed CLI commands?
And, yes, you could use all applets here. But since you've written the hard stuff in Tcl already, it might be best just to add the missing calls to reconfigure WCCP to that script. -
Help needed with a PS script for network share documentation
I found a nice PS script that will do what I want, however the output portion seems to be broken. It will output the permissions and details, but not list what share it is referring to... Can anyone help with this?
Thanks!
https://gallery.technet.microsoft.com/scriptcenter/List-Share-Permissions-83f8c419#content
<#
.SYNOPSIS
This script will list all shares on a computer, and list all the share permissions for each share.
.DESCRIPTION
The script will take a list all shares on a local or remote computer.
.PARAMETER Computer
Specifies the computer or array of computers to process
.INPUTS
Get-SharePermissions accepts pipeline of computer name(s)
.OUTPUTS
Produces an array object for each share found.
.EXAMPLE
C:\PS> .\Get-SharePermissions # Operates against local computer.
.EXAMPLE
C:\PS> 'computerName' | .\Get-SharePermissions
.EXAMPLE
C:\PS> Get-Content 'computerlist.txt' | .\Get-SharePermissions | Out-File 'SharePermissions.txt'
.EXAMPLE
Get-Help .\Get-SharePermissions -Full
#>
# Written by BigTeddy November 15, 2011
# Last updated 9 September 2012
# Ver. 2.0
# Thanks to Michal Gajda for input with the ACE handling.
[cmdletbinding()]
param([Parameter(ValueFromPipeline=$True,
ValueFromPipelineByPropertyName=$True)]$Computer = '.')
$shares = gwmi -Class win32_share -ComputerName $computer | select -ExpandProperty Name
foreach ($share in $shares) {
$acl = $null
Write-Host $share -ForegroundColor Green
Write-Host $('-' * $share.Length) -ForegroundColor Green
$objShareSec = Get-WMIObject -Class Win32_LogicalShareSecuritySetting -Filter "name='$Share'" -ComputerName $computer
try {
$SD = $objShareSec.GetSecurityDescriptor().Descriptor
foreach($ace in $SD.DACL){
$UserName = $ace.Trustee.Name
If ($ace.Trustee.Domain -ne $Null) {$UserName = "$($ace.Trustee.Domain)\$UserName"}
If ($ace.Trustee.Name -eq $Null) {$UserName = $ace.Trustee.SIDString }
[Array]$ACL += New-Object Security.AccessControl.FileSystemAccessRule($UserName, $ace.AccessMask, $ace.AceType)
} #end foreach ACE
} # end try
catch
{ Write-Host "Unable to obtain permissions for $share" }
$ACL
Write-Host $('=' * 50)
} # end foreach $share
This is what the output looks like when ran with 'RemoteServer' | .\Get-SharePermissions.ps1 | Out-File 'sharepermissions.xls'
FileSystemRights : Modify, Synchronize
AccessControlType : Allow
IdentityReference : Everyone
IsInherited : False
InheritanceFlags : None
PropagationFlags : NoneActually it is not being written only with Write-Host. The last line of the loop is this "$ACL" which ius an array of objects.
Here is a version that gets the info more easily and produces flexible objects. It should be easier to modify into what is needed.
# Get-ShareSec.ps1
[cmdletbinding()]
param(
[Alias('ComputerName')]
[Parameter(
ValueFromPipelineByPropertyName=$True
)]$Name=$env:COMPUTERNAME
Process {
Write-Verbose "Computer=$name"
$shares =Get-WMiObject Win32_Share -ComputerName $name -Filter 'Type=0' -ea 0
foreach($share in $shares){
$sharename=$share.Name
Write-Verbose "`tShareName=$sharename"
$ShareSec = Get-WMIObject -Class Win32_LogicalShareSecuritySetting -Filter "name='$ShareName'" -ComputerName $name
try {
foreach ($ace in $ShareSec.GetSecurityDescriptor().Descriptor.DACL) {
$props=[ordered]@{
ComputerName=$name
ShareName=$sharename
TrusteeName=$ace.Trustee.Name
TrusteeDomain=$ace.Trustee.Domain
TrusteeSID=$ace.Trustee.SIDString
New-Object PsObject -Property $props
catch {
Write-Warning ('{0} | {1} | {2}' -f $Computer,$sharename, $_)
Get-Adcomputer -Filter * | .\Get-ShareSec.ps1 -v
¯\_(ツ)_/¯
Maybe you are looking for
-
How to view my video recording in iPad air
Can any body suggest a way out pl ?
-
CD burning with disk utility - format and size for 800 MB - 90 minutes CD
Hi Support, I'm trying to burn a CD with 800 MB (90 minutes) using disk utility. When I create a new empty image I can select the size. Unfortunately there is no option for a 90 minutes CD. When I create the image with 800 MB and I try to burn it, di
-
Dear Flexer-users, I have uploaded my first flex builder project (version 4.6, testversion cause I'm a newbie) that communicates with an MYSQL database. The project is called MeinMuc and is just to checkout some basic database functions like add, upd
-
How can I turn off my voicemail password on Iphone 6?
How can I turn off my voicemail password on Iphone 6? Did not have to enter a password after my screen password with my 4S.
-
HP Pavillion TouchSmart 15 Notebook HELP
Hello, I am having issues with my laptop starting up. - The last time I used it and all worked normal was on Saturday, July 18 (2015). - The light turns orange and then white. And stays orange. -When you open it, it automatically "wakes up" and start