Search the web
Sign In
New User? Sign Up
perl-beginner · Perl Beginners Mailing List
  • Members Only
  • Post
  • Files
  • Photos
  • Links
  • Database
  • Polls
  • Calendar
  • Promote
  • Groups Labs (Beta)
? Already a member? Sign in to Yahoo!

Yahoo! Groups Tips

Did you know...
Want to share photos of your group with the world? Add a group photo to Flickr.

Best of Y! Groups

   Check them out and nominate your group.
Having problems with message search? Fill out this form to ensure your group is one of the first to be migrated to the new message search system.

Messages

   Messages Help
Message #
Search:
Advanced
Messages 26718 - 26725 of 26725   Newest  |  < Newer  |  Older >  |  Oldest
Messages: Show Message Summaries   (Group by Topic) Sort by Date v  
#26725 From: <ksuiwskeio@...>
Date: Mon Nov 30, 2009 8:22 pm
Subject: Increase Your Height 2-3 Inches 		ksuiwskeio
Offline Offline
Send Email Send Email
  
Increase Your Height 2-3 Inches

How a New Discovery Made A Short Man 2-3 Inches Taller In 6 Weeks
I Discovered the Secret to Add Several Inches of Solid Height to Anyone,
No Matter What Your Age Is... Even If You Haven't Grown in Years!

Click here : http://easylnk.com/?15376

Reply | Forward | Messages in this Topic (1)
#26724 From: <ksuiwskeio@...>
Date: Thu Nov 26, 2009 5:06 pm
Subject: WANTED: People To Work From Home. Must Have Computer 		ksuiwskeio
Offline Offline
Send Email Send Email
  
WANTED: People To Work From Home. Must Have Computer

* Just fill simple surveys. Start today.

  Online Companies Will Pay YOU $5 to $125 for Each Survey!
  Get Paid to Participate in Online Focus Groups At $50 to $150 Per Hour!
  Get Paid to Try New Products - Keep The Products For FREE and Get Paid Too!
  Get Paid to Watch Movie Trailers $4 to $25 Per Hour!
  Get Paid $5 to $95 Per Hour to Take Surveys Offline!
  Get Paid to Travel! Earn $100's Each Month Just for Traveling!
  Get Paid to Drive Your Car $1000 to $3000 per month! Plus They Pay For Your
Gas!


Click here : http://easylnk.com/?15367

Reply | Forward | Messages in this Topic (1)
#26723 From: alok nath <aloknathlight@...>
Date: Tue Nov 10, 2009 10:52 pm
Subject: issue with logging using mechanize 		aloknathlight
Offline Offline
Send Email Send Email
  
Hi,
   I think I can post the  issue related to 'mechanize' here.
   I am using www::mechanize to login and logout to a particular page.
   When I submit the credential(i.e username and password) and try to
   view the content, I don't see anything.
       When I view the source, I see it has jscript code in it. Is the
   problem because www::mechanize doesn't supports jscript ?
       Is there any work around for the above issue or can Iuse some other
module ?
   
   Fyi, my objective is to test the website for 100 or more logins.
  
   Please find the snippet of my script and the source for the page.
   Any help will be greatly appreciated.
  
Thanks,
Alok.
--------------
script :
--------------
sub browse{
 my $url = "https://10.225.23.17/NTSWebPortal/Login.aspx" ;
 my $usr = "alok" ;
 my $pwd = "alok123" ;
 
 my $file = "t1.html" ;
        my $file2 = "t2.html" ;
       
 my $mech= WWW::Mechanize->new() ;
 
 $mech->get($url, ':content_file' => $file ) ;
 #$mech->submit_form(
 #        form_number => 1,
 #        fields      => { username    => $usr, password => $pwd },
 #);
 #die unless ($mech->success);
 $mech->form_name( "aspnetForm" );
 $mech->set_fields( username    => $usr,
                     password    => $pwd );
 $mech->click() ;
 #$mech->submit_form(
 # form_number => 3, 
 # fields      => { 
 #  username    => 'nftuser11',  
 #  password    => "keane12",
 #  } 
 #);
        #password    => "keane*12",
       
        #$mech->forms ;
       
        print $mech->content() ;
} 
browse() ;
exit ;



   ----------


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head><title>
	 Login
</title>

      <meta name="DC.Creator" content="Transport Ticketing Authority, Department
of Transport, State Government of Victoria" /><meta name="DC.Rights"
content="Copyright, Transport Ticketing Authority, Department of Transport,
State Government of Victoria 2008" /><meta name="DC.Publisher"
content="Transport Ticketing Authority, Department of Transport - State
Government of Victoria" /><meta name="DC.Language" scheme="RFC3066"
content="en-AU (English)" /><meta name="DC.Coverage" content="Melbourne
Australia, Regional Victoria Australia" /><meta name="DC.Coverage"
content="State of Victoria, Australia" /><meta name="AGLS.Audience"
content="Victorian Public Transport Users" /><meta http-equiv="Content-Type"
content="text/html; charset=utf-8" /><meta http-equiv="Content-Language"
content="en-au" /><meta name="revisit-after" content="7 days" /><meta
name="distribution" content="Global" />
     <!-- Error Validation Script -->
     <link id="ctl00_uxMykiCss" rel="stylesheet" href="include/css/myki.css"
type="text/css" media="screen" /><link id="ctl00_Link1" rel="stylesheet"
href="include/css/treeview.css" type="text/css" media="screen" title="default"
/><link id="ctl00_uxLargerCss" rel="alternate stylesheet" type="text/css"
href="include/css/larger.css" /><link id="ctl00_uxPrintCss" rel="stylesheet"
href="Include/css/print.css" type="text/css" media="print" />

     <script src="Include/Scripts/F-Fix.js" type="text/javascript"></script>

     <script src="Include/Scripts/NTSWebUIValidations.js"
         type="text/javascript"></script>

     <script src="Include/Scripts/flyout.js" type="text/javascript"></script>

     <script src="Include/Scripts/so.js" type="text/javascript"></script>

     <script src="Include/Scripts/add-event.js"
         type="text/javascript"></script>

     <script src="Include/Scripts/popup.js" type="text/javascript"></script>

<style type="text/css">
	 .ctl00_uxMainNavigation_uxMainMenu_0 {
background-color:white;visibility:hidden;display:none;position:absolute;left:0px\
;top:0px; }
	 .ctl00_uxMainNavigation_uxMainMenu_1 { text-decoration:none; }
	 .ctl00_uxMainNavigation_uxMainMenu_2 {  }

</style></head>
<body id="threecol">
     <form name="aspnetForm" method="post" action="Login.aspx"
onkeypress="javascript:return WebForm_FireDefaultButton(event,
'ctl00_uxContentPlaceHolder_uxLogin')" id="aspnetForm">
<div>
<input type="hidden" name="__LASTFOCUS" id="__LASTFOCUS" value="" />
<input type="hidden" name="__EVENTTARGET" id="__EVENTTARGET" value="" />
<input type="hidden" name="__EVENTARGUMENT" id="__EVENTARGUMENT" value="" />
<input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE"
value="/wEPDwUKMTk0Mzg5MDQxNw9kFgJmD2QWAgIDD2QWDAIBD2QWDGYPFgIeBGhyZWYFC34vaG9tZ\
S5hc3B4ZAIBDw8WAh4EVGV4dAUFTG9naW5kZAIDD2QWBGYPD2QWAh4Jb25rZXlkb3duBVZFbmFibGVFb\
nRlcigod2luZG93LmV2ZW50KSA/IHdpbmRvdy5ldmVudCA6IGFyZ3VtZW50c1swXSwnY3RsMDBfdXhIZ\
WFkZXJfY3RsMDFfY3RsMDAnKWQCAg8QZGQWAWZkAgcPDxYCHghJbWFnZVVybAUefi9JbmNsdWRlL0ltY\
Wdlcy9pY29uTG9naW4uZ2lmZGQCCQ9kFgICAQ8PFgIfAWVkZAILDxYCHgdWaXNpYmxlaGQCAw9kFgICA\
RA8KwANAgAPFgIeC18hRGF0YUJvdW5kZ2QMFCsACQUfMDowLDA6MSwwOjIsMDozLDA6NCwwOjUsMDo2L\
DA6NxQrAAIWDh8BBQRIb21lHgVWYWx1ZQUESG9tZR4LTmF2aWdhdGVVcmwFFX4vaG9tZS5hc3B4P21lb\
nU9SG9tZR4HRW5hYmxlZGceClNlbGVjdGFibGVnHghEYXRhUGF0aAUgLypbcG9zaXRpb24oKT0xXS8qW\
3Bvc2l0aW9uKCk9MV0eCURhdGFCb3VuZGdkFCsAAhYOHwEFD0hvdyB0byB1c2UgbXlraR8GBQ9Ib3cgd\
G8gdXNlIG15a2kfBwUzfi9Db21tb24vQ01TL0hvd1RvVXNlTXlraS5hc3B4P21lbnU9SG93IHRvIHVzZ\
SBteWtpHwhnHwlnHwoFIC8qW3Bvc2l0aW9uKCk9MV0vKltwb3NpdGlvbigpPTJdHwtnFCsABwUXMDowL\
DA6MSwwOjIsMDozLDA6NCwwOjUUKwACFg4fAQUKQWJvdXQgbXlraR8GBQpBYm91dCBteWtpHwcFMH4vY\
29tbW9uL0NNUy9BYm91dEF1dG9Ub3B1cC5hc3B4P21lbnU9QWJvdXQgbXlraR8IZx8JZx8KBTAvKltwb\
3NpdGlvbigpPTFdLypbcG9zaXRpb24oKT0yXS8qW3Bvc2l0aW9uKCk9MV0fC2dkFCsAAhYOHwEFClVza\
W5nIG15a2kfBgUKVXNpbmcgbXlraR8HBTB+L2NvbW1vbi9DTVMvQWJvdXRBdXRvVG9wdXAuYXNweD9tZ\
W51PVVzaW5nIG15a2kfCGcfCWcfCgUwLypbcG9zaXRpb24oKT0xXS8qW3Bvc2l0aW9uKCk9Ml0vKltwb\
3NpdGlvbigpPTJdHwtnZBQrAAIWDh8BBQpUaGUgZnV0dXJlHwYFClRoZSBmdXR1cmUfBwUrfi9jb21tb\
24vQ01TL1RoZUZ1dHVyZS5hc3B4P21lbnU9VGhlIGZ1dHVyZR8IZx8JZx8KBTAvKltwb3NpdGlvbigpP\
TFdLypbcG9zaXRpb24oKT0yXS8qW3Bvc2l0aW9uKCk9M10fC2dkFCsAAhYOHwEFFE1ha2luZyBteWtpI\
HlvdXIga2V5HwYFFE1ha2luZyBteWtpIHlvdXIga2V5HwcFOn4vY29tbW9uL0NNUy9BYm91dEF1dG9Ub\
3B1cC5hc3B4P21lbnU9TWFraW5nIG15a2kgeW91ciBrZXkfCGcfCWcfCgUwLypbcG9zaXRpb24oKT0xX\
S8qW3Bvc2l0aW9uKCk9Ml0vKltwb3NpdGlvbigpPTRdHwtnZBQrAAIWDh8BBRZIZWxwZnVsIHRpcHMgY\
W5kIGhpbnRzHwYFFkhlbHBmdWwgdGlwcyBhbmQgaGludHMfBwU8fi9jb21tb24vQ01TL0Fib3V0QXV0b\
1RvcHVwLmFzcHg/bWVudT1IZWxwZnVsIHRpcHMgYW5kIGhpbnRzHwhnHwlnHwoFMC8qW3Bvc2l0aW9uK\
Ck9MV0vKltwb3NpdGlvbigpPTJdLypbcG9zaXRpb24oKT01XR8LZ2QUKwACFg4fAQUJQWJvdXQgVFRBH\
wYFCUFib3V0IFRUQR8HBS9+L2NvbW1vbi9DTVMvQWJvdXRBdXRvVG9wdXAuYXNweD9tZW51PUFib3V0I\
FRUQR8IZx8JZx8KBTAvKltwb3NpdGlvbigpPTFdLypbcG9zaXRpb24oKT0yXS8qW3Bvc2l0aW9uKCk9N\
l0fC2dkFCsAAhYOHwEFCEdldCBteWtpHwYFCEdldCBteWtpHwcFMX4vQ29tbW9uL2dldG15a2kvR2V0T\
XlraU9wdGlvbi5hc3B4P21lbnU9R2V0IG15a2kfCGcfCWcfCgUgLypbcG9zaXRpb24oKT0xXS8qW3Bvc\
2l0aW9uKCk9M10fC2dkFCsAAhYOHwEFC1NldCB1cCBteWtpHwYFC1NldCB1cCBteWtpHwcFMn4vQ29tb\
W9uL2F1eGlsbGFyeS9zZXR1cG15a2kuYXNweD9tZW51PVNldCB1cCBteWtpHwhnHwlnHwoFIC8qW3Bvc\
2l0aW9uKCk9MV0vKltwb3NpdGlvbigpPTRdHwtnFCsABAULMDowLDA6MSwwOjIUKwACFg4fAQUIQWN0a\
XZhdGUfBgUIQWN0aXZhdGUfBwUyfi9Db21tb24vYXV4aWxsYXJ5L0FjdGl2YXRlQ2FyZC5hc3B4P21lb\
nU9QWN0aXZhdGUfCGgfCWcfCgUwLypbcG9zaXRpb24oKT0xXS8qW3Bvc2l0aW9uKCk9NF0vKltwb3Npd\
GlvbigpPTFdHwtnZBQrAAIWDh8BBQhSZWdpc3Rlch8GBQhSZWdpc3Rlch8HBTF+L0NvbW1vbi9yZWdpc\
3Rlci9yZWdpc3Rlcm15a2kuYXNweD9tZW51PVJlZ2lzdGVyHwhnHwlnHwoFMC8qW3Bvc2l0aW9uKCk9M\
V0vKltwb3NpdGlvbigpPTRdLypbcG9zaXRpb24oKT0yXR8LZ2QUKwACFg4fAQURU2V0IHVwIHdlYiBhY\
2Nlc3MfBgURU2V0IHVwIHdlYiBhY2Nlc3MfBwU8fi9Db21tb24vcmVnaXN0ZXIvU2V0dXBXZWJBY2Nlc\
3MuYXNweD9tZW51PVNldCB1cCB3ZWIgYWNjZXNzHwhnHwlnHwoFMC8qW3Bvc2l0aW9uKCk9MV0vKltwb\
3NpdGlvbigpPTRdLypbcG9zaXRpb24oKT0zXR8LZ2QUKwACFg4fAQULVG9wIHVwIG15a2kfBgULVG9wI\
HVwIG15a2kfBwU8fi9Db21tb24vQW5vbnltb3VzVG9wVXAvYW5vbnl0b3B1cG15a2kuYXNweD9tZW51P\
VRvcCB1cCBteWtpHwhnHwlnHwoFIC8qW3Bvc2l0aW9uKCk9MV0vKltwb3NpdGlvbigpPTVdHwtnFCsAA\
gUDMDowFCsAAhYOHwEFDUNob29zZSB0b3AgdXAfBgUNQ2hvb3NlIHRvcCB1cB8HBUB+L0NvbW1vbi9Bb\
m9ueW1vdXNUb3BVcC9hbm9ueUNob29zZVRvcFVwLmFzcHg/bWVudT1DaG9vc2UgdG9wIHVwHwhnHwlnH\
woFMC8qW3Bvc2l0aW9uKCk9MV0vKltwb3NpdGlvbigpPTVdLypbcG9zaXRpb24oKT0xXR8LZ2QUKwACF\
g4fAQUNRm9ybXMgbGlicmFyeR8GBQ1Gb3JtcyBsaWJyYXJ5HwcFNn4vQ29tbW9uL0F1eGlsbGFyeS9Gb\
3JtTGlicmFyeS5hc3B4P21lbnU9Rm9ybXMgbGlicmFyeR8IZx8JZx8KBSAvKltwb3NpdGlvbigpPTFdL\
ypbcG9zaXRpb24oKT02XR8LZxQrAAMFBzA6MCwwOjEUKwACFg4fAQUSQXBwbHkgZm9yIGEgcmVmdW5kH\
wYFEkFwcGx5IGZvciBhIHJlZnVuZB8HBUJ+L0NvbW1vbi9yZWdpc3Rlci9EZWZlcnJlZFJlZnVuZFBya\
W50LmFzcHg/bWVudT1BcHBseSBmb3IgYSByZWZ1bmQfCGcfCWcfCgUwLypbcG9zaXRpb24oKT0xXS8qW\
3Bvc2l0aW9uKCk9Nl0vKltwb3NpdGlvbigpPTFdHwtnZBQrAAIWDh8BBSNSZXBsYWNlIGEgZGFtYWdlZ\
CBvciBkZWZlY3RpdmUgbXlraR8GBSNSZXBsYWNlIGEgZGFtYWdlZCBvciBkZWZlY3RpdmUgbXlraR8HB\
Ux+L0NvbW1vbi9yZWdpc3Rlci9EYW1hZ2VkUHJpbnQuYXNweD9tZW51PVJlcGxhY2UgYSBkYW1hZ2VkI\
G9yIGRlZmVjdGl2ZSBteWtpHwhnHwlnHwoFMC8qW3Bvc2l0aW9uKCk9MV0vKltwb3NpdGlvbigpPTZdL\
ypbcG9zaXRpb24oKT0yXR8LZ2QUKwACFg4fAQUTQ29tbXVuaXR5IGVkdWNhdGlvbh8GBRNDb21tdW5pd\
HkgZWR1Y2F0aW9uHwcFQ34vY29tbW9uL0Rpc2NvdmVyeS9Db21tdW5pdHlFZHVjYXRpb24uYXNweD9tZ\
W51PUNvbW11bml0eSBlZHVjYXRpb24fCGcfCWcfCgUgLypbcG9zaXRpb24oKT0xXS8qW3Bvc2l0aW9uK\
Ck9N10fC2cUKwAEBQswOjAsMDoxLDA6MhQrAAIWDh8BBRZEaXNjb3ZlcnkgY2VudHJlIGRpYXJ5HwYFF\
kRpc2NvdmVyeSBjZW50cmUgZGlhcnkfBwVIfi9jb21tb24vRGlzY292ZXJ5L0Rpc2NvdmVyeUNlbnRlc\
kRpYXJ5LmFzcHg/bWVudT1EaXNjb3ZlcnkgY2VudHJlIGRpYXJ5HwhnHwlnHwoFMC8qW3Bvc2l0aW9uK\
Ck9MV0vKltwb3NpdGlvbigpPTddLypbcG9zaXRpb24oKT0xXR8LZ2QUKwACFg4fAQUZQm9vayB0aGUgZ\
GlzY292ZXJ5IGNlbnRyZR8GBRlCb29rIHRoZSBkaXNjb3ZlcnkgY2VudHJlHwcFSn4vY29tbW9uL0Rpc\
2NvdmVyeS9Cb29rRGlzY292ZXJ5Q2VudGVyLmFzcHg/bWVudT1Cb29rIHRoZSBkaXNjb3ZlcnkgY2Vud\
HJlHwhnHwlnHwoFMC8qW3Bvc2l0aW9uKCk9MV0vKltwb3NpdGlvbigpPTddLypbcG9zaXRpb24oKT0yX\
R8LZ2QUKwACFg4fAQUlRnV0dXJlIG1vYmlsZSBkaXNjb3ZlcnkgY2VudHJlIHZpc2l0cx8GBSVGdXR1c\
mUgbW9iaWxlIGRpc2NvdmVyeSBjZW50cmUgdmlzaXRzHwcFU34vY29tbW9uL0Rpc2NvdmVyeS9WaWV3R\
nV0dXJlVmlzaXRzLmFzcHg/bWVudT1GdXR1cmUgbW9iaWxlIGRpc2NvdmVyeSBjZW50cmUgdmlzaXRzH\
whnHwlnHwoFMC8qW3Bvc2l0aW9uKCk9MV0vKltwb3NpdGlvbigpPTddLypbcG9zaXRpb24oKT0zXR8LZ\
2QUKwACFg4fAQUKQ29udGFjdCB1cx8GBQpDb250YWN0IHVzHwcFM34vQ29tbW9uL0F1eGlsbGFyeS9Db\
250YWN0aW5mby5hc3B4P21lbnU9Q29udGFjdCB1cx8IZx8JZx8KBSAvKltwb3NpdGlvbigpPTFdLypbc\
G9zaXRpb24oKT04XR8LZxQrAAUFDzA6MCwwOjEsMDoyLDA6MxQrAAIWDh8BBQhGZWVkYmFjax8GBQhGZ\
WVkYmFjax8HBS9+L0NvbW1vbi9BdXhpbGxhcnkvQ29udGFjdHVzLmFzcHg/bWVudT1GZWVkYmFjax8IZ\
x8JZx8KBTAvKltwb3NpdGlvbigpPTFdLypbcG9zaXRpb24oKT04XS8qW3Bvc2l0aW9uKCk9MV0fC2dkF\
CsAAhYOHwEFFENoZWNrIHN0YXR1cyByZXF1ZXN0HwYFFENoZWNrIHN0YXR1cyByZXF1ZXN0HwcFSH4vQ\
29tbW9uL0F1eGlsbGFyeS9Bbm9ueW1vdXNSZXF1ZXN0U3RhdHVzLmFzcHg/bWVudT1DaGVjayBzdGF0d\
XMgcmVxdWVzdB8IZx8JZx8KBTAvKltwb3NpdGlvbigpPTFdLypbcG9zaXRpb24oKT04XS8qW3Bvc2l0a\
W9uKCk9Ml0fC2dkFCsAAhYOHwEFC1Nwb25zb3JzaGlwHwYFC1Nwb25zb3JzaGlwHwcFMX4vY29tbW9uL\
0NNUy9BYm91dEF1dG9Ub3B1cC5hc3B4P21lbnU9U3BvbnNvcnNoaXAfCGcfCWcfCgUwLypbcG9zaXRpb\
24oKT0xXS8qW3Bvc2l0aW9uKCk9OF0vKltwb3NpdGlvbigpPTNdHwtnZBQrAAIWDh8BBQxPdXIgcGFyd\
G5lcnMfBgUMT3VyIHBhcnRuZXJzHwcFMn4vY29tbW9uL0NNUy9BYm91dEF1dG9Ub3B1cC5hc3B4P21lb\
nU9T3VyIHBhcnRuZXJzHwhnHwlnHwoFMC8qW3Bvc2l0aW9uKCk9MV0vKltwb3NpdGlvbigpPThdLypbc\
G9zaXRpb24oKT00XR8LZ2RkZAIHD2QWAmYPFgIfAWVkAgkPZBYCAgEPFgIfAQW+AzwhLS0gR2VuZXJhd\
GVkIGJ5IFhTdGFuZGFyZCB2ZXJzaW9uIDIuMC4wLjAgb24gMjAwOS0wNi0wNVQxNTo1ODo1MSAtLT48c\
CAvPjxzY3JpcHQgdHlwZT0idGV4dC9qYXZhc2NyaXB0Ij4NCnZhciBnYUpzSG9zdCA9ICgoImh0dHBzO\
iIgPT0gZG9jdW1lbnQubG9jYXRpb24ucHJvdG9jb2wpID8gImh0dHBzOi8vc3NsLiIgOiAiaHR0cDovL\
3d3dy4iKTsNCmRvY3VtZW50LndyaXRlKHVuZXNjYXBlKCIlM0NzY3JpcHQgc3JjPSciICsgZ2FKc0hvc\
3QgKyAiZ29vZ2xlLWFuYWx5dGljcy5jb20vZ2EuanMnIHR5cGU9J3RleHQvamF2YXNjcmlwdCclM0UlM\
0Mvc2NyaXB0JTNFIikpOw0KdHJ5IHsNCnZhciBwYWdlVHJhY2tlciA9IF9nYXQuX2dldFRyYWNrZXIoI\
lVBLTc5NDc4NjktMSIpOw0KcGFnZVRyYWNrZXIuX3RyYWNrUGFnZXZpZXcoKTsNCn0gY2F0Y2goZXJyK\
SB7fQ0KPC9zY3JpcHQ+ZAILD2QWAgIBDw8WAh8EaGQWBAIBDxYCHwFlZAIFDxBkZBYBZmQCDQ9kFgICD\
w8WAh8BBQQyMDA5ZBgBBR5fX0NvbnRyb2xzUmVxdWlyZVBvc3RCYWNrS2V5X18WAQUZY3RsMDAkdXhIZ\
WFkZXIkdXhMb2dpbkltZ5g6+p24zcfvl+uUK+sUg2tRGd7N" />
</div>

<script type="text/javascript">
<!--
var theForm = document.forms['aspnetForm'];
if (!theForm) {
     theForm = document.aspnetForm;
}
function __doPostBack(eventTarget, eventArgument) {
     if (!theForm.onsubmit || (theForm.onsubmit() != false)) {
         theForm.__EVENTTARGET.value = eventTarget;
         theForm.__EVENTARGUMENT.value = eventArgument;
         theForm.submit();
     }
}
// -->
</script>


<script
src="/NTSWebPortal/WebResource.axd?d=lsXJuEmIDqwT6_6A5xztaA2&amp;t=6338710768255\
97612" type="text/javascript"></script>


<script src="/NTSWebPortal/include/scripts/AdapterUtils.js"
type="text/javascript"></script>
<script src="/NTSWebPortal/include/scripts/MenuAdapter.js"
type="text/javascript"></script><script type="text/javascript">
<!--
function GetEvntKeyCode(evnt){return evnt.keyCode ? evnt.keyCode : evnt.charCode
? evnt.charCode : evnt.which ? evnt.which : void 0;}
function
EnableEnter(evnt,clientId){if(GetEvntKeyCode(evnt)==13){document.getElementById(\
clientId).focus();}}//-->
</script>

<script
src="/NTSWebPortal/WebResource.axd?d=CSkcOUBkGVE6c_JqKhrIzg2&amp;t=6338710768255\
97612" type="text/javascript"></script>
         <div id="bg">
             <!-- for centering the page -->
             <div id="container">
                 <div id="containerbottom">
                     <div id="containertwo">

<div id="header">
     <!-- header area -->
    <script src="Include/Scripts/F-Fix.js" type="text/javascript"></script>
     <script type="text/javascript">
     <!--
         function LoginURL()
         {
             window.open("Login.aspx","_self");
         }
         -->
     </script>

     <h1>
         <a href="home.aspx" id="ctl00_uxHeader_uxMykiLogolink" title="myki">
             <img src="Include/Images/brandMyki.gif"
id="ctl00_uxHeader_uxMykilogo" alt="myki" /></a></h1>
     <p>
         <span>Jump to: <a href="#columna" tabindex="-1">content</a> or <a
href="#nav" tabindex="-1">main navigation</a></span></p>
     <h2>
         <span id="ctl00_uxHeader_uxHeading"
style="font-size:Large;font-weight:bold;">Login</span></h2>
     <ul id="quicklinks">
         <!--  quick links -->
         <li>
             <div class="searchform">
                 <h5>
                     <span>Search</span></h5>
                 <!-- search form -->
                 <fieldset>
                     <span id="ctl00_uxHeader_uxUltimateSearchInput" title="Enter
any text to be searched">
<!-- Karamasoft UltimateSearch for ASP.NET -->
<input name="ctl00$uxHeader$ctl00" type="text"
onkeydown="EnableEnter((window.event) ? window.event :
arguments[0],'ctl00_uxHeader_ctl01_ctl00')" /><span><input type="submit"
name="ctl00$uxHeader$ctl01$ctl00" value="Go" id="ctl00_uxHeader_ctl01_ctl00"
class="searchbutton" /></span></span>
                 </fieldset>
             </div>
         </li>
         <li><a href="#" title="" tabindex="-1"  ></a></li>
         <li><a id="ctl00_uxHeader_uxPrint" title="print this page"
href="javascript:__doPostBack('ctl00$uxHeader$uxPrint','')">
             <img src="Include/Images/iconPrint.gif"
id="ctl00_uxHeader_uxPrintIcon" alt="print this page" /></a></li>
         <li><a id="ctl00_uxHeader_uxSmallText"
href="javascript:__doPostBack('ctl00$uxHeader$uxSmallText','')">
             <img src="Include/Images/iconTextSmall.gif"
id="ctl00_uxHeader_uxSmallTextIcon" alt="smaller text" /></a></li>
         <li><a id="ctl00_uxHeader_uxLargeText"
href="javascript:__doPostBack('ctl00$uxHeader$uxLargeText','')">
             <img src="Include/Images/iconTextLarge.gif"
id="ctl00_uxHeader_uxLargeTextIcon" alt="larger Text" /></a></li>
         <li id="login">
             <div id="loginFlash">
                 <div id="loginNoFlash">

                         <input type="image" name="ctl00$uxHeader$uxLoginImg"
id="ctl00_uxHeader_uxLoginImg" src="Include/Images/iconLogin.gif"
style="width:53px;border-width:0px;" />




                 </div>

             </div>
         </li>
     </ul>
     <div id="ctl00_uxHeader_Div2" class="label">
         <!-- Image -->
         <span id="ctl00_uxHeader_uxLoginInfo" class="align"
style="display:inline-block;height:15px;width:765px;"></span>
     </div>
     <div id="ctl00_uxHeader_uxDivHeaderImg">
         <!-- flash animation -->
         <object type="application/x-shockwave-flash"
data="Include/Flash/login.swf"
             width="765" height="125">
             <param name="movie" value="Include/Flash/login.swf" />
             <img src="Include/Images/home.jpg" id="ctl00_uxHeader_uxHomeLogo"
alt="home" />
         </object>
     </div>

</div>

                         <div id="containerthree">

     <!-- UltimateSearch_IgnoreBegin -->


<div class="MainMenu" id="ctl00_uxMainNavigation_uxMainMenu">
	 <div class="AspNet-Menu-Vertical">
			 <ul id="nav"><li class="struct">Main Navigation</li>
				 <li id="navHome">
					 <a href="home.aspx?menu=Home">
						 <span><strong>Home</strong></span></a>
				 </li>
				 <li id="navHowtousemyki">
					 <a href="Common/CMS/HowToUseMyki.aspx?menu=How to use myki">
						 <span><strong>How to use myki</strong></span></a>
					 <ul><li class="struct">Sub navigation for How to use myki</li>
						 <li id="navAboutmyki">
							 <a href="common/CMS/AboutAutoTopup.aspx?menu=About myki">
								 About myki</a>
						 </li>
						 <li id="navUsingmyki">
							 <a href="common/CMS/AboutAutoTopup.aspx?menu=Using myki">
								 Using myki</a>
						 </li>
						 <li id="navThefuture">
							 <a href="common/CMS/TheFuture.aspx?menu=The future">
								 The future</a>
						 </li>
						 <li id="navMakingmykiyourkey">
							 <a href="common/CMS/AboutAutoTopup.aspx?menu=Making myki your key">
								 Making myki your key</a>
						 </li>
						 <li id="navHelpfultipsandhints">
							 <a href="common/CMS/AboutAutoTopup.aspx?menu=Helpful tips and hints">
								 Helpful tips and hints</a>
						 </li>
						 <li id="navAboutTTA">
							 <a href="common/CMS/AboutAutoTopup.aspx?menu=About TTA">
								 About TTA</a>
						 </li>
					 </ul>
				 </li>
				 <li id="navGetmyki">
					 <a href="Common/getmyki/GetMykiOption.aspx?menu=Get myki">
						 <span><strong>Get myki</strong></span></a>
				 </li>
				 <li id="navSetupmyki">
					 <a href="Common/auxillary/setupmyki.aspx?menu=Set up myki">
						 <span><strong>Set up myki</strong></span></a>
					 <ul><li class="struct">Sub navigation for Set up myki</li>
						 <li id="navRegister">
							 <a href="Common/register/registermyki.aspx?menu=Register">
								 Register</a>
						 </li>
						 <li id="navSetupwebaccess">
							 <a href="Common/register/SetupWebAccess.aspx?menu=Set up web access">
								 Set up web access</a>
						 </li>
					 </ul>
				 </li>
				 <li id="navTopupmyki">
					 <a href="Common/AnonymousTopUp/anonytopupmyki.aspx?menu=Top up myki">
						 <span><strong>Top up myki</strong></span></a>
					 <ul><li class="struct">Sub navigation for Top up myki</li>
						 <li id="navChoosetopup">
							 <a href="Common/AnonymousTopUp/anonyChooseTopUp.aspx?menu=Choose top up">
								 Choose top up</a>
						 </li>
					 </ul>
				 </li>
				 <li id="navFormslibrary">
					 <a href="Common/Auxillary/FormLibrary.aspx?menu=Forms library">
						 <span><strong>Forms library</strong></span></a>
					 <ul><li class="struct">Sub navigation for Forms library</li>
						 <li id="navApplyforarefund">
							 <a href="Common/register/DeferredRefundPrint.aspx?menu=Apply for a
refund">
								 Apply for a refund</a>
						 </li>
						 <li id="navReplaceadamagedordefectivemyki">
							 <a href="Common/register/DamagedPrint.aspx?menu=Replace a damaged or
defective myki">
								 Replace a damaged or defective myki</a>
						 </li>
					 </ul>
				 </li>
				 <li id="navCommunityeducation">
					 <a href="common/Discovery/CommunityEducation.aspx?menu=Community
education">
						 <span><strong>Community education</strong></span></a>
					 <ul><li class="struct">Sub navigation for Community education</li>
						 <li id="navDiscoverycentrediary">
							 <a href="common/Discovery/DiscoveryCenterDiary.aspx?menu=Discovery centre
diary">
								 Discovery centre diary</a>
						 </li>
						 <li id="navBookthediscoverycentre">
							 <a href="common/Discovery/BookDiscoveryCenter.aspx?menu=Book the
discovery centre">
								 Book the discovery centre</a>
						 </li>
						 <li id="navFuturemobilediscoverycentrevisits">
							 <a href="common/Discovery/ViewFutureVisits.aspx?menu=Future mobile
discovery centre visits">
								 Future mobile discovery centre visits</a>
						 </li>
					 </ul>
				 </li>
				 <li id="navContactus">
					 <a href="Common/Auxillary/Contactinfo.aspx?menu=Contact us">
						 <span><strong>Contact us</strong></span></a>
					 <ul><li class="struct">Sub navigation for Contact us</li>
						 <li id="navFeedback">
							 <a href="Common/Auxillary/Contactus.aspx?menu=Feedback">
								 Feedback</a>
						 </li>
						 <li id="navCheckstatusrequest">
							 <a href="Common/Auxillary/AnonymousRequestStatus.aspx?menu=Check status
request">
								 Check status request</a>
						 </li>
						 <li id="navSponsorship">
							 <a href="common/CMS/AboutAutoTopup.aspx?menu=Sponsorship">
								 Sponsorship</a>
						 </li>
						 <li id="navOurpartners">
							 <a href="common/CMS/AboutAutoTopup.aspx?menu=Our partners">
								 Our partners</a>
						 </li>
					 </ul>
				 </li>
			 </ul>

	 </div>
</div>

			 <!-- UltimateSearch_IgnoreEnd -->




<script src="Include/Scripts/NTSUIValidationMessages.js"
type="text/javascript"></script>
     <script type="text/javascript">
     <!--
     window.history.forward(1);


//    function ValidateFormPersonal()
//    {
//
//        document.getElementById("uxservererror").innerHTML="";
//       //
sval.Validate('USERNAME','ctl00_uxContentPlaceHolder_uxUsername',Err_Inv_usernam\
e,true,Err_Username);
//       
sval.ValidateRequired("ctl00_uxContentPlaceHolder_uxUsername",Err_Username);
//       
//sval.Validate('PASSWORD','ctl00_uxContentPlaceHolder_uxPassword',Err_Inv_Passw\
ord,true,Err_Password);
//       
sval.ValidateRequired("ctl00_uxContentPlaceHolder_uxPassword",Err_Password);
//        return sval.DisplayMessage();
//    }
//    function ValidateChangePassword()
//    {
//        document.getElementById("uxServerErrorMsg").innerHTML="";
//       
sval.Validate('PASSWORD','ctl00_uxContentPlaceHolder_uxOldPassword',Err_Inv_OldP\
assword,true,Err_OldPassword);
//       
sval.Validate('PASSWORD','ctl00_uxContentPlaceHolder_uxNewPassword',Err_inv_NewP\
assword,true,Err_newPassword);
//       
sval.ValidateCompare('ctl00_uxContentPlaceHolder_uxNewPassword',"=",'ctl00_uxCon\
tentPlaceHolder_uxConfirmNewPassword',"STRING",Err_Inv_ConfirmPwd)
//        return sval.DisplayMessage();
//    }
   -->
     </script>

     <div id="content">
         <!-- main content area -->
         <fieldset class="error noborder">
             <div class="error" id="uxValidationSummary">
             </div>
             <div id="uxservererror" class="error">

             </div>
         </fieldset>
         <div id="ctl00_uxContentPlaceHolder_uxpasswordpnl">

             <fieldset class="noborder">
                 <p>
                     Please enter your login details below for your myki online
account</p>
                 <label for="ctl00_uxContentPlaceHolder_uxUsername"
id="ctl00_uxContentPlaceHolder_lblusername" title="Enter your User name"
class="narrow2">
                     <span>Username</span>
                     <!--input type="text" id="username" /-->
                     <input name="ctl00$uxContentPlaceHolder$uxUsername"
type="text" maxlength="15" id="ctl00_uxContentPlaceHolder_uxUsername"
title="Enter your User name" /></label>
                 <label for="ctl00_uxContentPlaceHolder_uxPassword"
id="ctl00_uxContentPlaceHolder_lblpassword" title="Enter your password"
class="narrow2">
                     <span>Password</span>
                     <!--input type="password" id="password" /-->
                     <input name="ctl00$uxContentPlaceHolder$uxPassword"
type="password" maxlength="15" id="ctl00_uxContentPlaceHolder_uxPassword"
/></label>
                 <!--input type="button" value="login" /-->

                 <input type="submit" name="ctl00$uxContentPlaceHolder$uxLogin"
value="Login" id="ctl00_uxContentPlaceHolder_uxLogin" />
             </fieldset>
             <p>
                 <a href="common/Auxillary/ForgotPassword.aspx">Forgotten your
password?</a>
                 <br />
                 <a href="common/Auxillary/ForgottenUsername.aspx"
id="ctl00_uxContentPlaceHolder_A1">Forgotten
                     your username?</a><br />
                 <a href="common/Auxillary/UnlockUser.aspx"
id="ctl00_uxContentPlaceHolder_A2">Unlock Account?</a></p>

</div>


     </div>

                             <div id="ctl00_uxadv">

                                 <div id="columnb">
                                     <div class="adv text blue">
                                         <!-- Generated by XStandard version
2.0.0.0 on 2009-06-05T15:58:51 --><p /><script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." :
"http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost +
"google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
try {
var pageTracker = _gat._getTracker("UA-7947869-1");
pageTracker._trackPageview();
} catch(err) {}
</script>
                                     </div>
                                 </div>

</div>
                             <div id="ctl00_uxcallcontrol">

                                 <div id="columnc">

                                 </div>

</div>
                         </div>

	   <!-- UltimateSearch_IgnoreBegin -->

<ul id="footer">
     <!-- footer -->
     <li><a href="common/cms/Accessibility.aspx" id="ctl00_uxFooter_uxAccesblity"
title="accessibility">Accessibility</a></li>
     <li><a href="common/cms/Disclaimer.aspx" id="ctl00_uxFooter_uxdisclaimer"
title="disclaimer">Disclaimer</a></li>
     <li><a href="common/cms/TermsOfUse.aspx" id="ctl00_uxFooter_uxterms"
title="terms of use">myki Terms of Use</a></li>
     <li><a href="common/cms/PrivacyStatement.aspx" id="ctl00_uxFooter_uxprivacy"
title="Privacy Statement">Privacy Statement</a></li>
     <li><a href="common/Auxillary/Sitemap.aspx" id="ctl00_uxFooter_uxsitemap"
title="site map">Site Map</a></li>
     <li><a href="common/cms/Glossary.aspx" id="ctl00_uxFooter_uxglossary"
title="FAQs">FAQs</a></li>
     <li><a href="Common/CMS/Media.aspx" id="ctl00_uxFooter_uxmedia"
title="media">Media</a></li>
     <li>myki&copy; Copyright 2009</li>
</ul>
<!-- UltimateSearch_IgnoreEnd -->
                     </div>
                 </div>
             </div>
         </div>

         <script type="text/javascript">
             var sval = new
CValidator(document.getElementById("uxValidationSummary"));
         </script>


<script type='text/javascript' >   
document.getElementById('ctl00_uxContentPlaceHolder_uxUsername').focus();</scrip\
t>
<script type="text/javascript">
<!--
WebForm_AutoFocus('ctl00_uxContentPlaceHolder_uxUsername');// -->
</script>
</form>
</body>
</html>


[Non-text portions of this message have been removed]

Reply | Forward | Messages in this Topic (1)
#26720 From: merlyn@...
Date: Tue Nov 10, 2009 3:34 pm
Subject: Re: [PBML] Get data from website 		merlynstoneh...
Offline Offline
Send Email Send Email
  
>>>>> "Yanto" == Yanto asnawi <yanto_asnawi@...> writes:

Yanto> Hello,
Yanto>  
Yanto> Can some one help me?
Yanto>  
Yanto> How to get data from website, then save to file.
Yanto>  
Yanto> example from  http://www.website.com/page.html

LWP::Simple is your friend.  Install it, then read the docs.
Plenty of examples.


--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@...> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion

Reply | Forward | Messages in this Topic (4)
#26719 From: Yanto asnawi <yanto_asnawi@...>
Date: Tue Nov 10, 2009 3:20 pm
Subject: Get data from website 		yanto_asnawi
Offline Offline
Send Email Send Email
  
Hello,
 
Can some one help me?
 
How to get data from website, then save to file.
 
example from  http://www.website.com/page.html
 
TIA
Yanto Asnawi

[Non-text portions of this message have been removed]

Reply | Forward | Messages in this Topic (4)
#26718 From: "lRobert Lee Binkley" <leebinkley@...>
Date: Thu Oct 29, 2009 7:08 pm
Subject: RE: [PBML] Problem with function getquotaroot in IMAP::Client 		leebinkley
Offline Offline
Send Email Send Email
  
# Display the IMAP resource usage on the user's post office server.



use strict;

use warnings FATAL => 'all';

use Cyrus::IMAP;

use Getopt::Std;



sub usage(;$);

sub print_quota($$$$$);

sub send_command($);

sub quota_callback(@);

sub quotaroot_callback(@);

sub capability_callback(@);

sub close_and_errorout($);

sub close_connection();

sub errorout($);



sub usage(;$) {

     print STDERR "mailquota: $_[0]\n" if $_[0];

     print STDERR <<EOF;

Usage: mailquota [<options>] [<user>]

   Options:

     -h <host>     query <host> instead of default post office server

     -m <mailbox>  query for <mailbox> (default is INBOX)

     -n            be silent unless usage % is above the threshold

     -u <percent>  usage % threshold (default is 90); implies -n

     -d            turn on debugging

EOF

     exit 1;

}



my $need_header = 1;

my $root_width = 16;

my $num_width = 10;

my $percent_width = 5;

my $format = "%-${root_width}.${root_width}s" .

     " %${num_width}s %${num_width}s %${percent_width}s" .

     " %${num_width}s %${num_width}s %${percent_width}s\n";



# Parse the command line arguments.

my %opts;

getopts('dh:m:nu:', \%opts) || usage;

my $username = shift @ARGV || $ENV{'USER'} || getlogin || (getpwuid($<))[0]
||

       errorout "Cannot determine user name";



usage "Too many arguments" if @ARGV > 0;

my $debug = $opts{'d'};

my $warn_only = $opts{'n'};

my $usage_threshold = $opts{'u'};

my $host = $opts{'h'} || (split(" ", `hesinfo $username pobox`))[1] ||

     errorout "Cannot find Post Office server for $username";

my $mbox = $opts{'m'} || "INBOX";



# Validate the usage percentage threshold, allowing a trailing %.

# Setting the threshold implies we should only display quotas

# for which any resource usage is above the threshold.

if (defined $usage_threshold) {

     chop $usage_threshold if $usage_threshold =~ /^\d+%$/;

     usage "-u argument must be numeric" if $usage_threshold !~ /^\d+$/;

     $warn_only = 1;

} else {

     $usage_threshold = 90;

}



# Connect to the IMAP server, check for the QUOTA extension, and

# authenticate.

my $client = Cyrus::IMAP->new($host) ||

     errorout "Cannot connect to IMAP server on $host";

my $caps = '';

$client->addcallback({-trigger => 'CAPABILITY',

                   -callback => \&capability_callback,

                   -rock => \$caps});

send_command "CAPABILITY";

$caps =~ '\bQUOTA\b' ||

     close_and_errorout "$host does not support the IMAP QUOTA extension";

$client->authenticate(-authz => $username) ||

     close_and_errorout "Cannot authenticate to $host";



# Send the GETQUOTAROOT command, which returns both the QUOTA and

# QUOTAROOT responses.  Quota information will be displayed via

# the QUOTA callback.

$client->addcallback({-trigger => 'QUOTA',

                   -callback => \&quota_callback});

$client->addcallback({-trigger => 'QUOTAROOT',

                   -callback => \&quotaroot_callback});

send_command "GETQUOTAROOT \"$mbox\"";



# We are done talking to the IMAP server; close down the connection.

close_connection();



# Print the quota information for the given quota root and its

# storage and message resource values.

sub print_quota($$$$$) {

     my ($root, $storage_used, $storage_max, $message_used, $message_max) =
@_;

     my $storage_percent;

     my $storage_percent_out;

     my $message_percent;

     my $message_percent_out;



     # Calculate the usage percentages, and format for output.

     if ($storage_max) {

       $storage_percent = ($storage_used / $storage_max) * 100;

       $storage_percent_out = sprintf("%.0f%%", $storage_percent);

     }

     if ($message_max) {

       $message_percent = ($message_used / $message_max) * 100;

       $message_percent_out = sprintf("%.0f%%", $message_percent);

     }



     # Skip this quota if we are only displaying usages above the

     # specified threshold.

     return unless (!$warn_only ||

                (defined $storage_percent &&

                 $storage_percent >= $usage_threshold) ||

                (defined $message_percent &&

                 $message_percent >= $usage_threshold));



     # Print a header if this is the first line of output.

     if ($need_header) {

       printf($format,

              "Quota",

              "KB Used", "KB Max", "KB %",

              "# Msgs", "# Max", "# %");

       $need_header = 0;

     }

     printf($format,

          $root,

          defined $storage_used ? $storage_used : '-',

          defined $storage_max ? $storage_max : '-',

          defined $storage_percent_out ? $storage_percent_out : '-',

          defined $message_used ? $message_used : '-',

          defined $message_max ? $message_max : '-',

          defined $message_percent_out ? $message_percent_out : '-');

}



# Subroutine to send a command to the IMAP server, and wait for the

# response; any defined callbacks for the response are invoked.

# If the server response indicates failure, we error out.

sub send_command($) {

     print "Sending: $_[0]\n" if $debug;

     my ($status, $text) = $client->send('', '', $_[0]);

     print "Response: status $status, text $text\n" if $debug;

     errorout "Premature end-of-file on IMAP connection to $host"

       if $status eq 'EOF';

     close_and_errorout "IMAP error for $mbox on $host: $text"

       if $status ne 'OK';

}



# Callback subroutine to parse the QUOTA response.

# The "-text" hash element contains the quota root name, and a list

# of quota resource names, usages, and limits.  Recognized names are

# STORAGE (sum of message sizes, in kilobytes) and MESSAGE (number of

# messages).  See RFC 2087.

sub quota_callback(@) {

     my %cb = @_;

     my ($root, $quotalist);

     print "In QUOTA callback: text $cb{-text}\n" if $debug;

     if (($root, $quotalist) = ($cb{-text} =~ /(\S*)\s+\((.*)\)/io)) {

       my ($storage_used, $storage_max, $message_used, $message_max);

       while ($quotalist) {

           my ($resource, $used, $max);

           ($resource, $used, $max, $quotalist) = split /\s/, $quotalist, 4;

           last unless $max;

           $resource = uc $resource;

           if ($resource eq "STORAGE") {

             $storage_used = $used;

             $storage_max = $max;

           }

           elsif ($resource eq "MESSAGE") {

             $message_used = $used;

             $message_max = $max;

           }

       }

       print_quota($root, $storage_used, $storage_max,

                 $message_used, $message_max)

           if (defined $storage_max || defined $message_max);

     }

}



# Callback subroutine to parse the QUOTAROOT response.  The "-text"

# hash element contains the mailbox name, and zero or more quota root

# names.  This is currently used for debugging only.

sub quotaroot_callback(@) {

     my %cb = @_;

     print "In QUOTAROOT callback: text $cb{-text}\n" if $debug;

}



# Callback subroutine to parse the CAPABILITY response.  The "-rock" hash

# element is a reference to the string in which to store the space-separated

# capability names.

sub capability_callback(@) {

     my %cb = @_;

     print "In CAPABILITY callback: keyword $cb{-keyword}, text $cb{-text}\n"

       if $debug;

     ${$cb{-rock}} = $cb{-text};

}



# Close the connection to the IMAP server, and error out.

sub close_and_errorout($) {

     close_connection();

     errorout $_[0];

}



# Logout from the IMAP server, and close the connection.

sub close_connection() {

     $client->send('', '', "LOGOUT");

     # Set the client reference to undef, so that perl invokes the

     # destructor, which closes the connection.  Note that if we invoke

     # the destructor explicitly here, then perl will still invoke it

     # again when the program exits, thus touching memory which has

     # already been freed.

     $client = undef;

}



sub errorout($) {

     print STDERR "mailquota: $_[0]\n";

     exit 1;

}





From: perl-beginner@yahoogroups.com [mailto:perl-beginner@yahoogroups.com]
On Behalf Of Shameem Ahamed
Sent: Thursday, October 29, 2009 12:56 PM
To: perl-beginner@yahoogroups.com
Subject: [PBML] Problem with function getquotaroot in IMAP::Client





Hi,

I am using the IMAP::Client for automating the quota check
for some of the users. My script was fairly straight, and I ran in to
the below error, while running the script. The error returned by the
$imap->error function is

QUOTA not supported for GETQUOTAROOT command at imap.pl

As per the function description given in the page

http://search.cpan.org/~conteb/IMAP-Client-0.13/lib/IMAP/Client.pm

The getquotaroot function accepts the mail box name only.

My code snippet is given below

my %quota=$imap->getquotaroot('INBOX') || die $imap->error();
print "Quota: $quota{'STORAGE'} \n";

Please help me to debug this issue.

Regards,
Shameem





[Non-text portions of this message have been removed]

Reply | Forward | Messages in this Topic (4)
Messages 26718 - 26725 of 26725   Newest  |  < Newer  |  Older >  |  Oldest
Message #
Search:
Advanced
Add to My Yahoo!      XML What's This?
Copyright © 2009 Yahoo! Inc. All rights reserved.
Privacy Policy - Terms of Service - Guidelines - Help