a520e57f73
Former-commit-id:9a43ac36e6[formerly23433f628d] [formerly9a43ac36e6[formerly23433f628d] [formerly904a608495[formerly b2c19dd8cfa3eee138f2b9abf7289d464d94ef46]]] Former-commit-id:904a608495Former-commit-id:bc4067c5d8[formerlydbe4f68100] Former-commit-id:741e809c95
24 lines
No EOL
398 B
Perl
24 lines
No EOL
398 B
Perl
#!/usr/bin/perl
|
|
|
|
open (IN, $ARGV[0]);
|
|
print $ARGV[0];
|
|
@lines = <IN>;
|
|
close IN;
|
|
$site = "";
|
|
foreach $line (@lines) {
|
|
if ($line =~ /originatingSite="([\w]+)"/) {
|
|
$site = $1;
|
|
}
|
|
}
|
|
|
|
foreach $line (@lines) {
|
|
if ($line =~ s/owner="([\w]+)"/owner="$site"/g) {
|
|
print $line;
|
|
}
|
|
}
|
|
$OUTFILE = "TEMP";
|
|
open (OUT, ">>TEMP");
|
|
foreach $line (@lines) {
|
|
print OUT $line;
|
|
}
|
|
rename $OUTFILE, $ARGV[0] |