The regexp in the dir() method does not account for the possibility of an underscore in either the user or group name.
ah, you speak words of great truth.
I was going to send a patch but it hardly seems worth it for the sake of two chars.
heh. that regular expression was a Hell Being growing into a Loch Ness Monster. I stole the regexps from File::Listing::line() in the libwww-perl distro... too lazy to rework things to call that. Also, got rid of a dead ftp site in the test suite and added a working one. So the tests all pass now. So, now things are somewhat more squeaky clean.
Version 5.30 is attached with the fixes. The latest version is in sourceforge CVS now...
Please feel free to get in touch with any questions. I like reading your stuff on Perlmonks :)
thanks, I am currently santonegro on perlmonks, formerly metaperl and princepawn.
I met my future wife here! hehe. And thought I should share it with any other
men who are worried about ending up alone like I was. Check it out if you like
http://mjur.findthemhere.info/zltz
Hi, I just got back from being out of town...
are you on a Unix host? you should be able to do
perl Makefile.PL LIB=/path/to/my/home/lib
and
make
make install
and set
PERL5LIB in your .bashrc or .cshrc to the same path you set LIB to above
hit me up on irc.freenode.net in the #hcoop group
I am metaperl there...
cell phone 818-359-0893, land-line 213-385-7718
--
Play me in correspondence chess:
http://slowchess.com/profile.php?username=tbrannon
Hi,
Im sorry for my ignorance here but I have what seems to be a simple
question that I cant seem to find the answere to online. How do I
install net-ftp-common on my hosting service?
Your help would be greatly appreciated.
Just thought I should pass on my knowledge to all you guys (and gals) on here. I
know just like heaps of other men I am pretty shy when it comes to going up to
someone. I've tried a few different places (clubs, bars, etc) but never seem to
have too much luck. Anyway, a few weeks ago I joined up to
http://www.dontwaitjoinnow.info/jqsb and I have to say I am already getting
excited. I was beginning to think I'd end up being alone for ever, but already
been talking to a few interested ladies on there. Anyway, if you're like me it
comes highly recommended!
I used to get all of these emails telling me i could make tons of money per
month, and like most people i just deleted them. but then i got curious and
called one. They set me up pretty fast and to my suprise it wasnt bullsh*t, it
really worked. i quit my crappy job and now making about 7k a month working from
home just a few hours a day!.
If any of you guys are interested just call and leave your details 800 9401731
Global Triad, Inc: (OTC: GTRD - Breaking News)
Trading symbol: GTRD
Current Price: .036
Target Price: .150
Expected Short Term Gain: 400 percent
Rating: 10 out of 10
::::Very Strong Buy::::
It's now a wireless world...
Wireless Internet service, it's the next big trend in the billions of dollars
being made from the Internet. It's more convenient and versatile for people on
the go than standard Internet connections. It is the wave of the future!
Global Triad, Inc. Announces:
- Completed Fourth Microwave Wireless System Installation.
- Completed Second Installation of the New Motorola Canapy(TM) Wireless System.
- Completion of the First Installation of the New Motorola Canopy(TM) Wireless
System.
- Approval to Launch a City-Wide Wireless Network.
- Recognition by Wi-Fi Planet.
- Upgrades Wireless Network For Expansion Into Nine Underserved Communities.
- Announces Exclusive Agreement to Place WiFi Antenna System in California.
- Announces that It Signed a Contract to Provide Wireless Internet Services to
an entire South Florida Community
::::BREAKING NEWS::::
FORT LAUDERDALE, FL--(MARKET WIRE)-- GLOBAL TRIAD, INC. (Other OTC: GTRD.PK ), a
publicly traded company currently on the over the counter, announced that Global
WiFi Plus, Inc. a leading provider of total solutions for wireless
communications, signed a contract to provide wireless Internet services to a
premier property in Delray Beach, Florida, consisting of over 125 luxury homes.
Under the terms and conditions of the agreement, Global WiFi will offer the
residential user an alternative from cable and DSL Internet providers and will
deliver not only high speed access with additional security, but can also
deliver additional capabilities including VoIP, Video on Demand, and IPTV
designed to broadcast "Board of Directors" meetings to the individual homes.
Global Triad Inc.
Is currently trading under the 10 to 20 cent level, which is much undervalued
with all their new cutting edge products, recent news announcements and their
short-term and long-term projected numbers. The stock has a 52 week high of 1.05
which puts its current price level at a very attractive entry level for an
investor.
If you take the time to look at this company, we know you will definitely like
what you find. The continued marketing campaign to get the public aware of the
companys products and value as an investment along with the projected sales in
2005 and profitability in the third quarter could bring huge returns for the
fast acting investor.
The Company and Products:
GTRD has three subsidiaries that are on the cutting edge of technology. The
three divisions are a perfect match for Global Triad Inc. to be a leading force
in the digital communications sector. They have a fast access broadband wireless
delivery system (WARP-SPEED) that is two times faster then DSL and also supports
video on demand with hundreds of movies and V.O.I.P. The company has its data
storage facility know as (WEBCAST). This product allows corporate users to store
their sensitive data over the Internet with SSL encryption security to the
Global XS encryption facility. This facility exceeds over 700 Terebits of
storage capacity. The company has all their products listed on their website.
Global TV, Inc (one of their subsidiaries) has signed a letter of intent with
Municipal Solutions, L.L.C. This agreement gives Global TV exclusive rights to
provide high-speed wireless broadband technologies to clients of Municipal
Solutions in more than 7 states that are key municipalities and government
agencies including the U.S. Air Force and U.S. Army.
Take the time to look at this stock it could be a real nice percentage gainer
for an investor in the short-term and a home run for the long-term investor.
DirectNewsFlash sends out public announcements providing information on selected
companies. DirectNewsFlash is not a registered investment advisor or
broker-dealer. This report is provided as an information service only and the
statements and opinions in this report should not be construed as an offer or
solicitation to buy or sell any security. DirectNewsFlash accepts no liability
for any loss arising from an investor's reliance on or use of this announcement.
An investment is considered to be highly speculative and should not be
considered unless a person can afford a complete loss of investment.
DirectNewsFlash has been compensated fivethousand dollars for this report.
Hi Alan,
> Is it possible to use Net::FTP::Common to delete files on the host, or
> do I have to use Net::FTP or some other module?
I just added a method to Net::FTP::Common to do this. There was
already one in Net::FTP --- mine just calls that one.
Version 5.2f on CPAN has the docs and new functionality. If you need
to add it fast, just add this sub, but the samples/delete-file in the
distro has a good example of it's use
sub delete {
my ($self,%cfg) = @_;
my $ftp = $self->prep(%cfg);
my $rf = $self->GetCommon('RemoteFile');
warn Dumper \%cfg;
$ftp->delete($rf);
}
### sample use
use Data::Dumper;
use Login;
use Net::FTP::Common;
our %netftp_cfg =
(Debug => 1, Timeout => 120);
$ez = Net::FTP::Common->new(\%Login::common_cfg, %netftp_config);
$ez->delete(RemoteDir => 'tmp', RemoteFile => 'upfile');
Eric Wang <ericw12@...> writes:
>> > Thanks! but the Glob warning is such a anonying warning, every
>> > script of mine using Net::Ftp::Common has it.
Ok, version 5.2d was uploaded to CPAN with a fix. All I did was add a
sub to Common.pm:
sub quit {
my $self = shift;
$self->connected and $self->GetCommon('FTPSession')->quit;
}
Thanks a lot, appreciated!
On Tue, 23 Aug 2005 17:42:36 +0000
"Terrence Brannon" <bauhaus@...> wrote:
> Eric Wang <ericw12@...> writes:
>
> > hi, Terrence,
> >
> > Thanks! but the Glob warning is such a anonying warning, every
> > script of mine using Net::Ftp::Common has it.
>
> Ok Eric, I will work on fixing that when I get home tonight. Just sit
> tight until then please :)
>
>
>
> SPONSORED LINKS
> C programming language Computer programming languages The c
programming language
> C programming language List of programming languages Programming
languages
>
>
> ------------------------------------------------------------
> YAHOO! GROUPS LINKS
>
> Visit your group "net-ftp-common" on the web.
> To unsubscribe from this group, send an email to:
> net-ftp-common-unsubscribe@yahoogroups.com
> Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
>
>
> ------------------------------------------------------------
>
>
Eric Wang <ericw12@...> writes:
> hi, Terrence,
>
> Thanks! but the Glob warning is such a anonying warning, every
> script of mine using Net::Ftp::Common has it.
Ok Eric, I will work on fixing that when I get home tonight. Just sit
tight until then please :)
On Tue, 23 Aug 2005 01:09:56 +0000
"Terrence Brannon" <bauhaus@...> wrote:
> Eric Wang <ericw12@...> writes:
>
> > Hi guys,
>
> Hi Eric,
>
> > >
> > I am using activeperl 5.8 and try to check if files are exist on a remoteftp
server,
> > but I got tons of stuff in stardard error, I guess.
> >
> > ....
> > $common_cfg = { Host => $ftpserver,
> > User => $username,
> > Pass => $password,
> > RemoteDir => $RemoteDir
> > } ;
> >
> > my $ftp = Net::FTP::Common->new($common_cfg, Debug => 0);
> >
> > $ftp->login or die sendmail($smtp,$from,$to,"Report Job: CUCBC FTP
logon failure");
>
> You never have to call login() before using a Net::FTP::Common method
>
> > foreach (@files) {
> > my $exist=$ftp->exists(RemoteFile => $_);
> > print "$_ : $exist\n";
> > }
> > $ftp->quit;
> > ...
> >
> > The script supposes only to print this
> >
> > DAIL0822.015 : 0
> >
> > But instead of it print all this crap below,
>
> sorry, here's a fix for line 249 in Common.pm
>
> warn sprintf "[checking @listing for [%s]]", $rf if $self->{Debug} ;
>
> > and with this "Not a GLOB reference at C:/Perl/lib/Net/FTP.pm line
> > 1103." Help please, I guess if this doesn't work, I will have to
> > look at LWP.
>
> That is just a warning. The docs for Net::FTP::Common discuss this in
> the NOTES section.
hi, Terrence,
Thanks! but the Glob warning is such a anonying warning, every script of mine
using Net::Ftp::Common has it.
>
>
>
> SPONSORED LINKS
> C programming language Computer programming languages The c
programming language
> C programming language List of programming languages Programming
languages
>
>
> ------------------------------------------------------------
> YAHOO! GROUPS LINKS
>
> Visit your group "net-ftp-common" on the web.
> To unsubscribe from this group, send an email to:
> net-ftp-common-unsubscribe@yahoogroups.com
> Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
>
>
> ------------------------------------------------------------
>
>
Eric Wang <ericw12@...> writes:
> Hi guys,
Hi Eric,
> >
> I am using activeperl 5.8 and try to check if files are exist on a remoteftp
server,
> but I got tons of stuff in stardard error, I guess.
>
> ....
> $common_cfg = { Host => $ftpserver,
> User => $username,
> Pass => $password,
> RemoteDir => $RemoteDir
> } ;
>
> my $ftp = Net::FTP::Common->new($common_cfg, Debug => 0);
>
> $ftp->login or die sendmail($smtp,$from,$to,"Report Job: CUCBC FTP logon
failure");
You never have to call login() before using a Net::FTP::Common method
> foreach (@files) {
> my $exist=$ftp->exists(RemoteFile => $_);
> print "$_ : $exist\n";
> }
> $ftp->quit;
> ...
>
> The script supposes only to print this
>
> DAIL0822.015 : 0
>
> But instead of it print all this crap below,
sorry, here's a fix for line 249 in Common.pm
warn sprintf "[checking @listing for [%s]]", $rf if $self->{Debug} ;
> and with this "Not a GLOB reference at C:/Perl/lib/Net/FTP.pm line
> 1103." Help please, I guess if this doesn't work, I will have to
> look at LWP.
That is just a warning. The docs for Net::FTP::Common discuss this in
the NOTES section.
Hi guys,
I am using activeperl 5.8 and try to check if files are exist on a remoteftp
server,
but I got tons of stuff in stardard error, I guess.
....
$common_cfg = { Host => $ftpserver,
User => $username,
Pass => $password,
RemoteDir => $RemoteDir
} ;
my $ftp = Net::FTP::Common->new($common_cfg, Debug => 0);
$ftp->login or die sendmail($smtp,$from,$to,"Report Job: CUCBC FTP logon
failure");
foreach (@files) {
my $exist=$ftp->exists(RemoteFile => $_);
print "$_ : $exist\n";
}
$ftp->quit;
...
The script supposes only to print this
DAIL0822.015 : 0
But instead of it print all this crap below, and with this
"Not a GLOB reference at C:/Perl/lib/Net/FTP.pm line 1103."
Help please, I guess if this doesn't work, I will have to look at LWP.
[checking aft AIBC0722.015 AIBC0723.015 AIBC0726.015 AIBC0727.015 AIBC0728.015 A
IBC0729.015 AIBC0730.015 AIBC0803.015 AIBC0804.015 AIBC0805.015 AIBC0806.015 AIB
C0809.015 AIBC0810.015 AIBC0811.015 AIBC0812.015 AIBC0813.015 AIBC0816.015 AIBC0
817.015 AIBC0818.015 AIBC0819.015 AIBC0820.015 AIBU0722.015 AIBU0723.015 AIBU072
...
5 WH020722.015 WH020726.015 WH020727.015 WH020728.015 WH020729.015 WH020803.015
WH020804.015 WH020805.015 WH020809.015 WH020810.015 WH020811.015 WH020812.015 WH
020816.015 WH020817.015 WH020818.015 WH020819.015 for [DAIL0822.015]] at C:/Perl
/site/lib/Net/FTP/Common.pm line 249.
DAIL0822.015 : 0
Not a GLOB reference at C:/Perl/lib/Net/FTP.pm line 1103.
> Hi guys,
Hi Eric!
> >
>
> I am doing this, nothing really special.
>
> use Net::FTP::Common;
>
> $common_cfg = { Host => "localhost",
> User => "eric",
> Pass => "Test123456",
> RemoteDir => "/"
> } ;
>
> $es = Net::FTP::Common->new($common_cfg, Debug => 0);
Can you do
Debug => 1
instead of Debug => 0 and post the debug output? In other words:
$es = Net::FTP::Common->new($common_cfg, Debug => 0);
$es = Net::FTP::Common->new($common_cfg, Debug => 1);
> $es->login or die print "FTP Logon Failure\n";
You never have to login before calling the Net::FTP::Common API
functions... it automatically does that.
> $es->send(LocalFile => "test.txt");
> $es->quit;
>
> I got this message back :
>
> Not a GLOB reference at C:/Perl/lib/Net/FTP.pm line 1103.
>
>
> The script still works, but it is very annoying to have this message
> back. I wonder how I can I get rid of it.
Yes, that would be annoying.
> >
> Thanks!
I hope to have this solved soon!
--
Carter's Compass: I know I'm on the right track when,
by deleting something, I'm adding functionality.
Message-ID: <6mwton3hph.fsf@...>
Hi guys,
I am doing this, nothing really special.
use Net::FTP::Common;
$common_cfg = { Host => "localhost",
User => "eric",
Pass => "Test123456",
RemoteDir => "/"
} ;
$es = Net::FTP::Common->new($common_cfg, Debug => 0);
$es->login or die print "FTP Logon Failure\n";
$es->send(LocalFile => "test.txt");
$es->quit;
I got this message back :
Not a GLOB reference at C:/Perl/lib/Net/FTP.pm line 1103.
The script still works, but it is very annoying to have this message
back. I wonder how I can I get rid of it.
Thanks!
Trust me it has never been easier to refinance your home loan at a better
interest rate saving you thousands. Check out this free service.
http://www.fastrefi.biz/?a=rcc1 take 30 seconds and fill out this free form
Hello,
I hope this group message of mine finds the reader in good health and
mood. I'm Anitha and this being my first post, I'll keep it short. You
can find the complete Computers and Internet directory here
http://www.hi-fiweb.com/directories/computing/ .
Take care,
Himani
Hello there,
Try visiting this well listed Directory on Computers and Internet! ...
Here is the link http://hi-fiweb.com/comp
Hoping to learn a lot from other group members.
Take care,
Kathy
A script I am building needs to identify and get remote files that
have changed since its last run. The easiest format for date
comparisons is the epoc time format (or anything similar that can be
used in a simple numeric or string comparision).
The FTP::Comon ls method returns the date in a hash (month string,
yearOrTime, dayofMonth). I would have to convert each item to form a
useful string (ie epoc or "YYYYMMDDHHMM") for comparision. That's
not a major task, but I was wondering if there an alternative way of
returning the date in such a manner. (Note that while Net::FTP's
mdtm method returns in Epoc, it is impractical since it only works
with individual file names).
Tom
Congratulations, you have been banned from this group.
--- In net-ftp-common@yahoogroups.com, SaRi AlShEmAl
<sari_alshemal@y...> wrote:
> السلام عليكم ورحمة الله وبركاته
> مشروع تجني منه المال وأنت جالس ... وتعتمد على جهدك كمندوب مبيعات من
خلال الانترنت.
> طريقة العمل وما فيها هي أن تقوم بعمل دعايه بين أصدقائك لموقع رسائل
جوال يقوم هذا الموقع بارسال اعلانات عن طريق الرسائل
> وبذلك تكون أنت قد جلبت الفائده لهذه الشركات ...ويخصص لك نسبة على كل
شخص تجلبه.
> يعني بالعربي الفصيح...((مندوب مبيعات)) عن طريق الإنترنت!!
> هذا هو الأمر بكل بساطه!!
> والعمليه كلها لن تأخذ منك أكثر من خمس دقائق
> ببساطه كل ماعليك فعله هو الضغط على الرابط التالي:
> http://www.smspays.com/reg_country.asp?refer=271889
> وبذلك تكون قد دعمتني ....وبعد ذلك تستطيع فتح حسابك الشخصي
> وبعد ذلك تبدأ بدعوة أصدقائك لكي يدعموك بنفس الطريقه.......وهكذا
> ويبدأ رصيدك بالزيادة شيئا فشيئا......
> =========================
> هذا نص كاتب المقال الأساسي :
> ارجو نشرها لتعم الفائدة مع تحياتي لكم
> اول شيء أحب أن أخبركم أنني أجني من هذه الخدمة حوالي
> 700 دولار شهرياً تنقص قليلاً أوتزيد !!
>
> المفاجأة في هذه الخدمة أن الاشتراك مجاني ولن يستغرق
> أكثر من 5 دقائق .. وليس مثل
> بعض المواقع الغبية المعتمدة على نظام هرم الثروة (ادفع
> مبلغ في البداية ثم اجلب
> زبائن !!).
> كل ما علينا فعله هو الضغط على الرابط التالي:
> http://www.smspays.com/reg_country.asp?refer=271889
> الإخوة الكرام .. عندما سمعت هذا الخبر قلت جرب .. ماذا
> ستخسر .. كلها 5 دقائق ..
> كم جلسنا على النت ساعات ولم نستفد شيئاً.
>
> أعتقد أنكم ستستغربون .. وتحكمون على الموضوع بشكل مسبق
> .. لأننا جميعاً نعلم أنه
> يستحيل أن توجد مثل هذه العروض .. لكن ليس في الأمر
> مفأجاة بالمعنى الحقيقي للكلمة
> .. لأنه كما قيل .. إذا عرف السبب بطل العجب !!
> الموضوع وما فيه أنهم يرسلون رسائل إعلانات إلى الجوال
> وتحصل على مقابل مادي لهذه
> الخدمة .. وعند دعوة أصدقائك يتضاعف المبلغ في حسابك
> ويرسلونها لك فيما بعد بعد قطع
> 3 دولار رسوم الإرسال (لذا يستحسن أن تترك المبلغ يتجمع
> بشكل كافي بدلاً من طلب
> إرساله على دفعات).
> وبالتالي فإن المبلغ الذي تحصل عليه ليس لوجه الله ..
> وإنما لأن الشركة المقدمة
> للخدمة تستفيد أضعافاً مضاعفة من الشركات التي تقوم
> بالإعلان عن طريقها .. أما
> المبلغ الذي تحصل عليه (وإن كان كبيراً بالنسبة للفرد)
> .. إلا أنه بالنسبة
> للشركة مقدمة الخدمة لا يُعتبر شيئاً مقارنة بالأرقام
> الفلكية التي تحصل عليها من
> تلك الشركات.
>
> المهم .. قمت بالاشتراك .. وذلك عن طريق دخول الرابط ثم
> اختيار الدولة .. بعدها
> ستظهر صفحة البيانات والتي ستقوم فيها بادخال بيانات
> الإسم وصندوق البريد والإيميل
> ... الخ.
> ستصلك رسالة فيها رقم حسابك تستطيع من خلاله أن تدخل
> الموقع وتراقب رصيدك فيما بعد.
>
> في بداية اشتراكي وفي أقل من شهر وصلني شيك بـ 565 دولار
> بالضبط !! قلت لعلها
> البداية فقط .. ولكنني الآن وبعد مرور 3 أشهر وبعد
> اكتشافي للسر وراء هذه الخدمة ..
> تأكد لدي بما لا يدع مجالاً للشك أنها من أفضل الوسائل
> للشخص البسيط لدعم الجهاد
> مادياً.
> لكن أهم شيء لتحصل على مبالغ كبيرة هو دعوة أصدقائك
> للتسجيل عن طريق اعطاءهم الرابط
> الذي سيصلك على إيميلك ليسجلوا من خلاله
> (أنا أنصح بـ 10أصدقاء على أقل تقدير)
> وجعلهم يدعون أصدقائهم كذلك .. وهكذا...
> وإليكم رابط الخدمة :
> http://www.smspays.com/reg_country.asp?refer=271889
> ارجو منكم الضغط على الرابط ومن ثم ترك الرقم كما هو
> واختيار الدولة
> ومن بعدها يقوم الشخص بالتسجيل
> عند ضغطك للرابط سيظهر لك مستطيلين الاول يوجد به رقم
> اتركه كما هو والآخر ضع به بلدك
> واذا هناك اي سؤال انا بالخدمة للشرح
>
>
>
>
>
>
>
>
>
> ---------------------------------
> Do you Yahoo!?
> Meet the all-new My Yahoo! – Try it today!
السلام عليكم ورحمة الله وبركاته مشروع تجني منه المال وأنت جالس ... وتعتمد على جهدك كمندوب مبيعات من خلال الانترنت. طريقة العمل وما فيها هي أن تقوم بعمل دعايه بين أصدقائك لموقع رسائل جوال يقوم هذا الموقع بارسال اعلانات عن طريق الرسائل وبذلك تكون أنت قد جلبت الفائده لهذه الشركات ...ويخصص لك نسبة على كل شخص تجلبه. يعني بالعربي الفصيح...((مندوب مبيعات)) عن طريق الإنترنت!! هذا هو الأمر بكل بساطه!! والعمليه كلها لن تأخذ منك أكثر من خمس دقائق ببساطه كل ماعليك فعله هو الضغط على الرابط التالي: http://www.smspays.com/reg_country.asp?refer=271889 وبذلك تكون قد دعمتني ....وبعد ذلك تستطيع فتح حسابك الشخصي
وبعد ذلك تبدأ بدعوة أصدقائك لكي يدعموك بنفس الطريقه.......وهكذا ويبدأ رصيدك بالزيادة شيئا فشيئا......
========================= هذا نص كاتب المقال الأساسي : ارجو نشرها لتعم الفائدة مع تحياتي لكم
اول شيء أحب أن أخبركم أنني أجني من هذه الخدمة حوالي 700 دولار شهرياً تنقص قليلاً أوتزيد !!
المفاجأة في هذه الخدمة أن الاشتراك مجاني ولن يستغرق أكثر من 5 دقائق .. وليس مثل بعض المواقع الغبية المعتمدة على نظام هرم الثروة (ادفع مبلغ في البداية ثم اجلب زبائن !!).
كل ما علينا فعله هو الضغط على الرابط التالي: http://www.smspays.com/reg_country.asp?refer=271889 الإخوة الكرام .. عندما سمعت هذا الخبر قلت جرب .. ماذا ستخسر .. كلها 5 دقائق .. كم جلسنا على النت ساعات ولم نستفد شيئاً.
أعتقد أنكم ستستغربون .. وتحكمون على الموضوع بشكل مسبق .. لأننا جميعاً نعلم أنه يستحيل أن توجد مثل هذه العروض .. لكن ليس في الأمر مفأجاة بالمعنى الحقيقي للكلمة .. لأنه كما قيل .. إذا عرف السبب بطل العجب !!
الموضوع وما فيه أنهم يرسلون رسائل إعلانات إلى الجوال وتحصل على مقابل مادي لهذه الخدمة .. وعند دعوة أصدقائك يتضاعف المبلغ في حسابك ويرسلونها لك فيما بعد بعد قطع 3 دولار رسوم الإرسال (لذا يستحسن أن تترك المبلغ يتجمع بشكل كافي بدلاً من طلب إرساله على دفعات).
وبالتالي فإن المبلغ الذي تحصل عليه ليس لوجه الله .. وإنما لأن الشركة المقدمة للخدمة تستفيد أضعافاً مضاعفة من الشركات التي تقوم بالإعلان عن طريقها .. أما المبلغ الذي تحصل عليه (وإن كان كبيراً بالنسبة للفرد) .. إلا أنه بالنسبة للشركة مقدمة الخدمة لا يُعتبر شيئاً مقارنة بالأرقام الفلكية التي تحصل عليها من تلك الشركات.
المهم .. قمت بالاشتراك .. وذلك عن طريق دخول الرابط ثم اختيار الدولة .. بعدها ستظهر صفحة البيانات والتي ستقوم فيها بادخال بيانات الإسم وصندوق البريد والإيميل ... الخ.
ستصلك رسالة فيها رقم حسابك تستطيع من خلاله أن تدخل الموقع وتراقب رصيدك فيما بعد.
في بداية اشتراكي وفي أقل من شهر وصلني شيك بـ 565 دولار بالضبط !! قلت لعلها البداية فقط .. ولكنني الآن وبعد مرور 3 أشهر وبعد اكتشافي للسر وراء هذه الخدمة .. تأكد لدي بما لا يدع مجالاً للشك أنها من أفضل الوسائل للشخص البسيط لدعم الجهاد مادياً.
لكن أهم شيء لتحصل على مبالغ كبيرة هو دعوة أصدقائك للتسجيل عن طريق اعطاءهم الرابط الذي سيصلك على إيميلك ليسجلوا من خلاله (أنا أنصح بـ 10أصدقاء على أقل تقدير) وجعلهم يدعون أصدقائهم كذلك .. وهكذا... وإليكم رابط الخدمة : http://www.smspays.com/reg_country.asp?refer=271889 ارجو منكم الضغط على الرابط ومن ثم ترك الرقم كما هو واختيار الدولة ومن بعدها يقوم الشخص بالتسجيل عند ضغطك للرابط سيظهر لك مستطيلين الاول يوجد به رقم اتركه كما هو والآخر ضع به بلدك واذا هناك اي سؤال انا بالخدمة للشرح
Sandeep Ramareddy wrote:
>
> my $FTP = Net::FTP::Common->new(\%FTP_Config, \%Common_cfg);
This line doesn't look right, read the docs for version 3.9 and you will see how
this is supposed to be done:
http://search.cpan.org/~tbone/Net-FTP-Common-3.9/lib/Net/FTP/Common.pm
also, I do not see a transcript of your error messages for this run, so I don't
know what went wrong. I read the above and see that you logged in as anonymous.
please keep the discussion on the mailing list.
--
Terrence Brannon, terry@...
Terrence Brannon wrote:
>
> if you use Net::FTP::Common, then you need to do this:
>
> if (! $FTP->login()) {
>
> or you can do this:
>
> if (! $FTP->login(Host => $Host)) {
>
but also note: you _never_ need to call login() when using Net::FTP::Common - it
automatically logs you in before performing any of its other API calls.
--
Terrence Brannon, terry@...
Sandeep TR wrote:
> hello,
Hi Sandeep
> my $FTP = Net::FTP::Common->new(\%FTP_Config, \%Common_cfg);
> &Debug($FTP);
> my $Host = "192.168.1.1";
> my ($SrcFile, $CopyOp,$Error, $ConfFile);
here, you are calling Debug() before $HOST is defined. I don't see how $HOST can
get defined. If you include the complete program, that might be better.
also, does this program use strict and use warnings?
most perl programs should do that
>
> # can we login to the machine?
> print "Attempting to access host: $Host\r\n";
> if (! $FTP->login($Host)) {
*** THIS IS YOUR PROBLEM ***
You called $FTP->login($Host)
The Net::FTP::Common login() function expects a hash to be supplied or no
arguments to be supplied, not a scalar. Perhaps you meant to use Net::FTP and
not Net::FTP::Common?
if you use Net::FTP::Common, then you need to do this:
if (! $FTP->login()) {
or you can do this:
if (! $FTP->login(Host => $Host)) {
> $Error = "Error, access device at $Host check cables and make sure
> device is defaulted";
> &ReturnResults($Error);
> &Debug($Error);
> die $Error;
> }
> ....
> ...
> ....
> }
>
>
> *when i run this program i get the error as :- *
>
> Release IP Address for TestNIC
> Renew IP Address for TestNIC
> Attempting to access host: 192.168.1.1
Interesting, $HOST is defined. I don't see how it could've been defined based on
the script that I saw.
> Net::FTP>>> Net::FTP(2.72)
> Net::FTP>>> Exporter(5.562)
> Net::FTP>>> Net::Cmd(2.24)
> Net::FTP>>> IO::Socket::INET(1.25)
> Net::FTP>>> IO::Socket(1.26)
> Net::FTP>>> IO::Handle(1.21)
> Net::FTP: Unexpected EOF on command channel at zyxel.pl line 43
> FATAL: attempt to create Net::FTP session failed.
> Most likely reason for this is lack of internet connectivity.
Please install the attached version of Net::FTP::Common. It has better
debugging. I just uploaded it to CPAN.
>
>
> I am still new to this filed, i belive they are many
> people in this group with expertise in this field can some one help me
> out of this situation, its critical for me to get this thing going.
>
Don't worry. We'll help you out :)
i am sandeep, a new mwmmber of this group, while running my program i came across a ftp error,when i tried to search for the same i came across this group, i thought some one here can help me out ,
my perl progarm tries to ftp into device but it is not able to where as i can do the same with same user name and password through the cmd line.
the details follows:-
sub PrepZyXEL {
my %FTP_Config = ( Debug => 0, Timeout => 30 ); my %Common_cfg = ( User => 'admin', # overwrite anonymous user default Pass => '1234', # overwrite list@... pass default Dir => ' ', # overwrite slash
default Type => ' I ' # overwrite I (binary) default ); my $FTP = Net::FTP::Common->new(\%FTP_Config, \%Common_cfg); &Debug($FTP); my $Host = "192.168.1.1"; my ($SrcFile, $CopyOp,$Error, $ConfFile);
# can we login to the machine? print "Attempting to access host: $Host\r\n"; if (! $FTP->login($Host)) { $Error = "Error, access device at $Host check cables and make sure device is defaulted"; &ReturnResults($Error); &Debug($Error); die $Error; }
....
...
....
}
when i run this program i get the error as :-
Release IP Address for TestNIC Renew IP Address for TestNIC Attempting to access host: 192.168.1.1 Net::FTP>>> Net::FTP(2.72) Net::FTP>>> Exporter(5.562) Net::FTP>>> Net::Cmd(2.24) Net::FTP>>> IO::Socket::INET(1.25) Net::FTP>>> IO::Socket(1.26) Net::FTP>>> IO::Handle(1.21) Net::FTP: Unexpected EOF on command channel at zyxel.pl line 43 FATAL: attempt to create Net::FTP session failed. Most likely reason for this is lack of internet connectivity.
I am still new to this filed, i belive they are many people in this group with expertise in this field can some one help me out of this situation, its critical for me to get this thing going.