perldoc -f grep
--- Javeed SAR <[EMAIL PROTECTED]> wrote: > Hi
all,
>
> What is the UNIX grep equivalent in perl?
>
> For eg:
> @vobs=`cleartool lsvob -s -host blrk4005a|grep
> $vob_tag`;
>
> here the grep is UNIX grep?
> What about in perl is there any function equivalent?
>
> Regards
> j
Hi all,
What is the UNIX grep equivalent in perl?
For eg:
@vobs=`cleartool lsvob -s -host blrk4005a|grep $vob_tag`;
here the grep is UNIX grep?
What about in perl is there any function equivalent?
Regards
j
> my @ip = $ipcf =~ m/IP Address.*?:\s+(\d+)\.(\d+)\.(\d+)\.(\d+)/;
> (@ip == 4) || die "cant parse ip address from ipconfig\n";
> my $ipaddress = "$ip[0].$ip[1].$ip[2].$ip[3]";
> print "ip address = $ipaddress\n";
It seems like you are breaking up the ip only to put it ba
Write the output from AppleScript in a file and from
that file your Perl Script can read the data. Also you
can invoke your Perl Script directly from AppleScript.
--- montana <[EMAIL PROTECTED]>
wrote: > I am trying to combine the powers of
applescript and
> perl to better search data on some
David Garamond <[EMAIL PROTECTED]> wrote:
> david wrote:
>> sub main::open{
>> #-- testing purpose
>> if($_[0] =~ m#^/#){
>> die("Access under / not allowed\n");
>> }else{
>> open(FILE,$_[0]) || die $!;
>> return FILE;
>>
i wonder if there is a way we can do this wrapping with the 'require'
opcode top. i.e., i want to allow the 'require' opcode but trap every
'require' statements through my checking subroutine, which will only
allow certain perl modules to be imported by the untrusted code.
--
dave
David Garam
Greetings!
I've had this script configured and running on two other servers without any
problems. I'll be a monkeys uncle if I can get this to run on the new server
we have moved to. This is a Linux based server and I do have a modified
wwwboard script running without problems. Script was uploade
Hi Dan -
Try this (not elegant, but works for me):
use strict;
use warnings;
my $ipcf = `ipconfig`;
$ipcf || die "ipconfig don't work\n";
my @ip = $ipcf =~ m/IP Address.*?:\s+(\d+)\.(\d+)\.(\d+)\.(\d+)/;
(@ip == 4) || die "cant parse ip address from ipcon
How would I get the IP address that is dynamically assigned to my modem
and assign it to a variable? I'm using windows and would prefer not to
use Win32::Registry. Thanks for any help.
Dan Cox
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
david wrote:
> sub main::open{
> #-- testing purpose
> if($_[0] =~ m#^/#){
> die("Access under / not allowed\n");
> }else{
> open(FILE,$_[0]) || die $!;
> return FILE;
> }
> }
>
> my $fh = &open('whatever');
oh, i di
David wrote:
>
> i am not aware of any module that masks Perl functions. you can create your
> own though.
>
> sub main::open{
>
> [snip]
perldoc perlsub
[snip]
Overriding Built-in Functions
Many built-in functions may be overridden, though this
should be tried only occas
David Garamond wrote:
> david wrote:
>> i won't say it's broken, it's just that the Safe.pm is not finalized yet
>> and thus will undergo(probably) major changes even in the interface
>> level. example:
>
> thanks for providing the example, david. i've been reading the Safe.pm
> and the Opcode d
Hi,
I have successfully sent just plain text emails using sendmail but can I send HTML
emails, I have tried this with no success.
$from="foo\@bar.com";
$to= shift;
$subject="Latest News!";
$sendmailpath="/usr/sbin/sendmail";
open (SENDMAIL, "| $sendmailpath -t");
print SENDMAIL "Subject: $sub
On Mon, Oct 07, 2002 at 03:54:53PM +0200, Pravesh Biyani wrote:
> $lofile = " somefile";
>
> and call the function
>
> file_read(lofile) ;
>
> where function is :
>
>
> sub file_read
> {
>
> while (<$_[0]>)
>
> blah..blah..
>
> }
It's not entirely clear from your code what you intended t
Nkuipers wrote:
>>My question then, is how do you pass variables to perl script from the
>>Unix command line and how are those variables processed within the script?
>>More than likely, the variables will need to be passed to either an array
>>or hash.
>
> Well, there are two main ways I know of
[EMAIL PROTECTED] wrote:
> Good evening all .
> I am' trying to use the NOHANG function in my script for to maintain on
NOHAND(WNOHANG) is not a function :-)
> live a process until the child process end its job.
> but something go wrong .
> when I run the script all work fine until i must to es
Pravesh Biyani wrote:
> hi
> this is regarding my last post ..
>
> there was this confusion about the suggested methoed which would work when
> we pass file desc as one of the input to a function. I amstill not clear
> about the concept.
>
> is this ok:
>
> $file =" file_read($file)
> sub fil
david wrote:
> i won't say it's broken, it's just that the Safe.pm is not finalized yet and
> thus will undergo(probably) major changes even in the interface level.
> example:
thanks for providing the example, david. i've been reading the Safe.pm
and the Opcode documentation, and i am seeing a
[EMAIL PROTECTED] wrote:
> Hello Is there a function to test if a given.jpg file is a valid jpg file?
> thanks
if you don't want to install/load another module, try:
#!/usr/bin/perl -w
use strict;
if(is_jpeg('your file')){
print "it's a valie jpeg\n";
}else{
print "doesn't look
David Garamond wrote:
> i'm looking for something like a sandbox/compartment (like rexec module
> in python) so that i can be [reasonably] confident running untrusted
> snippets of code from inside the same process.
>
> Safe.pm seems like the perl way of doing it, right? however, from what i
> s
Fogle Cpl Shawn B wrote:
>
> Jesus! Thanks! Especially with the newline chomp thing. That was pretty
> retarded but I would have never noticed. ;)
>
> I really didn't need a count function there at all (as I learned from
> searching the web today that $flac_count = $#music_list). I keep trying t
Jerry Preston wrote:
>
> Hi!,
>
> This is working, but is getting to be to big. Is there a better way?
>
> +: JERRY : SCRAP AND HOLD : C-1234567-02 : = 3 sites outside [ 1.,
> 10. ] *
>
> ( $parm[ $p ], $t1, $t2, $t3, $header, $number_, $count[ $p ],
> $site[ $p ], $t4, $t5, $mi
Hello all.
I have a program that if a member bypasses make their payment, it recorder their
IP, Date, and time into a log file.
I'm setting up an admin page to login and view the contents.
Its listed in the text file as 19.254.63.98 | Oct 3 2002 | 9:58 |
I open the directory like this.
opendir
Nyimi Jose wrote:
> Hello,
>
Hi there!
>
> My question is:
> Once I develop my Application(GUIs) and so one, how to deploy it to users
> ? If my users are using PC (Windows OS) and they don't Perl installed on
> their PC, - should I go and installed Perl on each user's PC : I don't
> think that
Silverfox wrote:
> Sanko Robinson wrote:
>
>> "Silverfox" wrote...
>> : hey All, am trying to use the Aim module and getting this error:
>> : Code =
>> : #!/usr/bin/perl -w
>> :
>> : use Net::AIM;
>> : $aim = new Net::AIM;
>> : $aim->newconn(Screenname =>'anything',
>> :
Sanko Robinson wrote:
> "Silverfox" wrote...
> : hey All, am trying to use the Aim module and getting this error:
> : Code =
> : #!/usr/bin/perl -w
> :
> : use Net::AIM;
> : $aim = new Net::AIM;
> : $aim->newconn(Screenname =>'anything',
> : Password =>'duh',)
> :
Steve wrote:
>
> I am using Windows 98 and ActiveState Perl. I have a log file that after a
> certain size is truncated and reused. I have written a simple script to
> copy that file to another file using File::Copy. Is there a way to make
> sure the second file is appended instead of overwrit
Jenda Krynicky wrote:
>
> And I do not believe you have mail.ax.ax.com in the settings. I'd bet
> it's mail.ax.com.
$ host ax.ax.com
Host not found.
$ host ax.com
ax.com has address 63.140.192.41
ax.com mail is handled (pri=10) by mail.ax.com
That appears to be the case. :-)
John
--
use Per
On Mon, Oct 07, 2002 at 02:37:13PM -0400, Jason Frisvold wrote:
> Thanks, I'm looking into it now... :)
>
> We were specifically wondering if there was something that could count
> loops, count db calls, and related items like that ... It looks like
> this profiler will tell you the time spent
--- Jason Frisvold <[EMAIL PROTECTED]> wrote:
> Does anyone know if there is a Perl Profiler (Open Source or Commercial)
> that is in existance? Apparently my boss thinks this will magically fix
> various issues... :)
Perl has many tools for this. However, profiling tools are generally used to
how would i go about determining if my perl install was built with
PERL_EMERGENCY_SBRK? this option allows you to use an emergency memory pool to debug
scripts when memory consumption goes out of control.
the "perl -V" command will show what flags were used during an install, but here's my
p
On Monday, October 7, 2002, at 01:26 PM, Nikola Janceski wrote:
> There is no magic in programming, just ones and zeros.
Sure there is, in Perl especially! ;)
magic - Technically speaking, any extra semantics attached to a
variable such as $!, $0, %ENV, or %SIG, or to any tied variable.
Ma
It can tell you all these things, you just need to massage it correctly,
and know your app well enough to associate subroutine names with
implementations. (you should read the man page for dprofpp as well,
that's the DProf profile parser which allows you to interperet your
trace files. For
A profiler is basically a program that watches another program run and
outputs information on how long it ran, uses of variables, memory
accesses, looping information, etc. It can be really helpful when
you're trying to figure out where the bottleneck in a particular program
is... It can also te
Thanks, I'm looking into it now... :)
We were specifically wondering if there was something that could count
loops, count db calls, and related items like that ... It looks like
this profiler will tell you the time spent in subroutines, but not more
specifics? Of course, I need to do more read
perldoc Devel::DProf
It's a very useful and functional profiler (IMHO).
George
Jason Frisvold wrote:
>Does anyone know if there is a Perl Profiler (Open Source or Commercial)
>that is in existance? Apparently my boss thinks this will magically fix
>various issues... :)
>
--
To unsubscr
There is no magic in programming, just ones and zeros.
but I am sure others have the same question as me...
What the heck is a Profiler? Where have you seen one before?
> -Original Message-
> From: Jason Frisvold [mailto:[EMAIL PROTECTED]]
> Sent: Monday, October 07, 2002 2:24 PM
> To:
Does anyone know if there is a Perl Profiler (Open Source or Commercial)
that is in existance? Apparently my boss thinks this will magically fix
various issues... :)
--
---
Jason 'XenoPhage' Frisvold
Senior ATM Engineer
Penteledata Engineering
[EMAIL PROTECTED]
RedHat C
To build Crypt::Idea we need to add:
#define sv_undef PL_sv_undef
to the top of IDEA.xs before trying to compile.
from:
http://www.cpan.org/modules/by-authors/Lincoln_D_Stein/Crypt-CBC-2.01.readme
we get:
This is Crypt::CBC, a Perl-only implementation of the cryptographic
cipher block chaini
I can install any program as a service but when I try to start the perl program it
fails.
So I tried a batch file:
perl program.pl
which did start the program but when I try to stop the program the perl.exe kept
running
Thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional comma
>My question then, is how do you pass variables to perl script from the Unix
>command line and how are those variables processed within the script? More
>than likely, the variables will need to be passed to either an array or hash.
Well, there are two main ways I know of to pass vars to Perl from
It seems to be coming along now. My CPAN install
failed (with a bug of itz own I think) on fetching
Math::Pari the hook to fetch from:
ftp://megrez.math.u-bordeaux.fr/pub/pari/unix/
did not detect a failed ftp download.
I'm making progress step by step (inch by inch)
The "make test" on these p
I need to stop modifing the code I made in perl for a web application.
I am using Linux and I have a web space in hosting.
This software read a database and print string on a browser
Is coding using perlcc possible mantaining .pl extension ?
Regards
dave
--
To unsubscribe, e-mail: [EMAIL
Good evening all .
I am' trying to use the NOHANG function in my script for to maintain on
live a process until the child process end its job.
but something go wrong .
when I run the script all work fine until i must to esc form the "cicle"
ops! here the program sometime esc and sometime no!!
th
Weekly posting statistics for perl.beginners - week 40 of 2002.
>From Monday 2002-09-30 to Sunday 2002-10-06 there were
382 articles posted (17592 lines) by 114 authors, giving an average
3.35 articles per author, and an average article length of 46 lpa.
The average number of articles per day w
I've installed Perl 5.8, and had it compile with iThread support. However I
can't figure out how to use it, despite reading the perldoc a few dozen
times, it doesn't make sense to me. What I want to do, is to have 2 threads,
1 thread will contain my program which mustn't be disturbed, and the othe
sub random { my $music_phile = $_[rand @_]; }
# The @$ is used to get to the array from the array reference that is
# passed into the sub. I will explain the code as given in
# perldoc -q shuffle
sub fisher_yates_shuffle {
my $deck = shift; # $deck is a reference to an array
my $i = @
I am trying to combine the powers of applescript and perl to better search data on
some flat files. Because I'm using a Mac, I do not believe there is GUI toolkit for
Perl and OSX "Aqua", so I'm using the GUI tools associated with AppleScript to gather
the data from the user. Applescript will t
Please be informed that Nigel Peck no longer works for this company. He
has started his own web development company and will no doubt be in
contact in due course.
Regards
Mark Crowston
>>> "Bruno Negrao - Perl List" <[EMAIL PROTECTED]> 07/10/2002
15:12:34 >>>
RE: Regular expressionHi Javeed.
Thi
Well I managed to locally install it on the box that I use.
Unix, FreeBSD, 4.6.2-RELEASE
Dan
"Peterkorman" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
On Mon, Oct 07, 2002 at 06:51:05AM -0400, zentara wrote:
> On Sun, 6 Oct 2002 19:28:22 +0100, [EMAIL PROTE
Sanko Robinson wrote:
> "Silverfox" wrote...
> : hey All, am trying to use the Aim module and getting this error:
> : Code =
> : #!/usr/bin/perl -w
> :
> : use Net::AIM;
> : $aim = new Net::AIM;
> : $aim->newconn(Screenname =>'anything',
> : Password =>'duh',)
> :
Hi!,
This is working, but is getting to be to big. Is there a better way?
+: JERRY : SCRAP AND HOLD : C-1234567-02 : = 3 sites outside [ 1.,
10. ] *
( $parm[ $p ], $t1, $t2, $t3, $header, $number_, $count[ $p ],
$site[ $p ], $t4, $t5, $min, $max ) =
/\+:\s+(\w+)\s+:\s+(\w+)\s+
hi
this is regarding my last post ..
there was this confusion about the suggested methoed which would work when we pass
file desc as one of the input to a function. I amstill not clear about the concept.
is this ok:
$file ="
blah blah
}
will this work ?
pravesh
encode for what purpose and on what os?
we use perlcc on linux systems to stop our customers reading our firewall
scripts. if you are on windows then you could try perlapp or perl2exe
On Mon, Oct 07, 2002 at 05:29:07PM +0200, Davide Copelli wrote:
> Hello,
> can anybody know how to encode a perl
Jerry Preston wrote:
> Hi!,
>
> I am look for a better way and a faster way to deal with a 4 - 8 meg data
> file. This file has been saved as an .cvs file for excel to read in.
>
> All I am interested in is the first three cells of ',' delimited data.
>
> Die,Row 0, Column 11
> Test Result,
Hello,
can anybody know how to encode a perl script ?
I have tried a sofware "World Wide Perl Coder" but I don't know if
is safe !
Dave
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Check out ActiveState's PerlApp that comes with their Perl Dev Kit. It does
a very good job of packaging your Perl scripts in a compressed executable
that will extract and then run the script without Perl having to be
installed on the target machine.
There is also a product called perl2exe whic
Hello,
I start (3 days ago) learning: "Writing GUI with Perl".
I bougth the book "Mastering Perl/Tk" from Oreilly : hope made a good choice :-)
My question is:
Once I develop my Application(GUIs) and so one, how to deploy it to users ?
If my users are using PC (Windows OS) and they don't Perl i
Sorry for not explaining better. See commments below.
-Original Message-
From: Mat Harris [mailto:[EMAIL PROTECTED]]
Sent: Monday, October 07, 2002 7:24 AM
To: Timothy Johnson
Cc: 'Steve'; [EMAIL PROTECTED]
Subject: Re: File::Copy question
if you want to append to a second file then y
if you want to append to a second file then you should use ">>" when
opening, not ">" or you will delete the text already there. if it was just
a typo then ignore me.
On Mon, Oct 07, 2002 at 07:20:29 -0700, Timothy Johnson wrote:
>
> If you want to append the contents of one file to another, the
If you want to append the contents of one file to another, then you will
have to open both files, read the first one, and write it to the second one.
Something like this should work:
##
use strict;
use warnings;
open(LOG,"mylog.log") || die "Couldn't open logfile for readin
RE: Regular expressionHi Javeed.
This code:
foreach (@attt) {
/=/ && ( ($out) = (split (/=/))[1] );
}
stores the string "HELLO" in the variable $out. Then, if you issue print "$out" you
would get a "HELLO".
But when I read your e-mail again I realized that you want to store the entire last
Well the thing will work but its useless because you
are not reading from the file here. You are applying
the while loop on a scalar instead of providing it
with the file desc that it needs for the "logical
processing".
--- "Daryl J. Hoyt" <[EMAIL PROTECTED]> wrote:
> You can pass in a variable
Read the Hashed Part ()
--- Pravesh Biyani <[EMAIL PROTECTED]> wrote: > Hi
> can i pass the file variable in the function..
>
> for eg.
>
> $lofile = " somefile";
>
> and call the function
>
## The way you have defined file_read
## you should pass the handle of the file
## by opening it
You can pass in a variable it would be something like this:
$lofile = " somefile";
file_read($lofile) ;
sub file_read($)
{
my ($file) = @_;
while (<$file>)
blah..blah..
}
Daryl J. Hoyt
Software Engineer
Geodesic Systems
312-832-2010
< http://www.geodesic.com>
< mailto:[EMAIL PROTECTED]>
Hi
can i pass the file variable in the function..
for eg.
$lofile = " somefile";
and call the function
file_read(lofile) ;
where function is :
sub file_read
{
while (<$_[0]>)
blah..blah..
}
Pravesh
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail:
I am using Windows 98 and ActiveState Perl. I have a log file that after a
certain size is truncated and reused. I have written a simple script to
copy that file to another file using File::Copy. Is there a way to make
sure the second file is appended instead of overwritten, using File::Copy
> if($DEBUG)
> {
>$| = 1;
>open(STEER, ">&STOUT");
> }
Erm ... did not you mean
open(STDERR, ">&STDOUT");
?
> # Set this variable to your POP3 server name
> my $Server Name = "mail.ax.ax.com";
Variable name with a space in the middle? Wow!
And I do not believe you have mail.a
Hi!
I am having problem with this code:
#!/usr1/local/bin/perl
#===
# How to read email with Net::POP3
# Copyright 2000, Emmy P. Lewis
# Created 02/27/00
#===
# This script is designed to show
# how to use Net::POP3 to read your
# email fr
On Sun, 6 Oct 2002 14:18:53 -0300, [EMAIL PROTECTED] ([EMAIL PROTECTED]) wrote:
>Hello Is there a function to test if a given.jpg file is a valid jpg file? thanks
You can use the "ping" method of Image:Majick and test whether
it gives an error.
###
On Mon, Oct 07, 2002 at 06:51:05AM -0400, zentara wrote:
> On Sun, 6 Oct 2002 19:28:22 +0100, [EMAIL PROTECTED] (Dan) wrote:
>
> >Am after suggestions about which Crypt:: module (or any module at that
> >matter) would be best to encrypt passwords for storage, and decrypt them
> >again for using w
On Sun, 6 Oct 2002 19:28:22 +0100, [EMAIL PROTECTED] (Dan) wrote:
>Am after suggestions about which Crypt:: module (or any module at that
>matter) would be best to encrypt passwords for storage, and decrypt them
>again for using within the script.
>
>Passwords on my script are generally required
On Mon, 7 Oct 2002, Fogle Cpl Shawn B wrote:
> I have studied
> the fisher_yates_shuffle but I can't seem to implement it to save my life.
> It would help quite a bit if I understood what "@$" is and how to
> effectively use it. I don't see it in the beginners manual (and haven't
> searched the
Fogle Cpl Shawn B wrote:
>
> I created a simple little program to play my flac files (see
> http://flac.sf.net) randomly, this is my first program of any time to take
> it easy on me (and I know I'm not too stylish, and I love one liners). The
> problem is that when I play the files, I want it to
There is no such pre-defined variable @$.
Its $@ which gives you the Perl syntax error message
from the last eval() operator.
Regards
Dharmeder Rai
--- Fogle Cpl Shawn B <[EMAIL PROTECTED]> wrote:
> I created a simple little program to play my flac
> files (see
> http://flac.sf.net) randomly, t
Thanks to all of you, especially Gibbs.
I got it.
Regards
j
-Original Message-
From: Sudarshan Raghavan [mailto:[EMAIL PROTECTED]]
Sent: Monday, October 07, 2002 1:46 PM
To: Perl beginners
Subject: RE: statement
On Mon, 7 Oct 2002, Javeed SAR wrote:
> sorry about that.
>
> I am r
On Mon, 7 Oct 2002, Javeed SAR wrote:
> sorry about that.
>
> I am running this script on WIN2k.
If you are running on WIN2k, shouldn't //$cmd1 be \\$cmd1. If cleartool
requires a '/' why do you have two '/' before $cmd1.
In one of your other posts you say it output's nothing, well did you che
I created a simple little program to play my flac files (see
http://flac.sf.net) randomly, this is my first program of any time to take
it easy on me (and I know I'm not too stylish, and I love one liners). The
problem is that when I play the files, I want it to go through the whole
array @music_l
Can anyone direct me to documentation about using PGP with perl. Somthing in
addition to the perldocs. I need more about than that provides. If anyone
has a script that illustrates how to call it to encrypt data before sending
it with sendmail, it would be a great help.
Dave
--
To unsubscribe
sorry about that.
I am running this script on WIN2k.
yes i checked the contents.
$cmd1 Contents are: Attributes in VOB train
$cmd2 COntents are: SYNC_CHECK
Regards
j
-Original Message-
From: Sudarshan Raghavan [mailto:[EMAIL PROTECTED]]
Sent: Monday, October 07, 2002 1:01 PM
To
No, I mean if you change it back to backticks (``) what error message is
given?
- Original Message -
From: "Javeed SAR" <[EMAIL PROTECTED]>
To: "Tanton Gibbs" <[EMAIL PROTECTED]>; "Sudarshan Raghavan"
<[EMAIL PROTECTED]>; "Perl beginners" <[EMAIL PROTECTED]>
Sent: Monday, October 07, 2002
What does your error message say?
- Original Message -
From: "Javeed SAR" <[EMAIL PROTECTED]>
To: "Tanton Gibbs" <[EMAIL PROTECTED]>; "Sudarshan Raghavan"
<[EMAIL PROTECTED]>; "Perl beginners" <[EMAIL PROTECTED]>
Sent: Monday, October 07, 2002 3:19 AM
Subject: RE: statement
> yes that is
> @cmd_merge=`cleartool lstype -kind attype -s -invob \\$cmd1`;
Here you use backslashes \\
> @attt = "cleartool desc attype:$cmd2\@vob://$cmd1";
Here you use forwardslashes //
Why the change?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Mon, 7 Oct 2002, Javeed SAR wrote:
>
>
> This is my script, what changes should i make.
How am I supposed to say that if you are not going to post the error
message?
>
>
> #+
> #!c:\perl\bin\perl
Have you tried use strict; and use warnings;. They might throw out
something int
No error messages,
It prints:
cleartool desc attype:SYNC_CHECK@vob://train
Regards
j
-Original Message-
From: Tanton Gibbs [mailto:[EMAIL PROTECTED]]
Sent: Monday, October 07, 2002 12:53 PM
To: Javeed SAR; Sudarshan Raghavan; Perl beginners
Subject: Re: statement
What does your
85 matches
Mail list logo
