[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-commits
Subject:    kdenonbeta/kopete/protocols/icq_new/icq_webhandler
From:       Jason Keirstead <jason () keirstead ! org>
Date:       2002-12-31 22:18:50
[Download RAW message or body]

CVS commit by brunes: 

I am an ididot. This is a local file, not a web URL!


  M +13 -12    icq_webhandler   1.3


--- kdenonbeta/kopete/protocols/icq_new/icq_webhandler/icq_webhandler  #1.2:1.3
@@ -18,22 +18,23 @@
 #######################################################################################
 
-use LWP::Simple;
+# Open the file
+my $file = shift;
 
-my $url = shift;
+open(INFILE,"$file");
 
-# Download the file
-$file = get ($url);
-
-# Get the action
-if($file =~ /\[(.*)\]/) {
+until( $actionLine =~ /\[.*\]/ ) {
+        $actionLine = <INFILE>;
+}
+if ( $actionLine =~ /\[(.*)\]/ ) {
         $action = $1;
 }
 
 # Get our variables
-if( $file =~ /UIN=(.*)\r?\n/ ) {
+while( <INFILE> ) {
+        if( /UIN=(.*)\r?\n/ ) {
         $uin = $1;
-}
-if ( $file =~ /NickName=(.*)\r?\n/ ) {
+        } elsif ( /NickName=(.*)\r?\n/ ) {
         $nickName = $1;
+        }
 }
 


[prev in list] [next in list] [prev in thread] [next in thread]