From b363d2579af0a11b77e698aed2e1021c2233b644 Mon Sep 17 00:00:00 2001
From: Timothy Pearson <kb9vqf@pearsoncomputing.net>
Date: Sat, 26 Jan 2013 13:17:50 -0600
Subject: Rename a number of libraries and executables to avoid conflicts with
 KDE4

---
 kresources/groupwise/soap/extractxml.pl | 57 ---------------------------------
 1 file changed, 57 deletions(-)
 delete mode 100755 kresources/groupwise/soap/extractxml.pl

(limited to 'kresources/groupwise/soap/extractxml.pl')

diff --git a/kresources/groupwise/soap/extractxml.pl b/kresources/groupwise/soap/extractxml.pl
deleted file mode 100755
index ecab5086..00000000
--- a/kresources/groupwise/soap/extractxml.pl
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/usr/bin/perl
-
-if ( @ARGV != 1 ) {
-  print STDERR "Usage: extractxml.pl <filename>\n";
-  exit 1;
-}
-
-$in = $ARGV[ 0 ];
-
-print "In: $in\n";
-
-if ( !open IN, $in ) {
-  print STDERR "Unable to open file '$in'.\n";
-  exit 1;
-}
-
-$count = 1;
-
-while ( <IN> ) {
-  if ( $xml ) {
-    if ( $_ =~ /(.*\<\/SOAP-ENV:Envelope\>)/ ) {
-      printXml( $xml . $1 );
-      $xml = "";
-    } else {
-      $xml .= $_;
-    }
-  } elsif ( $_ =~ /^(\<\?xml.*\?>)(.*)$/ ) {
-    $xml = $1 . $2;
-
-    if ( $xml =~ /(.*\<\/SOAP-ENV:Envelope\>)/ ) { 
-      printXml( $1 );
-      $xml = "";
-      
-    }
-  }
-}
-
-sub printXml()
-{
-  $xml = shift;
-
-  $xml =~ s/\n//g;
-  $xml =~ s/\r//g;
-
-  $out = "$in.$count.xml";
-
-  print "Out: $out\n";
-
-  if ( !open OUT, ">$out" ) {
-    print STDERR "Unable to open file '$out'.\n";
-  } else {
-    print OUT $xml;
-    close OUT;
-  }
-
-  $count += 1;
-}
-- 
cgit v1.2.3