- Petter Reinholdtsen - -

- 2008-11-25 00:10 -

passwd -e
 username
apt-get autoremove
~~:S:wait:/sbin/sulogin
/etc/init.d/rc S; /sbin/sulogin
/etc/init.d/rc
+S; /etc/init.d/rc 1; /sbin/sulogin
+#!/bin/sh
+# apt-get install lsdvd
+title=$(lsdvd 2>/dev/null|awk '/Disc Title: / {print $3}')
+dd if=/dev/dvd of=/storage/dvds/$title.iso bs=1M
+
+#!/bin/sh
+# apt-get install lsdvd dvdbackup genisoimage
+set -e
+tmpdir=/storage/dvds/
+title=$(lsdvd 2>/dev/null|awk '/Disc Title: / {print $3}')
+dvdbackup -i /dev/dvd -M -o $tmpdir -n$title
+genisoimage -dvd-video -o $tmpdir/$title.iso $tmpdir/$title
+rm -rf $tmpdir/$title
+
readom dev=/dev/dvd
+f=image.iso
+#!/usr/bin/perl
+use strict;
+use warnings;
+use File::Temp qw(tempdir);
+BEGIN {
+    # Install needed RHEL packages if missing
+    my %rhelmodules = (
+        'XML::Simple' => 'perl-XML-Simple',
+        );
+    for my $module (keys %rhelmodules) {
+        eval "use $module;";
+        if ($@) {
+            my $pkg = $rhelmodules{$module};
+            system("yum install -y $pkg");
+            eval "use $module;";
+        }
+    }
+}
+my $errorsto = 'pere@hungry.com';
+
+upgrade_dell();
+
+exit 0;
+
+sub run_firmware_script {
+    my ($opts, $script) = @_;
+    unless ($script) {
+        print STDERR "fail: missing script name\n";
+        exit 1
+    }
+    print STDERR "Running $script\n\n";
+
+    if (0 == system("sh $script $opts")) { # FIXME correct exit code handling
+        print STDERR "success: firmware script ran succcessfully\n";
+    } else {
+        print STDERR "fail: firmware script returned error\n";
+    }
+}
+
+sub run_firmware_scripts {
+    my ($opts, @dirs) = @_;
+    # Run firmware packages
+    for my $dir (@dirs) {
+        print STDERR "info: Running scripts in $dir\n";
+        opendir(my $dh, $dir) or die "Unable to open directory $dir: $!";
+        while (my $s = readdir $dh) {
+            next if $s =~ m/^\.\.?/;
+            run_firmware_script($opts, "$dir/$s");
+        }
+        closedir $dh;
+    }
+}
+
+sub download {
+    my $url = shift;
+    print STDERR "info: Downloading $url\n";
+    system("wget --quiet \"$url\"");
+}
+
+sub upgrade_dell {
+    my @dirs;
+    my $product = `dmidecode -s system-product-name`;
+    chomp $product;
+
+    if ($product =~ m/PowerEdge/) {
+
+        # on RHEL, these pacakges are needed by the firwmare upgrade scripts
+        system('yum install -y compat-libstdc++-33.i686 libstdc++.i686 libxml2.i686 procmail');
+
+        my $tmpdir = tempdir(
+            CLEANUP => 1
+            );
+        chdir($tmpdir);
+        fetch_dell_fw('catalog/Catalog.xml.gz');
+        system('gunzip Catalog.xml.gz');
+        my @paths = fetch_dell_fw_list('Catalog.xml');
+        # -q is quiet, disabling interactivity and reducing console output
+        my $fwopts = "-q";
+        if (@paths) {
+            for my $url (@paths) {
+                fetch_dell_fw($url);
+            }
+            run_firmware_scripts($fwopts, $tmpdir);
+        } else {
+            print STDERR "error: Unsupported Dell model '$product'.\n";
+            print STDERR "error: Please report to $errorsto.\n";
+        }
+        chdir('/');
+    } else {
+        print STDERR "error: Unsupported Dell model '$product'.\n";
+        print STDERR "error: Please report to $errorsto.\n";
+    }
+}
+
+sub fetch_dell_fw {
+    my $path = shift;
+    my $url = "ftp://ftp.us.dell.com/$path";
+    download($url);
+}
+
+# Using ftp://ftp.us.dell.com/catalog/Catalog.xml.gz, figure out which
+# firmware packages to download from Dell.  Only work for Linux
+# machines and 11th generation Dell servers.
+sub fetch_dell_fw_list {
+    my $filename = shift;
+
+    my $product = `dmidecode -s system-product-name`;
+    chomp $product;
+    my ($mybrand, $mymodel) = split(/\s+/, $product);
+
+    print STDERR "Finding firmware bundles for $mybrand $mymodel\n";
+
+    my $xml = XMLin($filename);
+    my @paths;
+    for my $bundle (@{$xml->{SoftwareBundle}}) {
+        my $brand = $bundle->{TargetSystems}->{Brand}->{Display}->{content};
+        my $model = $bundle->{TargetSystems}->{Brand}->{Model}->{Display}->{content};
+        my $oscode;
+        if ("ARRAY" eq ref $bundle->{TargetOSes}->{OperatingSystem}) {
+            $oscode = $bundle->{TargetOSes}->{OperatingSystem}[0]->{osCode};
+        } else {
+            $oscode = $bundle->{TargetOSes}->{OperatingSystem}->{osCode};
+        }
+        if ($mybrand eq $brand && $mymodel eq $model && "LIN" eq $oscode)
+        {
+            @paths = map { $_->{path} } @{$bundle->{Contents}->{Package}};
+        }
+    }
+    for my $component (@{$xml->{SoftwareComponent}}) {
+        my $componenttype = $component->{ComponentType}->{value};
+
+        # Drop application packages, only firmware and BIOS
+        next if 'APAC' eq $componenttype;
+
+        my $cpath = $component->{path};
+        for my $path (@paths) {
+            if ($cpath =~ m%/$path$%) {
+                push(@paths, $cpath);
+            }
+        }
+    }
+    return @paths;
+}
+
ldapvi -ZD '(cn=admin)'
sitesummary2ldapdhcp
sitesummary2ldapdhcp -a
konsole
+% sitesummary2ldapdhcp -a
+info: Updating machine tjener.intern [10.0.2.2] id ether-00:01:02:03:04:05.
+info: Create GOsa machine for auto-mac-00-01-02-03-04-06 [10.0.16.20] id ether-00:01:02:03:04:06.
+
+Enter password if you want to activate these changes, and ^c to abort.
+
+Connecting to LDAP as cn=admin,ou=ldap-access,dc=skole,dc=skolelinux,dc=no
+enter password: *******
+% 
+
/usr/share/debian-edu-config/tools/auto-addfirmware
dmesg
/usr/share/debian-edu-config/tools/pxe-addfirmware
/usr/share/debian-edu-config/tools/ltsp-addfirmware
/etc/shutdown-at-night/shutdown-at-night
http://wpad/wpad.dat
tjener:/etc/debian-edu/www/wpad.dat
+function FindProxyForURL(url, host)
+{
+   if (!isResolvable(host) ||
+       isPlainHostName(host) ||
+       dnsDomainIs(host, ".intern"))
+      return "DIRECT";
+   else
+      return "PROXY webcache:3128; DIRECT";
+}
+
+http_proxy=http://webcache:3128/
+ftp_proxy=http://webcache:3128/
+
http://www.debian.org/
/etc/environment
/etc/apt/apt.conf
+for d in $(cat /proc/mdstat |grep '(F)'|tr ' ' "\n"|grep '(F)'|cut -d\[ -f1|sort -u);
+do
+    printf "Failed disk $d: "
+    hdparm -I /dev/$d |grep 'Serial Num'
+done
+
+Failed disk sdd1:       Serial Number:      WD-WCASJ1860823
+Failed disk sdd2:       Serial Number:      WD-WCASJ1860823
+Failed disk sde2:       Serial Number:      WD-WCASJ1840589
+
+dispwin -d 1 profile.icc
+
+use strict;
+use warnings;
+use SOAP::Lite;
+use Data::Dumper;
+my $GUID = '11111111-1111-1111-1111-111111111111';
+my $App = 'test';
+my $servicetag = $ARGV[0] or die "Please supply a servicetag. $!\n";
+my ($deal, $latest, @dates);
+my $s = SOAP::Lite
+    -> uri('http://support.dell.com/WebServices/')
+    -> on_action( sub { join '', @_ } )
+    -> proxy('http://xserv.dell.com/services/assetservice.asmx')
+    ;
+my $a = $s->GetAssetInformation(
+    SOAP::Data->name('guid')->value($GUID)->type(''),
+    SOAP::Data->name('applicationName')->value($App)->type(''),
+    SOAP::Data->name('serviceTags')->value($servicetag)->type(''),
+);
+print Dumper($a -> result) ;
+
+$VAR1 = {
+          'Asset' => {
+                     'Entitlements' => {
+                                       'EntitlementData' => [
+                                                            {
+                                                              'EntitlementType' => 'Expired',
+                                                              'EndDate' => '2009-07-29T00:00:00',
+                                                              'Provider' => '',
+                                                              'StartDate' => '2006-07-29T00:00:00',
+                                                              'DaysLeft' => '0'
+                                                            },
+                                                            {
+                                                              'EntitlementType' => 'Expired',
+                                                              'EndDate' => '2009-07-29T00:00:00',
+                                                              'Provider' => '',
+                                                              'StartDate' => '2006-07-29T00:00:00',
+                                                              'DaysLeft' => '0'
+                                                            },
+                                                            {
+                                                              'EntitlementType' => 'Expired',
+                                                              'EndDate' => '2007-07-29T00:00:00',
+                                                              'Provider' => '',
+                                                              'StartDate' => '2006-07-29T00:00:00',
+                                                              'DaysLeft' => '0'
+                                                            }
+                                                          ]
+                                     },
+                     'AssetHeaderData' => {
+                                          'SystemModel' => 'GX620',
+                                          'ServiceTag' => '8DSGD2J',
+                                          'SystemShipDate' => '2006-07-29T19:00:00-05:00',
+                                          'Buid' => '2323',
+                                          'Region' => 'Europe',
+                                          'SystemID' => 'PLX_GX620',
+                                          'SystemType' => 'OptiPlex'
+                                        }
+                   }
+        };
+
+% GET https://views.scraperwiki.com/run/computer-hardware-support-status/?format=json&vendor=Dell&servicetag=2v1xwn1
+supportstatus({"servicetag": "2v1xwn1", "warrantyend": "2013-11-24", "shipped": "2010-11-24", "scrapestamputc": "2012-06-06T20:26:56.965847", "scrapedurl": "http://143.166.84.118/services/assetservice.asmx?WSDL", "vendor": "Dell", "productid": ""})
+%
+

- Petter Reinholdtsen - -

+ Petter Reinholdtsen + +

Entries tagged "english".

Archive