#!/usr/bin/env perl
# juanfc 2008-03-04
# 
use warnings;
use strict;

for my $arg (@ARGV) {
    open my $source, "strings '$arg/rsrc' |" or die "'$arg' not open: $!";

    my $s="[InternetShortcut]\r\nURL=";
    my ($urlname, $fname);
    my $ln = 0;
    my $already_got = 0;
    while (<$source>) {
        ++$ln;
        chomp;
        if (m|^.http://|) {
            if (!$already_got) {
                $s .= substr($_, 1) . "\r\n";
                $already_got = 1;
            }
        } elsif ($already_got) {
            $urlname = $_;
            last;
        }
    }

    close $source;

    if ($urlname and $urlname ne "drag") {
        $fname = $urlname . ".url";
    } else {
        $fname = $arg . ".url";
    }

    open my $dest, ">$fname" or die "Not able to create '$fname': $1";
    print $dest $s;
    close $dest;
}

---
---
juan

[ Reply to This | # ]