From kde-commits  Tue Dec 31 22:18:50 2002
From: =?utf-8?q?Jason=20Keirstead?= <jason () keirstead ! org>
Date: Tue, 31 Dec 2002 22:18:50 +0000
To: kde-commits
Subject: kdenonbeta/kopete/protocols/icq_new/icq_webhandler
X-MARC-Message: https://marc.info/?l=kde-commits&m=104137320423918

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;
+        }
 }