Perl script to delete attributes with space value

Hi,
We are using Iplanet Ldap Directory server on hp-UX 11i.
I have a problem here with the attribute values.There is a space (a blank space) for few attributes across the directory server.
They seem to be normal when lokked through the ldap console. But when retrieving data through ldapsearch utility they appear as Junk character.
The only solution for this may be find and delete those attributes and add new one's.
eg: telephoneNumber :: RASWD== ( when the attribute has one space value,nothing else)
My issue is iam not able to trace the attributes through perl ldap scripts.
If anyone can help me out with a script it would be great.There are few thousand employees data appear corrupted.
Thanks in advance.

This is how SunOne avoids storing lots of extra spaces (and thus using disk/memory) It base 64 encodes the entries. I believe you can use the -B flag to ldapsearch to display the entry as it really appears not encoded.
If you really wanted to ideantify them I would write a perl script to locate attribute:: in a db2ldif of the install.
That would at least tell you which ones have the issue with spaces

Similar Messages

Deleting rows with missing values in field in start routine of update rule

Hello experts,
how can I delet rows with missing values in a specific field in the start routine of update rules?
I think ABAP code should look something like this:
delete ... from DATA_PACKAGE where Z_NO = ''.
thanks in advance for any suggestions!
hiza

Write:
delete data_package where field = value.
Hope it helps.
Regards

Does Endeca Integrator Loads Attribute with Null value?

I have a table in DB , with a column , lets say, supply_id. This is null for all rows.
When i load data from this table using clover ETL graph and lets say source this data to another table , will my final table will have a column as supply_id?
Or will this column will get dumped.
I discussed on clover etl forum, it seems this column will be picked. However, when we use EID Intgrator the column is getting dropped always..
I tried a sample graph passing an attribute having null value and having property nullable=true. But still it was dropped.
I posted same question on clover etl forum long back. They explained its not something out of the box from Clover but a change Oracle EID made to the engine.
http://forum.cloveretl.com/viewtopic.php?f=4&t=6508
Could you please confirm if this is expected behavior and if so , is there any workaround?

Yes, if an attribute doesn't contain any values that attribute doesn't exist in the Endeca Server. Why do you want an attribute that doesn't contain values?

Report script - using substitution variable with multiple values

Hi All,
Substitution variable with multiple values is not working correctly with Report scripts. Can you please let me know what is the syntax to assign multiple values to a sub variable using maxl:
alter database samp.samp set variable 'ExtractQuarter' 'Q1,Q2,Q3,Q4';
alter database Samp.Samp set variable 'ExtractQuarter' 'Q1:Q4';
I tried both of the above but they are errored out with the below error:
Error: 1001005 - Unknown Member [Q1:Q4] in Report.
my requirement is different for both Actual and forecast data extract so i would like to make use of this variable to extract whole year data for Forecast and current quarter data for Actual with out duplicating the report scripts for both processes.
Thanks,
PRaveen

Hi,
Please refer following thread,
range of months in report script?
Hope it helps.
Regards

Delete attribute with objectclass=nstombstone

Hello,
I changed the replcation ID of one server in a three-way multimaster configuration, and found that the original value of the ruv is still exists in the search result of objectclass=nstombstone. That is there should be value of the replica ID of the three servers but now there are four value instead of three and I found the old value is not delete change the replica ID. Therefore I tried to delete this extra attribute, but it fails. Does it because of the objectclass=nstombstone? and could I delete such value?
Thanks in advanced.
Best regards,
PH

you can delete them but ONLY if you have replication disabled. i have a script that will clean up those things. at some point sun told me that all those unused ruvs could cause problems...i think they were taking a stab in the dark and cleaning them up never solved anything...only going to 5.2 with hotfix did. of course you could export, delete the ruv entries, and import...if u have a small db that might be the easiest thing.

Macro/VBA script to merge rows with same values in another column

Hi.
I'm developing a dance competition application, using Excel 2010, and have so far managed to put judges' marked scores into a worksheet through a userform.
Now I would like to make the worksheet more presentable as a scoreboard, as you would manually, but via VBA scripts.
Exhibit Numbers (Column G) are unique identifiers (per competition) for contestants and each contestant is typically judged by three judges. The scores in three separate categories from one judge would spread in one row so each contestant would have three
rows.
I would like to merge rows of columns where the totals from the judges go (Columns P to U) for each contestant.
I've considered using some kind of loop but I don't have enough experience in vba scripting, it gets overcomplicated. Could someone please help?
Many thanks.
Maki Koyama (Canberra, AUS)

Hi,
You cannot add a static "Y" inside a when looping over "i". You need to ensure that "Y" changes along with X. Try the modified code below.
List elements = new ArrayList();
for (int i=0; i<XXX; i++) {
IZZZ.IVisibilityElement el = wdContext.createVisibilityElement();
el.setVisAttr(i); // Change Y to i
elements.add(el);
wdContext.nodeVisibility().bind(elements);
That should give you an idea of what is erroneous in the code.
Thanks.
HTH.
p256960

ELM: deleting attribute value

Hello,
I have an attribute with multipe value options, i.e.
Attribute name: Subscriptions
Values:
A01 - Newsletter
A02 - Magazine
A03 - Special Offers
A04 - Tradefair Invitations
With ELM, I am able to flag multiple values for this attribute.
However, I am not able to UNFLAG (deselect) the values with ELM.
(I tried ' ' , which works for updating Business Partners, but then I get the message that ' ' is not an allowed value for this field).
Does anyone have a clue how to do this?
Regards,
Jeroen

Hi,
Loop through the node and remove element . i.e.,
for(loop your node){
element = wdContext.node<nodeNAme>().get<Node>ElementAt(i);
wdContext.node<Table>().removeElement(element);
Thanks & Regards,
Jhansi Miryala

Rman/PERL scripts errors

I am trying to automate the backups and disk maintenence on a test machine using a "Host Command" in the 10g EM environment. If I run the script from the command on the target host the scripts completes successfully.
This is the script:
ORACLE_HOME=/u01/app/oracle/product/9.2.0
export ORACLE_HOME
ORACLE_SID=coeusdba.
export ORACLE_SID
rman <<EOF
connect target sys<password>@coeusdba;
connect catalog <user>/<password>@recv;
replace script coeusdba_full_bkp {
allocate channel Channel1 type disk format '/u03/orabkp/coeusdba/b_%u_%p_%c';
backup
( database include current controlfile );
backup ( archivelog all delete input );
run { execute script coeusdba_full_bkp;}
EOF
/u01/app/oracle/product/9.2.0/dbs/scripts/coeusdba_new.sh
exit
When I execute the same script from a 10g EM "Host Command" job the script fails at the PERL command step with the following output:
Recovery Manager: Release 9.2.0.7.0 - Production
Copyright (c) 1995, 2002, Oracle Corporation. All rights reserved.
RMAN>
RMAN>
connected to target database: COEUSDBA (DBID=1916078485)
RMAN>
RMAN>
connected to recovery catalog database
RMAN> 2> 3> 4> 5> 6> 7> 8>
replaced script coeusdba_full_bkp
RMAN>
RMAN>
executing script: coeusdba_full_bkp
allocated channel: Channel1
channel Channel1: sid=10 devtype=DISK
Starting backup at NOV-01-2005 10:32:32
channel Channel1: starting full datafile backupset
channel Channel1: specifying datafile(s) in backupset
including current controlfile in backupset
input datafile fno=00006 name=/u02/oradata/coeusdba/users01.dbf
input datafile fno=00002 name=/u03/oradata/coeusdba/undotbs01.dbf
input datafile fno=00004 name=/u03/oradata/coeusdba/index01.dbf
input datafile fno=00005 name=/u03/oradata/coeusdba/tools01.dbf
input datafile fno=00007 name=/u03/oradata/coeusdba/xdb01.dbf
input datafile fno=00001 name=/u02/oradata/coeusdba/system01.dbf
input datafile fno=00003 name=/u02/oradata/coeusdba/drsys01.dbf
channel Channel1: starting piece 1 at NOV-01-2005 10:32:33
channel Channel1: finished piece 1 at NOV-01-2005 10:33:28
piece handle=/u03/orabkp/coeusdba/b_3rh2l4q1_1_1 comment=NONE
channel Channel1: backup set complete, elapsed time: 00:00:55
Finished backup at NOV-01-2005 10:33:28
Starting backup at NOV-01-2005 10:33:29
current log archived
channel Channel1: starting archive log backupset
channel Channel1: specifying archive log(s) in backup set
input archive log thread=1 sequence=49 recid=200 stamp=573215609
channel Channel1: starting piece 1 at NOV-01-2005 10:33:32
channel Channel1: finished piece 1 at NOV-01-2005 10:33:33
piece handle=/u03/orabkp/coeusdba/b_3sh2l4rr_1_1 comment=NONE
channel Channel1: backup set complete, elapsed time: 00:00:02
channel Channel1: deleting archive log(s)
archive log filename=/u04/arch/coeusdba/1_49.dbf recid=200 stamp=573215609
Finished backup at NOV-01-2005 10:33:35
Starting Control File and SPFILE Autobackup at NOV-01-2005 10:33:35
piece handle=/u04/orabkp/coeusdba/ctl_file_bkps/c-1916078485-20051101-00 comment=NONE
Finished Control File and SPFILE Autobackup at NOV-01-2005 10:33:38
released channel: Channel1
RMAN>
RMAN>
Recovery Manager complete.
syntax error at /u01/app/oracle/product/9.2.0/EM10g_1/perl/lib/5.6.1/warnings.pm line 306, near "{^"
syntax error at /u01/app/oracle/product/9.2.0/EM10g_1/perl/lib/5.6.1/warnings.pm line 311, near "{^"
BEGIN failed--compilation aborted at /u01/app/oracle/product/9.2.0/EM10g_1/perl/lib/5.6.1/English.pm line 38.
BEGIN failed--compilation aborted at /u01/app/oracle/product/9.2.0/dbs/scripts/rmanc.pl line 20
Is anyone having this problem in 10g and if so , can you provide me with some insight with respect to resolution?

The .sh script calls a perl script that parses the output of the report obsolete command in rman and deletes the obsolete datasets from disk. This shell completes from the command line with no errors. Here is the .sh and the perl script. Like I said the odd thing is that this shell executes successfully from the command line. Thanks for your interest in looking at this.
cat coeusdba_new.sh
/u01/app/oracle/product/9.2.0/dbs/scripts/rmanc.pl target sys/<password>@coeusdba catalog rmantest/<password>@recv redundancy 2
rmanc.$ cat rmanc.pl
#!/usr/bin/perl -w
# NAME
# rmanc.pl - delete obsolete backups and copies
# DESCRIPTION
# This perl script automates deletion of obsolete datafilecopies and
# backup pieces. It uses perl strin manipulation to process the output of the RMAN
# "report obsolete" command and creates rm commands to delete the files
# NOTES
# Some customization is necessary.
# Adapted from Oracle 8i rman1.sh Unix shell script.
# benmalek 03/08/2003 - Modified to delete backup sets and datafilecopies only
# Does not touch backup records.
use strict;
#use English;
#$ENV{ORACLE_OWNER}='oracle';
#$ENV{ORACLE_HOME}='/disk01/app/oracle/product/9.2.0';
$ENV{NLS_DATE_FORMAT}='DD-MON-YYYY:HH24:MI:SS';
&PrintEnv;
sub Usage {
my ($arg1, @arg2) = @_;
my $base_name = `basename $0`;
chop($base_name);
CASE: {
if (!defined($arg1)) {last CASE; }
if ($arg1 =~ /\S/) {print ("\nUnknown argument or incorrect value for: $arg1\n\n"); last CASE; }
my $example1 = 'rmanc.pl target sys/orclpass@orcl catalog rman/rmanpass@rec redundancy 5';
my $example2 = 'rmanc.pl target sys/orclpass@orcl nocatalog redundancy 5';
my $usage_txt =
" Usage: $base_name [option] ...
option: [target CNCTSTR] [catalog CNCTSTR | nocatalog] [params 'PARMS'] [redundancy NUMBER]
Option Description
target CNCTSTR Connect to the target db using CNCTSTR.
catalog CNCTSTR Connect to catalog db using CNCTSTR.
nocatalog Don't use a recovery catalog.
parms 'PARMS' Use PARMS string for SBT_TAPE maintenance channel.
You can use single or double quotes depending on
your needs. In the rman script, single-quotes
will be used.
redundancy NUMBER Set redundancy of backups to NUMBER.
The catalog or nocatalog option must be specified. All others are optional
The target option must also be specified
Examples:
$example1
$example2 ";
print ("$usage_txt \n");
die "Exiting subroutine 'Usage'.\n";
# Initialize default connect string variables:
my $target=""; # force user to supply target option
my $catalog=""; # force user to supply catalog option;
my $parms="";
my $redun=""; # force user to supply redundancy option;
# process target and catalog arguments
my $args = @ARGV;
while ( $args > 0 ) {
ARGS: {
if (($ARGV[0] eq "target") && defined($ARGV[1]))
{$target="$ARGV[0] $ARGV[1]"; shift(@ARGV); last ARGS;}
if (($ARGV[0] eq "catalog" || $ARGV[0] eq "rcvcat") && defined($ARGV[1]))
{ $catalog="$ARGV[0] $ARGV[1]"; shift(@ARGV); last ARGS;}
if ($ARGV[0] eq "nocatalog") { $catalog="$ARGV[0]"; last ARGS;}
if (($ARGV[0] eq "parms") && defined($ARGV[1])) { $parms = "$ARGV[0] $ARGV[1]"; shift(@ARGV); last ARGS;}
if (($ARGV[0] eq "redundancy") && defined($ARGV[1]) && !($ARGV[1] =~ /\D/))
{$redun=$ARGV[1]; shift(@ARGV); last ARGS;}
&Usage($ARGV[0]);
shift(@ARGV);
$args= @ARGV;
if ((!defined($catalog) || $catalog eq "") || (!defined($target) || $target eq "") || (!defined($redun) || $redun eq "" )) {&Usage;}
#print (" target=$target \n catalog=$catalog \n parms=$parms \n redundancy=$redun\n");
# Get a list of obsolete disk files to delete:
my @rman_out=`rman $target $catalog << EOF
report obsolete redundancy=$redun device type disk;
exit;
EOF`;
# debug
print ("############################################\n");
print ("Output of REPORT OBSOLETE REDUNDANCY=$redun\n");
print @rman_out;
print ("############################################\n");
#my $command = `rman $target $catalog << EOF
# report obsolete redundancy=$redun device type disk;
# exit;
# EOF"
#open (RMAN, "$command |" );
#my @rman_out=<RMAN>;
# Extract the names of the obsolete files to delete
my $line;
my @files;
my @dates;
my @pieces;
foreach $line (@rman_out) {
if (($line =~ /Backup Piece/) && ($line =~ /\S/)) {
my @fields=split (/\s+/, $line);
my $nelem=@fields;
push(@pieces, $fields[$nelem-3]);
push(@dates, $fields[$nelem-2]);
push(@files, $fields[$nelem-1]);
# Verify files exists
my $i=0;
foreach $line (@files) {
if (-e $line) {
print ("Deleting backup piece or file copy: $pieces[$i] $dates[$i] $line\n");
system("rm $line");
} else {
# print ("file $line does not exist. \n");
$i = $i + 1;
sub PrintEnv{
my $var;
foreach $var (sort keys %ENV) {
print "$var: \"$ENV{$var}\".\n"
pl

How to launching a perl script by the "begin" script of a jumpstart

Hi all,
i have an urgent pb with my solaris jumpstart, let me explain to you :
i want that the begin script launch some perl script, but i have a problem
here is my "begin" script:
echo "Begining ISO FLAR based jumpstart."
echo ""
echo "Starting Ullink Configuration"
env > /tmp/env
/bin/sh << EOF
/usr/bin/perl /cdrom/.archives/admin-scripts/sethostname.pl
EOFmy perl script use a STDIN
with this configuration, the perl script is launching but it runs in a loop indefinitely with an error "use of uninitialized value", because (i think) a value is return to the begin scritp and not to the perl script.
well, on a pre-installed solaris, if a launch the begin script, it happens the same thing, it runs in a loop, BUT if i comment the line "/bin/sh <<EOF" and "EOF", it works.
at this step, i say "ok it's cool my script is working", but when i use it during the jumpstart instalaltion, the perl script does not start, without any particular error.
here is my perl script, if you want to test :
#!/usr/bin/perl -w^M
# Set Hostname for Ullink Jumpstart^M
^M
use strict;^M
^M
sub hit_enter {^M
    print "Hit enter to continue\n";^M
    <STDIN>;^M
    print "\033[2J";^M
}^M
^M
sub get_hostname {^M
    my %towns_list = (^M
        'Paris' => 'PA',^M
        'New-York' => 'NY',^M
    );^M
^M
    my %sites_list = (^M
        'Office' => 'OFC',^M
        'Redbus' => 'RED',^M
        'Telehouse' => 'TLH',^M
        'DTC' => 'DTC',^M
        'iAdvantage' => 'IAD',^M
        'Nutley' => 'NUT',^M
        'Level3' => 'LV3',^M
        'Equinix' => 'EQX',^M
        'Tata' => 'TAT',^M
        'Switch-data' => 'SWI',^M
        );^M
^M
    my %usage_list = (^M
        'Production' => 'PRD',^M
        'UAT' => 'UAT',^M
        'DMZ' => 'DMZ',^M
    );^M
^M
    sub select_list {^M
        my $counter=-1;^M
        my %hash_list = @_;^M
        my @keys = keys %hash_list;^M
^M
        # Clear screen^M
        print "\033[2J";^M
        print "In which country this machine is hosted or will be host and will be used ?\n\n";^M
^M
        # Get all keys from hash^M
        my $key;
        while ($key = each %hash_list ) {^M
            $counter++;^M
            print "$counter - $key\n";^M
        }^M
^M
        print "\nChoose the number corresponding to your choice :\n";^M
        my $choice_number;
        chomp ($choice_number = <STDIN>);^M
^M
        # Verify answer^M
        if (($choice_number =~ /\d+/) and ($choice_number <= $counter)) {^M
            # Add choice to chosen hostname^M
            my $chosen=$hash_list{$keys[$choice_number]};^M
            return $chosen;^M
        } else {^M
            print "\nYour answer is not correct, you need to enter a number between 0 and $counter\n";^M
            &hit_enter;^M
            &select_list;^M
        }^M
    }^M
^M
    sub srv_number {^M
        print "\033[2J";^M
        print "What is the server number ?\n";^M
        my $server_number;
        chomp ($server_number = <STDIN>);^M
        if ($server_number =~ /\d+/) {^M
            return $server_number;^M
        } else {^M
            print "\nYour answer is not correct, you need to enter a number\n";^M
            &hit_enter;^M
            &srv_number;^M
        }^M
    }^M
^M
    my $full_hostname = &select_list(%towns_list).'-';^M
    $full_hostname = $full_hostname.&select_list(%sites_list).'-';^M
    $full_hostname = $full_hostname.'SRV-';^M
    $full_hostname = $full_hostname.&select_list(%usage_list).'-';^M
    $full_hostname = $full_hostname.&srv_number;^M
^M
    sub write_hostname2tmp {^M
        open (HOSTNAME, ">/tmp/set_hostname") or warn "Couldn't write $_[0] to temp file : $!\n";^M
            print HOSTNAME "$_[0]\n";^M
        close (HOSTNAME);^M
    }^M
^M
    print "\033[2J";^M
    print "Is $full_hostname the correct name for this server ? (y/n)\n";^M
    if (<STDIN> =~ /y|yes/i) {^M
        &write_hostname2tmp($full_hostname);^M
    } else {^M
        print "Would you like to retry (r) or set manually the hostname (s) ? (r/s)\n";^M
        if (<STDIN> =~ /s/i) {^M
            print "Type the full required name and hit enter when finished :\n";^M
            chomp ($full_hostname = <STDIN>);^M
            &write_hostname2tmp;^M
        } else {^M
            &get_hostname;^M
        }^M
    }^M
}^M
^M
# Start configuration^M
print "\033[2J";^M
print "\n########################################################\n";^M
print "#\t\t\t\t\t\t       #\n";^M
print "#\t\t\tULLINK\t\t\t       #\n";^M
print '# Solaris Environnement Installation for Datacenters #';^M
print "\n#\t\t\t\t\t\t       #";^M
print "\n########################################################\n\n";^M
print "Before starting installation, you need to enter a set of informations.\n(answer to all questions, you can Ctrl+C to stop now)\n\n";^M
&hit_enter;^M
^M
&get_hostname;^Mthank for your help
Edited by: ullink on Jun 25, 2009 6:05 AM

Hi Manju,
You can try the following command and check if any helps:
Get-Exchangeserver |where-object{$_.AdminDisplayVersion -like "Version 15*"} |Get-MailboxStatistics | Ft -auto -wrap DisplayName,database,servername,*size*,*time*
Best regards,
Niko Cheng
TechNet Community Support

Runtime.exec("Perl Script writing and reading on I/O"), handling Streams

Hi all !!
In a first place : sorry for my english if it's not really understandable but I try to do as good as possible !
I'm writing a GUI with Swing that will allow (in one of my multiple tables) the user to run a Perl Script.
This Perl Script ask the user to choose a Folder ... then read all the files in this folder and for each file (xml File), extract the datas and put them in a database. But when a file that has to be inserted in the database contains this line : <Template_Used name="ST1.mtt"> and if the Template table in my database doesn't have the "ST1.mtt" stored ... the Perl Script ask to the user to give him the path of the file "ST1.mtt" so that the script can put the "ST1.mtt template" datas in the database.
This script runs well when it is from a windows console.
But I need a graphic interface !!!
So I created a JButton "Process a folder".
When the button is pressed, a JFileChooser appears and ask the user which Folder has to be processed.
Then a Process is created with the command : ("cmd.exe /C \"C:\\Program Files\\Fluke\\Ansur\\ProcessFolder.bat\").
The BatFile :
{code}cd C:\Documents and Settings\tsd\Desktop\Gael-Project\Project_Files
perl Process.pl
exit{code}
At this moment everything is working well.
But my Process.pl (which is 300 lines long ... and that you don't even want to hear about), ask in a first time the Path of the folder to process and sometimes ask the path to a file (a template file).
So I need to read and wirte on the STDIN/STDOUT during the exec of the Process.
In order to handle this I created two different threads : one reading the Process.getInputStream with a BufferedReader and one other writing on the Process.getOutputStream with a PrintWrinter.
What I need to do is :
When I read a line from the InputStream saying "I need the path of the ST1.mtt file", I should run a JFileChooser ... the user find the file in the computer ... and I write in the OutputStream the path of the file, so that my Perl Script doesn't have un Unitialised value on <STDIN> and can continue to process !!
I'm pretty sure it's possible ... because at the moment I just used a trick :
When the user push the "process a folder" button, I write the paths in the OutputStream before than the script needs it and it works !
But I need to write in the OutputStream only when it is time !!!
Any idea ??
Here are some parts of my code :
{code}
String filename = File.separator+"tmp";
          JFileChooser fc = new JFileChooser(new File(filename));
          fc.setFileSelectionMode(JFileChooser.DIRECTORIES_ONLY );
          // Show open dialog; this method does not return until the dialog is closed
     fc.showOpenDialog(null);
     Folder = fc.getSelectedFile();
          new GoodExec(cmd);
{code}
{code}
public class GoodExec {
     public static Process proc;
     public static StreamGobbler errorGobbler;
     public static StreamGobbler inputGobbler;
     public static StreamGobbler outputGobbler;
     public GoodExec(String cmd)
     try
               Runtime rt = Runtime.getRuntime();
          proc = rt.exec(cmd);
     // any error message?
     errorGobbler = new
     StreamGobbler(proc.getErrorStream(), "ERROR");
     // any input?
     inputGobbler = new
     StreamGobbler(proc.getInputStream(), "INPUT");
     // any output?
          outputGobbler = new
          StreamGobbler(proc.getOutputStream(), "OUTPUT");
     // kick them off
     errorGobbler.start();
     inputGobbler.start();
     outputGobbler.start();
     // any error???
     int exitVal = proc.waitFor();
     System.out.println("ExitValue: " + exitVal);
     } catch (Throwable t)
     t.printStackTrace();
{code}
{code}
public class StreamGobbler implements Runnable
InputStream is;
OutputStream os;
String type;
Thread thread;
public static String chaine;
StreamGobbler(InputStream is, String type)
this.is = is;
this.os=null;
this.type = type;
StreamGobbler(OutputStream os, String type)
this.os = os;
this.is=null;
this.type = type;
public void start () {
     thread = new Thread(this);
     thread.start ();
public void run()
try
if (is == null){
     PrintWriter toProgram = new PrintWriter(os);
     File FolderToProcess = ProcessFolder.Folder;
String Folder = FolderToProcess.getPath();
toProgram.write(Folder);
toProgram.close();
else {
     if (os == null){
     InputStreamReader isr = new InputStreamReader(is);
BufferedReader br = new BufferedReader(isr);
String line=null;
String comp = "Please enter the exact path of the directory that contains the files you want to process.";
while ( (line = br.readLine()) != null){
     if (type.equals("INPUT")){
          chaine+=line+"\n";
     if (line.equals(comp)) {
          System.out.println("give directory");RUN A JFILECHOOSER AND GIVE THE DIRECTORY TO THE OUTPUTSTREAM
System.out.println(type + ">" + line);
is.close ();
catch (IOException ioe){
     ioe.printStackTrace();
{code}
And here is an example of a simple perl script that could be used (it s a simple one !!) :
{code}
#!/usr/bin/perl -w
use strict;
print "Please enter the exact path of the directory that contains the files you want to process.\n";
my $dir= <STDIN>;
chomp ($dir);
print "titallala $dir";
if (the template of the file is not in the database){
print "Please give me the template so that I can put it in the database";
$dir= <STDIN>;
chomp ($dir);
{code}
Thank you for your help ... if it's possible to help me !!
Gael

BalusC -- The line that gives me my NullPointerException is when I call the "DisplayProduct()" method. Its a dumb question, but with NetBeans how do I find out which reference could be null? I'm not very familiar with how NetBeans works with finding out how to debug. Any help you can give me would be greatly appreciated.The IDE is com-plete-ly irrelevant. It's all about the source code.
Do you understand anyway when and why a NullPointerException is been thrown? It is a subclass of RuntimeException and those kind of exceptions are very trival and generally indicate an design/logic/thinking fault in your code.
SomeObject someObject = null; // The someObject reference is null.
someObject.doSomething(); // Invoking a reference which is null would throw NPE.

Is there any possibility running a Perl Script in JSP?

Is there any possibility running a Perl script in JSP and get the value of the JSP variable? The JSP page is running in TOMCAT 5.0 server.

i am created one script .... i want to replace it the older one ... it is possible in development server ..... is there any possibility to assingn the form in quality server ?????
is there any other way to assign the form to transaction with out using NACE?.
Well regarding you question about the system to have it assigned, ideally you need to assign it in development and mopve it up stacks. However, i aint sure of the roles you are assigned with for doing any config changes in QS. and the config needs to be done through NACE. Following is the process.
You need to first find the Output type and the standard form attached to the existing program/ tcode. This info can be fetcehd from TNAPR table. Once you have got the details, you can then get into NACE tcode to configure your new custom form instaed of the existing Standard one. Get the application type, output type from TNAPR table. Then select the particular outpput type in NACE nad click on processing routine. This is the place where the new form name needs to be updated.
Hope this helps!
Cheers!
Varna
Edited by: Varna17 on Sep 24, 2009 7:10 AM

Problem in running Perl script through oracle

Hi,
I am facing one problem in perl script.
" I have one perl script which is interact with sybase database.We have migrated the sybase database to oracle successfully.Now i wanna to change the perl script to interact with oracle database.
I am using the code like that for interacting the oracle database
Old Code with sybase database : use DBI::Sybase::GFAS;
New code with oracle database : Use DBI::oracle::GFAS;
When i am running the perl script,Its showing the below mentioned error:
Can't locate DBI/oracle.pm in @INC (@INC contains: C:\oracle\product\10.2.0\db_1
\perl\5.8.3\lib\MSWin32-x86 C:\oracle\product\10.2.0\db_1\perl\5.8.3\lib/MSWin32
-x86-multi-thread C:\oracle\product\10.2.0\db_1\perl\5.8.3\lib C:\oracle\product
\10.2.0\db_1\perl\5.8.3\lib\MSWin32-x86 C:\oracle\product\10.2.0\db_1\perl\site\
5.8.3 C:\oracle\product\10.2.0\db_1\perl\site\5.8.3\lib/MSWin32-x86-multi-thread
C:\oracle\product\10.2.0\db_1\perl\site\5.8.3\lib C:\oracle\product\10.2.0\db_1
\sysman\admin\scripts C:/Perl/lib C:/Perl/site/lib .) at hello.pl line 4.
BEGIN failed--compilation aborted at hello.pl line 4.
Anyone have any idea about this error.
Thx in advance.

If you look in the oracle home in the perl\site\5.8.3\lib\MSWin32-x86-multi-thread directory you will see two directories. Once is DBI and one is DBD.
All you need in your perl program is a line 'use DBI'. It will use DBD automatically as and when required. You can specify the necessary connection information when you issue the DBI->connect statement.
I have successfully managed to connect to Oracle databases and perform DML using the software installed by default. You don't need to download and install anything else.
I'm no perl expert so maybe some functionality is missing using the interfaces provided by Oracle but for my needs it has sufficed.
Hope this helps.

JSP execute a Perl script

I want to call a Perl script from my JSP page, but how if I want to return some values from the Perl script back to the JSP page?

Well let's say you were calling the perl script from another perl script, how would you "return" the values? Normally this is done by doing form submits or using url parameters.

AD user script to populate the IPPHONE attribute with the last 4 digits of the Telephonenumber attribute

Good Afternoon Scripting Guys. I have a script that I have been working with pretty much all day today and just cant quite get it to play nice. Our objective is to search AD for specific users (say filtering them out with a username that starts with a "T")
and User account is "Enabled" then grab the last four digits of their phone number (phone number is set up as follows: (800) 123 456 ) then populate the IPPHONE attribute with the last four digits of their phone number. I have read a ton of online
blogs with users successfully making this happen but it appears that they are all using Quest (as the commands are all Get-qaduser and Set-qaduser). I need something that runs strictly in native Active Directory Module PowerShell on a Windows Server 2008r2
Domain Controller. I am also trying to keep it as simple as possible by using a Get command, then piping a Set command. I have saved the script into a .ps1 file with the logic as follows:
$SelUsers = Get-ADUser -filter {(SamAccountName -like "t*")} -Properties ipphone,telephonenumber -searchbase "OU=Test Users,OU=Temporary Org,OU=Test_Domain Users,DC=mydomain,DC=com" | where {($_.enabled -eq $True)}
foreach ($user in $SelUsers)
{$user.ipphone = $user.telephonenumber(4,$User.telephonenumber.length-4)
set-aduser -instance $user}
What is happening is kind of funny, but aggravating at the same time. When we run the script, it completes with no errors. When I pull up the properties of a user in the OU, the IP Phone field is populated with the number 8. If the User
account did not have a telephone number, the IP Phone field is populated with a -4. So, apparently, the script is somehow subtracting the "-4" from the number of all of the Telephone Number field's characters. Basically 12-4 is 8.
If there is no telephone number, then 0-4 is -4. I have run the Get-ADUser portion of the script independently so I know its getting the correct users. I also know it is populating the IPPHONE attribute but not with the last 4 digits of the telephone
number. Can you guys help out and maybe get this to work correctly? Also, can you add logic to it to the script to delete any value in the IPPHONE field first, then replace it with the last 4 digits of the telephone.
Any help would be GREATLY appreciated!!!!! Thanks Guys...
Lee

First thing I would do is modify your filtering. This will remove the unneeded piping to the Where-Object cmdlet and also allow us to only return users who already have something in the telephoneNumber field. It is possible this could return all of your
users, but if you have service accounts, etc. that do not have a telephoneNumber then they will not be included in your results. It's just a little cleaner.
$SelUsers = Get-ADUser -filter {(SamAccountName -like 't*' -and Enabled -eq $True -and TelephoneNumber -like '*')}
I suspect you may have a made a mistake when you entered what your phone numbers looks like. I assume that you forgot a final digit. If this is correct, and you have a space in the phone number between the three digits and the final four then you can use
the split method to grab the last four digits.
Foreach ($User in $SelUsers) {
$Number = $User.telephoneNumber.split(' ')[-1]
Set-ADUser -Identity $User -Replace @{ipPhone=$Number}
There's no reason to delete what's in the field first because that's part of what the -Replace parameter will do anyway. This should help get you started!

Marketing attributes with free selection entry in Script IC Web 5.0

Hi Experts,
We are working with script in IC Web Client (CRM 5.0). Answers are updating marketing attributes. Next time agent is calling he has the information of the last call.
There are some information that requiere free selection of text entry. We can obtain such marketing attributes leavind the value field empty. This works fine for type "characters" or "date" of marketing attributes.
How can I obtain the update of such marketing attributes in IC Web Client?
Hoping for your help.
Cristina

Have a look at cookbook (para CRM 4.0) to see how to publish the BDC contexts.

Perl script to delete attributes with space value

Similar Messages

Maybe you are looking for